SQL Cümlesindeki Matematiksel İşlem Hatası

[ENIGMA55]

merhaba arkadaşlar.aşağıdaki yordamda,sql cümlesindeki matematiksel işlemde real tanımlı bir değişken kullanmak istiyorum.ama hatayı nerde yaptığımı bir türlü çözemedim.tırnak içine almada mı bir yanlışlık var yoksa mantıksal bir hata mı?şimdiden teşekkür ederim.( Y ve X real tanımlı alanlar...)

procedure TForm1.Button1Click(Sender: TObject);
var
a:Real;

begin
a:=StrToFloat(Edit3.Text);


with IBQuery1 do
begin
close;
sql.Clear;
sql.add('Select * from TBL');
sql.add('where Y-'+a'<600');//Y ve X alanları float tanımlı.
open;
end;
end;

[rsimsek]

Sorun SQL cümlesinde değil string (karakter) ile real (sayıyı) ı toplamakta

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  a:Real;
begin
  a:=StrToFloat(Edit3.Text);
  with IBQuery1 do
  begin
    close;
    sql.Clear;
    sql.add('Select * from TBL');
    sql.add('where Y - ' + FloatToStr(a) + ' < 600'); //Y ve X alanları float tanımlı.
    open;       // doğrudan Edit3.Text de konulabilir. Fakat içeriğinin sayısal bir değer olduğu garanti edilmeli!!!
  end;
end;

[unicorn64]

içerik sayısal değer değilse bu durumda

a:=StrToFloat(Edit3.Text);

satırı da hata vermez mi?

bunun yerine sayısal girişe zorlamak(sayısal olmayan girişi engellemek) yada try excep kullanmak daha garanti sanıırm...

[ENIGMA55]

Evet arkadaşlar teşekkür ediyorum.sorun çözüldü...