InputBox('MESSWERT','bitte Messwert eingeben', '')
Öffnet ein eingabefenster (die InputBox) und fördert zur Eingabe eines Meßwertes.
val(...,Messwert,code);
Wandelt die Eingabe, welche ja ein String ist, in eine Zahl (Double) um.
Und Code gibt (wie es in der
OH steht) den Fehlercode zurück. (von der Umwandlung)
Code:
Var S: String;
Messwert: Double;
Code: Integer
S := InputBox('MESSWERT', 'bitte Messwert eingeben', '');
Val(S, Messwert, Code);
If Code <> 0 Then {fehlerhafte Eingabe}
Wobei du Val auch durch eine der folgenden Befehle ersetzen könntest. (jenachdem wie Val verwendet wird, von der Fehlerbehandlung her)
Delphi-Quellcode:
Messwert := StrToFloat(S);
Messwert := StrToFloatDef(S, 0);
Vielleicht ist es ja so besser für dich erkennbar, was dort gemacht wird. ^^
Messwert := StrToFloatDef(InputBox('MESSWERT', 'bitte Messwert eingeben', ''), 0);
Delphi-Quellcode:
S := InputBox('MESSWERT', 'bitte Messwert eingeben', '');
Messwert := StrToFloatDef(S, 0);