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;