Hallo,
ich habe folgendes Problem:
Die Eingabe einer Edit-Komponente übergebe ich einer Variablen vom Typ Double.
Wenn bei der Ausführung des Programmes das Eingabefeld keinen Wert enthält, dann bekomme ich ein EConvertError.
Diese habe ich versucht abzufangen. Leider komme ich nach der
Exception nicht mehr in das Eingabefeld. Das Programm läuft weiter.
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
koerpergroesse, gewicht, bdi : Double;
begin
try
koerpergroesse := StrToFloat(Edit1.Text);
except
on EConvertError do
begin
ShowMessage('Es wurde kein Wert eingegeben.');
Edit1.Focused;
end;
end;
...
Nach Ausgabe der ShowMessage möchte ich wieder zum Eingabefeld kommen, damit ein korrekter Wert eingegeben werden kann.
Kann mir da jemand weiterhelfen.
Vielen Dank schon einmal.
Gruß Jörg