AnsiCompareText verdiği sonuç doğrumu ?

[CelticDream]

Merhaba arkadaşlar Depo listesi programımda arama yaptırmak istiyorum exceldeki gibi olması lazim. birebirr kayıtları filtreleme ile ulaşıyorum fakat Ürün kodunda arma yaparken birerbir olmaması gerekiyor Örnek olarak

code : 21FDK256T66 bu ürün kodunu '' FDK '' olarak arattığım zaman kayıttlar arasında göstermesi lazim..

table1.Filter:='marka='+Quotedstr(edit1.Text+'*');
bu kod başı doğru olduğu zamanlarda gösteriyor....

Bende AnsiCompareText stringin özelliğinden yararlanmayı düşünüyodum konuyu kavrayamadım değişik iki sonuç çıktı karşıma benmi yanlış yazdim kodu inceleyebilrimisiniz..

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
   Metin, Sonuc : AnsiString;
   Sayi : Integer;
begin
    Metin := 'awwwwwws';  {  Bu şekilde içinde var     Metin := 'wawwwwws';   Bu şekilde içinde yoq sonucu çıkıyor }
    Sonuc := 'sinan';
    Sayi := AnsiCompareText(Metin , Sonuc);
    If Sayi=0 Then  showmessage('aynı');
    If Sayi>0 Then  showmessage('İçinde yoq');
    If Sayi<0 Then showmessage('İçinde var');
end;

[greenegitim]

Kod: Tümünü seç

select * from depo Where stokadi like "%'+edt_stokadi.Text+'%"

gibi yapabilirsin

[CelticDream]

Kod: Tümünü seç

query1.SQL.Clear;
query1.Sql.Text:=' Select * From Tablo1 Where Marka Like '+chr(39)+'%'+edit1.Text+'%'+chr(39);
showmessage(query1.SQL.Text);
query1.Open;

Teşekür ederim oldu çok kısa yolmuş senin dediğin ben öle yapsaydım bi ömür bitmezdi ....

% işareti önü ne olursa olsun anlamı taşıyo ama chr(39) biri yazmış int onu rasgele yazdim oldu ikisinden birini silersen çalışmıyo program illa bu şekilde yazman gerekiyo...