Einzelnen Beitrag anzeigen

vogael

Registriert seit: 13. Sep 2005
15 Beiträge
 
#1

Absturz verhindern/ ich krieg das mit except net gebacken

  Alt 25. Jan 2006, 19:25
Hallo,
ist zwar mit hoher wahrscheinlichkeit eine noob-frage(was delphi abgeht bin ich auch einer),
aber ich kriegs net hin, zu verhindern, dass das Programm abstürzt, wenn ein String in integer oder so umgewandelt werden soll, in dem String jedoch Buchstaben vorhanden sind. Ich hab es schonmal mit Except in einer Fuktion und einfach so ausprobiert, ging aber net. so hab ichs gemacht:
Delphi-Quellcode:
//hier die Funktion
function ZahlOderNicht(const test: string): Boolean;
begin
  Result := True;
  try
    StrToFloat(test);
  except
    Result := False;
  end;
end;

//und dann in einer Prozedur:
if ZahlOderNicht(EdtEinzahlung.text) = true then showmessage('Zahl') else showmessage ('Keine Zahl');
Dann stürzt das Programm aber ab, wenn eine Nicht-Zahl im String enthalten ist, obwohl das doch eigentlich mit dem except übergangen werden müsste, oder`````?
  Mit Zitat antworten Zitat