Hallo,
leider gibst du keine Delphi-Version an.
Ab Delphi 7 könntest das machen:
ich geh davon aus, dass dein Textfeld ein Edit ist - bei mir Edit1
Delphi-Quellcode:
var
i: Integer;
begin
i := StrToIntDef(Edit1.Text, 1);
end;
Wenn der Wert deines Textfeldes (Edits) ein Integer ist, wird Dieser an i übergeben. Wenn nicht, dann wird der Defaultwert (hier 1) übergeben.
....
ansonsten kannst es so machen:
Delphi-Quellcode:
var
i: Integer;
begin
try
i := StrToInt(Edit1.Text);
except
i := 0; //oder was auch immer du dann machen willst, wenn der Wert des Textfeldes kein Integer ist.
end;
end;
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<