Überprüfung von Eingabezahlen

[heizkoerper]

Guten Morgen Lazarus-Freunde,

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

[indianer-frank]

Mit dieser Funktionen lassen sich aber auch leicht Fehler einbauen

1. Wenn jemand (warum auch immer) eine Zahl mit Tausenderseparator ',' und Dezimalseparator '.' eingibt (zB 1,345.678), liefert val einen Fehlercode.

2. (Intel-)Extended geht bis 1e4932, Dein 'ungültiger Wert' ist also gerade mal 2% des größten Wertes, was soll das Ergebnis 1e100 also bei einem Aufruf x := StringWert('1.2e300',0,1e200); bedeuten? Für solche Zwecke gibt es übrigens NaNs.

3. Im Code solltest Du unabhängig von den anderen Punkten die Variable i nicht als Byte deklarieren, sonst gibt's Probleme mit Stringlängen > 255.

[carli]

Guten Morgen Lazarus-Freunde,

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:

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

Warum nutzt du kein FloatToStrF inklusive try..except-Block?

[Socke]

3. Im Code solltest Du unabhängig von den anderen Punkten die Variable i nicht als Byte deklarieren, sonst gibt's Probleme mit Stringlängen > 255.

Dann direkt den Hinweis hinterher, dass SizeInt der beste Typ für die Längen von Strings und Arrays ist -- immer dann, wenn man ein paar Bytes direkt im Speicher bearbeiten möchte.

[heizkoerper]

Vielen Dank für die Hinweise.

Natürlich läßt sich auch FloatToStrF inklusive eines try..except-Blockes benutzen.

Ich bin halt noch ein alter Pascal-Fan.

Die Procedure Val(Wert,Zahl,FehlerStelle) hat aber den großen Vorteil, dass die Stelle des Fehlers angegeben wird.

Dies ist bei bestimmten Eingabeüberprüfungen (z.B. einer Formelauswertung) von großem Nutzen.

Ich hatte als Fehlerwert Const ErgebnisFalsch=1E100 deklariert.

Mir ist schon bekannt, dass Extended-Zahl einen weitaus höheren Exponenten darstellen können.

Mit Delphi arbeite ich auch mit weitaus höheren Werten, wie z.B. 1E1000.

Mache ich dies bei Lazarus und kontrolliere ich den Wert, so erscheint ErgebnisFalsch=inf

Gruß Heizkoerper