Probleme mit StrToFloatDev + if-Abfrage

[Kirby886]

Moin zusammen!

Erstmal ein dickes Lob an das Forum. Bin noch recht neu in der Delphi-Programmierung und das Forum ist echt eine große Hilfe. :)

Zu meinem Problem:

Ich hab die folgende Funktion mit zwei Strings als Parameter, die ich jeweils in Double umwandeln möchte. Sollte dies nicht möglich sein, so bekommt die jeweilige Double-Variable eine Gleitkommazahl mit einer Länge zugewiesen, die die maximal mögliche Länge des übergebenen Strings übersteigt.

So weit, so gut. Aber irgendwas stimmt mit meiner if-Abfrage nicht: Denn wenn ich z.B. Buchstaben übergebe erhalten die Double-Variablen zwar korrekt diese 0.00000000000009, aber ich komme trotzdem nicht in den if-Block, sondern in den else-Block. Also wo ist mein Denkfehler? :gruebel:

Delphi-Quellcode:

function TCalcControl.getResult(inSValue1, inSValue2: String): String;
var lDValue1, lDValue2: Double;
begin
  lDValue1 := StrToFloatDef(inSValue1, 0.00000000000009);
  lDValue2 := StrToFloatDef(inSValue2, 0.00000000000009);
  if ((lDValue1 = 0.00000000000009) or (lDValue2 = 0.00000000000009)) then result := 'Bitte nur Zahlen eingeben!'
  else [...]
end;

[Klaus01]

Hallo,

die Zahlen werden intern immer binär darstellt.
Es kann also sein das 0.00000009 nicht so exakt dargestellt werden können.
Was Du machen kannst ist auf value <=0.0000009 zu prüfen.

Grüße
Klaus

[Sir Rufo]

Benutze TryStrToFloat

[Kirby886]

Zitat:

Zitat von Klaus01

die Zahlen werden intern immer binär darstellt.
Es kann also sein das 0.00000009 nicht so exakt dargestellt werden können.
Was Du machen kannst ist auf value <=0.0000009 zu prüfen.

Hab auch schon an eine ungenaue interne Darstellung gedacht, kam mir trotzdem bissl komisch vor.
value <= 0.0000009 wär nicht gegangen, da ich ggf. auch eine 0 eingeben möchte! ;)

Zitat:

Zitat von Sir Rufo

Benutze TryStrToFloat

Damit klappt's super!


Danke euch beiden. Schönes Wochenende! :thumb:

[alex517]

Für den Vergleich gebrochener Zahlen oder DateTime
solltest du dir mal folgende Funktionen ansehen:

Delphi-Quellcode:

  
function SameValue()
function IsZero()
function CompareValue()

alex