editbox ta girilen data tipi nedir???

[kazimates]

editbox içerisine girdiğim data tipini bulmaya çalışıyorum, girilen değer abcdef ise bu alan text string dir, 1234 ise numeric integer, veya girilen değere göre alan float tipte dir diyebilmek istiyorum bunun için nasıl bir kod kullanabilirim.

Sağlık,mutluluk ve başarı dileklerimle,

[Hakan Can]

Şöyle bir kod işini görür:

Kod: Tümünü seç

procedure TEkstraIslemlerForm.Button1Click(Sender: TObject);
var
  St1: string;
begin
  try
    StrToFloat(Edit1.Text);
    try
      StrToInt64(Edit1.Text);
      St1 := 'Integer değer';
    except
      St1 := 'Float değer';
    end;
  except
    St1 := 'Alfasayısal değer';
  end;
  ShowMessage(St1);
end;

İyi çalışmalar.