Hilfe mit value Befehl

[Maeuschen]

Hallo zusammen!

letztens hat uns unser Lehrer gezeigt, wie man ein Programm absturzsicher machen kann. Verstanden hat es leider keiner und den Quelltext hat er auch nicht rausgegeben "Probiert das mal alleine". Prima, wie soll ich denn etwas programmieren, wenn ich nichteinmal den Ansatz kenne?

Das einzige, was ich mitbekam war, dass er irgendetwas mit Value schwafelte, mehr nicht.

Mein konkretes Problem ist jetzt: Was muss ich in den Quelltext eingeben, dass mit mein Programm nicht abstürzt, wenn ich ins Edit1-Feld nicht "4", sondern "vier" eingebe?

Danke an alle, die bis hier hergelesen haben und mir versuchen zu helfen

[mkinzler]

In eine Edit-Feld kannst du problemlos "vier" eingeben, da es ja einen String aufnimmt.
Ich weiß nicht, von was dein Lehrer geredet hat, ich könnte mir vorstellen, das er die .value Eigenschaft von Datenbankzugriffsobjekten gemeint hat welche Varianten sind.

[Edit: oder er hat den val()-Befeh gemeint]

[Maeuschen]

Achso, sorry, das hätte ich erwähnen sollen
Die zahlen der beiden Editfelder muss man Multiplizieren, d.h ich habe ja schon stehen:

Edit1.text:=strtofloat(z1);
Edit2.text:=strtofloat(z2);
Ergebnis:=(z1*z2);

[droppi]

Aber wenn du die Zahlen multiplizieren willst muss das dann nich heißen:

Delphi-Quellcode:

z1:=strtofloat(Edit1.text);
z2:=strtofloat(Edit2.text);
Ergebnis:=(z1*z2);

Wenn du abfragen willst ob ein eingegebener Wert keine Zahl ist würd ich dir if...then... Empfehlen.

[mkinzler]

Zitat:

Delphi-Quellcode:

Edit1.text:=strtofloat(z1);
Edit2.text:=strtofloat(z2);
Ergebnis:=(z1*z2);

geht wohl nicht:

Delphi-Quellcode:

z1 := strtofloat(Edit1.text);
z2 := strtofloat(Edit1.text);
Ergebnis := (z1*z2);

müßte es heißen oder besser

Delphi-Quellcode:

if (TryStrToFloat( Edit1.Text, z1)) and (TryStrToFloat( Edit2.Text, z2)) then
   Ergebnis:=(z1*z2)
else
   //Fehler;

[droppi]

Ach genau . Naj wird Zeit dass es wieder Wochenende wird.
Jetzt hab ich doch gedacht du willst mich verbessrn naja.

[Maeuschen]

Delphi-Quellcode:

z1:=strtofloat(Edit1.text);
z2:=strtofloat(Edit2.text);
summe:=z1*z2;

Genau das steht jetzt bei mir ^^"

@mkinzler

Ist dein letzter Code jetzt der Code, der zum absturzsicheren Programm führt?

[mkinzler]

Ja. Zumindest bezüglich dieser Typumwandlungen

[nailor]

also ich würde dir die verwendung eines try/except-Blockes empfehlen (falls ich dein Problem richtig verstanden habe, du wirst nicht gerade mit Informationen um dich)

[andimx]

Man kann auch das OnKeyPress Event abfangen den Key Code (Wert der gedrückten Taste) analysieren:

Delphi-Quellcode:

procedure TfrmMain.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in [#46, #48..#57, #8]) then Key := #0;
end;

Gruß
Andi