Table Filterelemede hata

[ozcank]

Arkadaşlar böyle bir sorgu yapmam gerekiyor fakat "is not a valid floating point" hatasından kurtulamadım yardım ederseniz sevinirim.

Kod: Tümünü seç

procedure TForm37.Edit1Change(Sender: TObject);
begin
Table4.Filtered:=False;
Table4.FilterOptions:=[FoCaseInsensitive];
Table4.Filter:='[SISKOD]='''+Edit1.Text+'''';
Table4.Filtered:=True;
end;

bu şekildede denedim;

Kod: Tümünü seç

procedure TForm37.Edit1Change(Sender: TObject);
begin
Table4.Filtered:=False;
Table4.FilterOptions:=[FoCaseInsensitive];
Table4.Filter:='[SISKOD]='+Edit1.Text;
Table4.Filtered:=True;
end;

[hdayi]

Bu hata çok konuşuldu arama yaptırırsan bulursun. Edit'e yazdığın text bir sayı olmadığı için bu hatayı veriyor. Ayrıca yazdığın kodlar birbirinin aynı.

Kolay Gelsin...

[ozcank]

Arkadaşlar bu şekildede denedim aynı hatayı alıyorum Edit1 de geri silme tuşuna basınca hata alıyorum

Kod: Tümünü seç

procedure TForm37.Edit1Change(Sender: TObject);
begin
Table4.Filter:='SISKOD='+QuotedStr(Edit1.Text);
Table4.Filtered:=true;
end;
end.

[aslangeri]

s.a.
edit1 deki textin boş olup olmadığını kontrol etmelisiniz.
kolay gelsin.

[hdayi]

Edit1 değişirken herhangi bir anında içindeki değer bir sayı olmaktan çıkıyor bu yüzden. Yazdığın kodu try-except bloğu içerisine almanı tavsiye ederim.

Kolay Gelsin...