Absturz verhindern/ ich krieg das mit except net gebacken

[mkinzler]

Es fehlt auch die eigentliche Fehlerroutine.

Delphi-Quellcode:

function ZahlOderNicht(const test: string): Boolean;
begin
  Result := True;
  try
    StrToFloat(test);
  except
   on Exception do Result := False;
  end;
end;

//und dann in einer Prozedur:
if ZahlOderNicht(EdtEinzahlung.text) = true then showmessage('Zahl') else showmessage ('Keine Zahl');