ich lese öfters, dass es Probleme mit der Überprüfung von Eingabezahlen gibt.
Ich arbeite seit Jahren mit meiner eigenen Überprüfungsfunktion.
Die sieht wie folgt aus:
Code: Alles auswählen
Function StringWert(Wert:String;Min,Max:Extended):Extended;
Const ErgebnisFalsch=1E100;
Var i :Byte;
FehlerStelle:Integer;
Zahl :Extended;
Begin
For i:=1 To Length(Wert) Do If Wert[i]=',' Then Wert[i]:='.';
Val(Wert,Zahl,FehlerStelle);
If (FehlerStelle>0) Or (Zahl<Min) Or (Zahl>Max) Then StringWert:=ErgebnisFalsch Else StringWert:=Zahl
End;
Mit dieser Funktion lassen sich leicht Eingabefehler aufspüren.
Gruß Heizkoerper