Fehler bei StrToFloat(StrAlsIntegerFormatiert)

[newgro]

Hallo,

ich habe in der DB einen Wert als Float definert. Man kann in einem anderen Feld die NKS angeben.
Ich dachte mir nun, das es einfach möglich ist aus einem String (12345 -> aus einem Textfeld) mit NKS (0 -> aus der DB)
und der Funktion StrToFloat einen Float zu erhalten. Leider bekomme ich eine Exception - "kein gültiger Gleitkommawert"

Gibt es eine andere Möglichkeit als wenn NKS=0 dann StrToInt sonst StrToFloat? Ich denke da an sowas wie StrToFloat mit Formatangaben.

Danke
Per

[Klaus01]

Was ist NKS? NachKommaStellen?

StrToFloat hat normalerweise kein Probleme einen String der eine GanzZahl beinhaltet
in einen Float umzuwandeln.
Hast Du vielleicht ein Problem mit deinem DecimalSeperator?

Grüße
Klaus

[newgro]

Hallo Klaus,

0 scheint zu gehen, aber 1000 und 1.000 gehen nicht. Allerdings geht 1000,0 auch nicht.

Danke für die Hilfe
Per

[Klaus01]

Aber wenn Du Deinen Wert in der DB als Float definiert hast,
warum liest Du in dann nicht als Float aus?

Grüße
Klaus

[newgro]

Sollte Code erforderlich sein:

Delphi-Quellcode:

function getFormatted(value: String; decPlaces: Integer): Real;
var toFormat: Real;
begin
  if value = '' then toFormat:= 0 else toFormat:= StrToFloat(value);
  result:=StrToFloat(format('%.' + IntToStr(decPlaces) + 'n', [toFormat]));
end;

Cheers
Per

[newgro]

Du meinst in etwa so?

Delphi-Quellcode:

FieldByName('count').AsFloat

Das mache ich. Dann wird dieser Wert in ein Tedit Feld gepackt und dann wieder ausgelesen. Und dann knallt es.

Cheers
Per

[Klaus01]

Habe es einmal ein wenig umgemodelt.
Aber nicht getestet, für power musst Du die Unit math einbinden.

Delphi-Quellcode:

function getFormatted(value: String; decPlaces: Integer): Real; 
var toFormat: Real; 
begin 
  
  decPlaces:=decPlaces * -1;

  if value = '' then 
    toFormat:= 0 
  else 
    toFormat:= StrToFloat(value); 

  result:=toFormat* power(10,decPlaces);  // 

end;

Grüße
Klaus

[newgro]

Hmm. Aber

Delphi-Quellcode:

toFormat:= StrToFloat(value);

bringt mir doch den Fehler. Habe ich getraced.

[newgro]

Als value geht z.B.
1000
1.000
1.234.564
rein und alles bringt den Fehler.

[Klaus01]

Zitat:

Zitat von newgro

Hmm. Aber

Delphi-Quellcode:

toFormat:= StrToFloat(value);

bringt mir doch den Fehler. Habe ich getraced.

Bist Du schon mal mit F7/F8 durch den Code gegangen und hast dir mit Ctrl-F5 (Watchlist)
den Wert der Variable value angeschaut?

Und wenn Du ein deutsche Windows System verwendest, dann haben die Werte keine Tausendertrennzeichen
und der DecimalSeparator ist das Komma (,).
Also ist 1.234.567 kein Floatwert.

Grüße
Klaus