ich habe mir folgende kleine methode zusammengebastelt:
Code:
procedure TForm.EditOnExit(Sender: TObject);
var
value: Double;
code: Integer;
begin
try
Val(TEdit(Sender).Text, value, code);
if code <> 0 then
raise EInvalidArgument.Create('Sie haben einen falschen Wert angegeben!');
TEdit(Sender).Color := clWhite;
except
TEdit(Sender).Color := clRed;
TEdit(Sender).SetFocus;
end;
end;
Der Anwender wird wird bei einer Falscheingabe gezwungen
einen richtigen Wert einzugeben, bevor er im Programm weiter arbeiten kann.
Kenntlich wird das ganze durch die Rotmarkierung des Edits gemacht.