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 :oops:
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 :wall: . 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

[JKING]

Hier habe ich mal eine function Value() geschrieben.
Wenn keine Zahl eingegeben wurde wird als Ergebnis 0 zurückgeliefert.

Delphi-Quellcode:

function Value(s:string):Double ;
begin
  try
    result:=StrToFloat(s);
  except
    // Eingabe ist keine Zahl
    result:=0;
  end;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
var z1,z2,ergebnis:double;
begin
  z1:=Value(Edit1.text);
  z2:=value(Edit2.text);
  Ergebnis:=(z1*z2);
  edit3.text:=floattostr(ergebnis);
end;

[mkinzler]

Da finde ich aber die TryStrToFloat-Variante besser, da sie false als Ergebnis liefert, wenn der wert nicht gewandelt werden konnte. Bei dir kann man nicht unterscheiden ob der benutzer 0 oder jkklfjkskskjf in den Edit eingegeben hat.

[Maeuschen]

@mkinzler
Das geht nicht :\

Undefinierter Bezeichner 'TryStrtofloat'
Ausdruckstyp muss Boolean sein

@ anderen
Das klappt zwar alles, nur brauche ich das dann auch in der Klausur und so viel kann ich mir nicht merken, deswegen wäre mir eine unkomplizierte Lösung wirklich lieber. Aber danke für die großzügige Hilfsbereitschaft hier ^__^

[mkinzler]

Zitat:

Undefinierter Bezeichner 'TryStrtofloat'

Welche delphi-Version? Funktion befindet sich in SysUtils.

Aber nochmal zur Grundfrage, was eird eingegeben 'vier' oder '4' StrToFloat/TryStrToFloat hilft nur beim 2.

Das 1. kannst du mit Val() erreichen

[Maeuschen]

Zitat:

Zitat von mkinzler

Das 1. kannst du mit Val() erreichen

Ja genauuu...diesen Befehl brauche ich ^^ nur was soll ich in die Klammer reinschreiben? Und das ist mein Problem xD

[mkinzler]

Zitat:

Zitat von Delphi-Hilfe

Val Routine

Konvertiert einen String in seine numerische Entsprechung.

Unit
System

Syntax


(Delphi) procedure Val(S: string; var V: Type; var Code: Integer);


Beschreibung
In Delphi konvertiert Val den mit S angegebenen String in einen numerischen Wert, der dem Ergebnis einer Leseoperation mit Read aus einer Textdatei entspricht.

S ist ein String-Ausdruck und muss einer vorzeichenbehafteten reellen Zahl entsprechen.
V ist eine Gleitkomma- oder Integer-Variable. Wenn V eine Variable des Typs Integerist, muss S eine ganze zahl ergeben.
Code ist eine Variable des Typs Integer.

Ist der String ungültig, wird der Index des betreffenden Zeichens im Parameter Code gespeichert. Andernfalls wird Code der Wert Null zugewiesen. Bei einem nullterminierten String ist die in Code zurückgegebene Fehlerposition um eins größer als der auf Null basierende Index des Zeichens.

[mkinzler]

Nur leider macht die Funktion nicht ganz was ich versprochen hat habe :oops:
Sie Ignoriert nur falsche Zeichen im String.

Delphi-Quellcode:

wert := StrToInt( '400x');

würde eine Fehler liefern, aber

Delphi-Quellcode:

Val( '400x', wert, fehlerpos);

würde wert = 400 liefern. Ich nehme trotzdem an, das dein Lehrer diese Funktion gemeint hat.

[Edit: Sch.... Tippfehler]

[Hawkeye219]

So schlecht ist die Routine doch gar nicht, Markus.

Zitat:

Zitat von Delphi-Hilfe

Ist der String ungültig, wird der Index des betreffenden Zeichens im Parameter Code gespeichert. Andernfalls wird Code der Wert Null zugewiesen.

Nur wenn in Code der Wert 0 zurückgegeben wird, konnte der String vollständig umgewandelt werden. Ansonsten gibt Code die Position des "Fehlers" an. Auch das kann manchmal sehr nützlich sein.

Einziger Nachteil der Prozedur: sie akzeptiert nur Dezimalpunkte.

Gruß Hawkeye

[mkinzler]

Nein, sie (?) such ja ne Funktion die 'vier' in 4 wandelt.

[Hawkeye219]

Ich kann mir ehrlich gesagt nicht vorstellen, daß ein Lehrer solche Anforderungen an die Schüler stellt. Meiner Meinung nach soll durch die Eingabe von "vier" nur getestet werden, wie sich das Programm bei der Eingabe von Texten verhält. Die Aufgabe der Schüler wird wohl lediglich darin bestehen, solche Eingaben als fehlerhaft zurückweisen.

Vielleicht kann uns "Maeuschen" dazu mehr sagen?

Gruß Hawkeye

[3_of_8]

Ich nehme eher mal an, dass der Lehrer Try-Except Blöcke gemeint hat.

[mkinzler]

Ich bin mir auch relativ sicher, das er den Val-Befehl gemeint hat; sie hatt auch sowas behalten ( value ~ Val).

[Amateurprofi]

edit: hatte übersehen, daß da schon 2 Seiten waren... sorry

Delphi-Quellcode:

var 
   v:double; // oder anderer numerischer typ
   vc:integer;

begin
   //...
   val(Edit1.Text,v,vc);
   if vc<>0 then begin
      // Fehler
   end;
   //...
end;