Exception Handhabung

[jmit]

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

[Apollonius]

Ersezte edit1.focused (das ist nur eine Abfrage) durch edit1.setfocus.
Außerdem solltest du danach noch ein exit einfügen, weil sonst mit der ungültigen Körpergröße weitergearbeitet wird.

[jmit]

Danke für die sehr schnelle Antwort, jetzt bin ich ein ganzes Stück weitergekommen.

Gruß Jörg

[Hawkeye219]

Jörg, du solltest dir die Unit SysUtils einmal näher ansehen. Mit Hilfe der Funktion TryStrToFloat kannst du dein Problem auch ohne Exception Handling lösen.

Gruß Hawkeye