Test ob gültige REAL

[SvenLittkowski]

Wie kann man testen ob ein String eine Zahl darstellt, wenn jene Zahlen auch negativ (mit vorangestelltem Minus) sein können und vom Typ Integer oder Real sein können (also mit Kommastellen, wobei das Komma je nach Land durch ein Komma oder einen Punkt dargestellt sein kann)? Gleichzeitig will ich aber Strings wie die nachfolgenden "Un"-Zahlen ausschließen:
- "12-3"
- "123-"
- "123."
- "1.2.3"
- "1-2-3"
- "-.-"

Ich hatte bereits etwas gesucht, und das folgende Thema gefunden:
http://www.delphipraxis.net/104177-z...umwandeln.html
Ist aber nicht genau das, was ich suche. Habe vorsichtshalber aber auch dort nochmal gefragt. Nicht sicher, welches das beste Unterforum dafür ist. :-)

Bei meinem Problem kann ich mit Schleifen arbeiten. Nur der Algorithmus fällt mir nicht ein.

[DeddyH]

Ein paar Überlegungen:
- das Vorzeichen darf nur einmal vorkommen und muss am Stringanfang stehen, gefolgt von mindestens einer Ziffer
- der Dezimalseparator darf auch nur einmal vorkommen
- ist der Tausenderseparator erlaubt, müssen ihm immer 3 Ziffern folgen
- bei strenger Auslegung darf der Dezimalseparator nicht am Stringanfang oder Stringende stehen und der Tausenderseparator nicht am Stringanfang

Das zu programmieren überlasse ich Dir ;)

[Deep-Sea]

TryStrToFloat - oder habe ich was verpasst? :gruebel:

[DeddyH]

Zitat:

Zitat von Deep-Sea (Beitrag 1079993)

oder habe ich was verpasst? :gruebel:

Hast Du. Es soll keine Umwandlung verwendet werden. Der Sinn dahinter erschließt sich mir zwar nicht, aber was soll' s?

[Deep-Sea]

Zitat:

Zitat von DeddyH (Beitrag 1079994)

Es soll keine Umwandlung verwendet werden.

Hab ich wohl überlesen ... *angestrengt such* ... öhm ... vlt. kauf ich mir 'ne Brille :?

[DeddyH]

Zumindest steht es so im verlinkten Thread, in dem der T.E. auch zuerst gepostet hat. Vielleicht habe ich es aber auch selbst falsch verstanden (man ist ja nicht mehr der Jüngste :stupid:).

[SvenLittkowski]

Gar nicht mal so schlecht, die Funktion TryStringToFloat war mir bis jetzt überhaupt nicht bekannt. Da sie ein Ergebnis vom Type Boolean liefert, könnte sie mir tatsächlich als vollständige Testfunktion dienen.

Jedoch gibt es bei mir ein Problem mit dem Benutzen der TryStringToFloat-Funktion:

Code:

var
 MyMemory: String;
 MyReal: Real;
 MySuccess: Boolean;
begin
...
if(TryStrToFloat(MyMemory,MyReal)=True) then MySuccess:=True;
...
end;

Zitat:

Zitat von Mein Delphi 7

[Error] Box1.pas(808): There is no overloaded version of 'TryStrToFloat' that can be called with these arguments

Da doch diese Funktion ein True oder False liefert, sollte dieser Code doch funktionieren, dachte ich mir. Tut er aber nicht. Was mache ich noch falsch?

UPDATE:

Habe die REAL-Variable als EXTENDED deklariert, nun geht es wohl.

[DeddyH]

Delphi-Quellcode:

var
 MyMemory: String;
 MyReal: double; //oder extended oder single, aber nicht real
 MySuccess: Boolean;
begin
  ...
  MySuccess := TryStrToFloat(MyMemory,MyReal);
  ...
end;

[SvenLittkowski]

Jupp, hatte ich bereits getan! Vielen Dank trotzdem! Scheint, wir beide haben fast zur selben Zeit gepostet, ohne das Posting des jeweils anderen gesehen zu haben. :-)

[Deep-Sea]

Ich hoffe du meinst damit auch das Umstellen deiner Abfrage und nicht nur das ändern des Datentyps. Denn auf "= True" zu prüfen ist böse! :wink:

[DeddyH]

Ich winke mit dem Zaunpfahl, Du haust ihm gleich den Zaun um die Ohren :lol:

[Deep-Sea]

Zitat:

Zitat von DeddyH (Beitrag 1080018)

Ich winke mit dem Zaunpfahl, Du haust ihm gleich den Zaun um die Ohren :lol:

Hehe. Nur zur Sicherheit :wink:

[shmia]

Eine Lösung für das Problem wäre ein Zustandsautomat.
Wahrscheinlich ist fast jede Lösung des Problems eine Implementierung eines Zustandsautomaten.

[SvenLittkowski]

Ist böse? Hmmm, was meinst Du? Ich hatte diesen Teil des Codes mit etwas anderem ersetzt, so kann ich es nicht selber herausfinden. Vielen Dank für den Rat. :-)

[Deep-Sea]

Zitat:

Zitat von SvenLittkowski (Beitrag 1080240)

Ist böse? Hmmm, was meinst Du?

Sieh dir dazu das Tutorial Über den Umgang mit Boolean an :thumb:

[SvenLittkowski]

Ah, jetzt fange ich an, zu verstehen. Vielen Dank für den interessanten Link. Ich bin noch am Lesen, wollte mich aber bei Dir melden. :-)