inputquery ile sayisal değer kontrolu

[Fesih ARSLAN]

Merhaba,
TryStrToInt fonksiyonu işinizi görecektir. 

var
  Sayi: Integer;
begin
 if TryStrToInt(Edit1.Text, Sayi) then
   ShowMessage(Format('"%d" bir sayıdır.', [Sayi]))
 else
   ShowMessage(Format('"%s" bir sayı değildir! Lütfen bir sayı giriniz.', [Edit1.Text]));
end;