Prüfen ob Edit.Text einen Integer-Wert enthält

[oldmax]

Hi
Drei Möglichkeiten fallen mir da sofort ein:
1. Ereignis OnKeyPress : Nur Ziffen bis zu einer bestimmten Länge durchlassen

Delphi-Quellcode:

Procedure MyForm.Edit1keypress(Sender: Tobject; Var Key: Char);
Begin
  if (Key<'0') or (Key>'9') or (Length(Sender as TEdit).Text< n) then Key:='';
end; // evtl. mußt du die Steuerzeichen noch durchlassen....

2. Vor Wandlung Stringlänge abfragen und evtl. anmeckern

Delphi-Quellcode:

...
If Length(Edit1.Text)< n then gueltig :=true else Gueltig:=False;
If Güeltig then
begin
  Prüeftext:=Edit1.Text;
  For i:=1 to Length(Prueftext) do if (Prueftext[i]<'0') or (Prueftext[i]>'9') then Gueltig :=False;
end;
if Gueltig then x:=StrToInt(Edit1.Text);// zugegeben, sehr umständlich
...

und dann geht noch try ... except

Über weitere müßte ich noch nachdenken....
Gruß oldmax