Exception-Klasse Fehler verhindern

[robbe327]

Hallo.

In meinem Programm kann man bestimmte Werte in Edit-Felder eingeben, um aus denen anschließend über Formeln einen Ausgangswert zu berechnen. Das funktioniert soweit wie es soll, jedoch stürzt das Programm ab sobald ein Edit-Feld leer bleibt.

Ist ja auch logisch, weil das Programm "nichts" schlecht konvertieren kann.

Gibt es eine Funktion oder einen Befehl, mit dem man eine solche Fehlermeldung vermeiden kann und in so einer Situation eine Showmessage angezeigt werden kann?

Danke im voraus(:

[Socke]

http://www.freepascal.org/docs-html/rtl ... float.html

[Mathias]

So sollte es gehen, es wird kein Except mehr ausgelöst.
Ich denke, du hast ein einfaches StrToFloat genommen.

Code: Alles auswählen

procedure TForm1.Edit1Change(Sender: TObject);
var
  f: single;
begin
  if TryStrToFloat(Edit1.Text, f) then begin
    Label1.Caption := FloatToStr(f);
  end;
end;    

[robbe327]

Ich denke, du hast ein einfaches StrToFloat genommen.

Ja, das habe ich (: also einfach ein "Try" davor setzen?

[Mathias]

Ja, das habe ich (: also einfach ein "Try" davor setzen?

Du kannst es noch ganz elegant lösen, dann sieht man sofort, wen etwas ungültiges im Edit steht.

Code: Alles auswählen

  if TryStrToFloat(Edit1.Text, f) then begin
    Label1.Caption := FloatToStr(f);
    Edit1.Color := clWhite;
  end else begin
    Edit1.Color := clRed;
  end;  

[robbe327]

Das Prinzip hab ich soweit verstanden, Ich weiß nur nicht recht WO ich diesen Befehl nun einfügen soll.

Der Fehler entsteht wenn ich den Button um berechnen klicke. soll ich diesen Befehl also unter der procedure TForm1.Button1click setzen oder wohin?

Und wo kommt der Label aufeinmal her ?

Tut mir leid, habe kaum Fachwissen mit Lazarus und Pascal