Überprüfen auf Datentyp

[Hansa]

ich wollte Dich ja nicht kritisieren, aber lese Dir die Stichworte, die ich geliefert habe durch. Sonst wird das nichts Und vergiss vorerst das val. Na gut, damit Du nicht beleidigt bist, hier ein Beispiel :

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
    NurZahlen : boolean;
begin
  NurZahlen := true;
  for i := 1 to length (Edit1.Text) do begin
    if not (Edit1.Text [i] IN ['0'..'9']) then
      NurZahlen := false;  // eine "Nicht-Zahl" gefunden
  end;
  if NurZahlen then
    ShowMessage ('Nur Zahlen')
  else
    ShowMessage ('mind. 1 Buchstabe enthalten');
end;