Hilfe mit value Befehl

[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 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 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
Sie Ignoriert nur falsche Zeichen im String.

wert := StrToInt( '400x'); würde eine Fehler liefern, aber
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 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