Test ob gültige REAL

[Deep-Sea]

Zitat von DeddyH:

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 ).

[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 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!

[DeddyH]

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

[Deep-Sea]

Zitat von DeddyH:

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

Hehe. Nur zur Sicherheit

[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 von SvenLittkowski:

Ist böse? Hmmm, was meinst Du?

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