Hallo,
versuch doch in einem try-except-end - Block.
Bei einem Fehler kann du dann entsprechend reagieren.
Delphi-Quellcode:
procedure tform1.checkEdit1;
var iWert : Integer;
begin
try
if edit1.text > '
'
then begin
iWert := strtoint (edit1.text);
end
else begin
tue etwas anderes .....
end;
except
on e :
exception do begin
showMessage ('
Fehler bei der Eingabe'+#13#10+e.
message);
end;
end;
end;
Viel Spaß damit
Gruß
1aDavin
