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

[newgro]

Im Debug Inspector steht
value '1.274.847'

[newgro]

Ja, ok. Deshalb auch der Betreff. Kann ich denn mit Delphi aus einem IntegerString ein Float machen?

[mkinzler]

Dann setzte doch das Format kurzzeitig um:

Delphi-Quellcode:

ThousandSeparator = '.';
toFormat:= StrToFloat(value);

[newgro]

Gesagt, getan. Und wieder der FormatError.

[mkinzler]

Schon die überladene StrToFloat mit Format versucht?

[newgro]

Hatte

Delphi-Quellcode:

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

probiert und es ging nicht.

[newgro]

Habe ein bischen weiter geforscht und dabei heraus bekommen, das es tatsächlich am TausenderTrennzeichen liegt.
Aber wie kann ich den . nun löschen? So wie ich es mache geht es nicht:

Delphi-Quellcode:

function TestTfrm_budgets.getFormatted(value: String; decPlaces: Integer): Real;
var toFormat: Real;
    i: Integer;
    str: String;
    f: TFormatSettings;
begin
  if value = '' then
    toFormat:= 0
  else begin
    for i := 0 to length(value) do
    begin
      v:= ;
      if (value[i] <> f.ThousandSeparator) then
      begin
       str:= str + value[i];
      end;
    end;
    toFormat:= StrToFloat(str);
  end;
  result:=StrToFloat(format('%.' + IntToStr(decPlaces) + 'n', [toFormat]));
end;

So steht trotzdem der Punkt (TausenderTrenner) drin.

[mkinzler]

StringReplace()

[newgro]

Delphi-Quellcode:

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

Und wieder der Fehler. Aber er ersetzt nicht den ThousendSeparator. Muss ich den irgendwie umwandeln?

Danke
Per

[mkinzler]

Delphi-Quellcode:

str:= StringReplace(value, '.', '', [rfReplaceAll]);

[newgro]

Dies ist der Testfall. Und der geht auch wieder nicht. So langsam denke ich an Selbstmord :-((

Delphi-Quellcode:

procedure TestTfrm_budgets.TestgetFormatted1;
var
  ReturnValue: Real;
  decPlaces: Integer;
  value: string;
begin
  value:='1.000,00';
  ReturnValue := getFormatted(value, decPlaces);
  Assert(ReturnValue=1000.00, 'Oops');
end;

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

[mkinzler]

Du mußt auch den String verwenden, in welchem du ersetzt hast:

Delphi-Quellcode:

str:= StringReplace(value, '.', '', [rfReplaceAll]);
toFormat:= StrToFloat(str);

[Klaus01]

Delphi-Quellcode:

function TestTfrm_budgets.getFormatted(value: String; decPlaces: Integer): Real;
var toFormat: Integer;
    str: String;
begin
  if value = '' then
    toFormat:= 0
  else begin
    str:= StringReplace(value, '.', '', [rfReplaceAll]);
    toFormat:= StrToFloat(str);  // <---- str anstelle von value
  end;
  result:=toFormat*power(10,(decplaces*-1));
end;

Nur solltest Du noch sehen, das wenn Du alle Punkte (.) mit StringReplace löscht
Du ein Problem bekommen könntest wenn Dein Programm auf einem englischen OS mit den englischen
Ländereinstellungen läuft.
Wenn Du aus der DB sowieso nur Ganzzahlwerte ausliest und die Nachkommastelle getrennt geliefert
bekommst, wäre es vielleicht sinnvoller den value mit StrToInt umzuwandeln.

Delphi-Quellcode:

var toFormat: Integer;
..
toFormat:= StrToInt(str);

[edit] sorry mkinzler, hatte Dich übersehen [/edit]

Grüße
Klaus

[newgro]

Arggghhh.

Delphi-Quellcode:

toFormat:= StrToFloat(str);  // <---- str anstelle von value

Danke Euch beiden. Ja ja der Wald und die Bäume :-)

@Klaus: In der DB sind die Felder value:Real und decPlaces:Integer. Die NKS werden nur für die Ausgabe genutzt.
Also: value = 1000,00 und NKS = 0 dann Ausgabe 1000 | value = 1000,00 und NKS = 4 dann Ausgabe 1000,0000

Was ich mich frage ist, wieso ich den f.ThousandSeparator nicht nutzen kann. Dann wäre doch das Locale-Problem (en, de) gelöst.
Aber leider kommt bei StringReplace(str, f.ThousandSeparator, '', [rfReplaceAll]) trotzdem wieder der ungültige Gleitkommawert raus.

Und als nächstes frage ich mich, warum das hier wieder nicht geht

Delphi-Quellcode:

result:= StrToFloat(format('%.' + IntToStr(decPlaces) + 'n', [toFormat]));

Ich benutze hier eine gültige Formatfunktion und will den Wert zurückwandeln. Sollte das nicht gehen?

Danke
Per

[Klaus01]

Zitat:

Zitat von newgro

[delphi]
@Klaus: In der DB sind die Felder value:Real und decPlaces:Integer. Die NKS werden nur für die Ausgabe genutzt.
Also: value = 1000,00 und NKS = 0 dann Ausgabe 1000 | value = 1000,00 und NKS = 4 dann Ausgabe 1000,0000

Guten Morgen Per,

mal eine etwas blöde Frage, was bringt es Dir wenn in value ein Wert von 12345,23 steht und NKS=4
hat dann auf ein Ergebnis zu kommen das da lautet 12345,2300 welches eigentlich keine Mehrinformation bietet
als 12345,23 - oder ?

Grüße
Klaus

[newgro]

Morgen Klaus,

jep. Aber wenn Du anfängst Summen zu bilden über Werte mit unterschiedlichen NKS ist das notwendig.
So bietet zwar 123.5600 keine Mehrinfos. Wohl aber value:123.5600 + value1:125.8979

Ich habe mir das ja auch nicht ausgedacht :-) Ist halt eine Anforderung von meinem Chef :-(

[newgro]

OK, das Problem mit dem f.ThousandSeparator habe ich jetzt gelöst. Ich kann ihn verwenden, wenn ich f: TFormatSettings initialisiert habe

Delphi-Quellcode:

GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, f);

Bleibt noch die Frage mit dem StrToFloat(formatierterString)

Cheers
Per

[Klaus01]

Delphi-Quellcode:

result:= StrToFloat(format('%.' + IntToStr(decPlaces) + 'n', [toFormat]));

Wenn Du toFormat mit n formatierst werden wieder Tausendertrennzeichen in den String eingeführ.
StrToFloat mag aber keine Tausendertrennzeichen.
Wenn Du hier die Nachkommastellen haben willst,machen die nur als String einen Sinn,
denn wenn Du das ganze wieder in einen Floatwert konvertierst ist die Angabe von Nachkommastellen
relativ zweckfrei. Die Realwerte haben nur soviele Nachkommastellen wie nötig sind.

Delphi-Quellcode:

result:= StrToFloat(format('%.' + IntToStr(decPlaces) + 'f', [toFormat]));

[/delphi]
Ist unsinning, kürzer ist

Delphi-Quellcode:

result:=toFormat;

und kommt auf das gleiche heraus.

Die getrennte Angabe von Nachkommastellen in der DB macht für mich nur Sinn wenn value ein Integerwert ist.
Floats werden in der DB wohl mit der richtigen Nachkommastellenanzahl gespeichert.
Vielleicht macht es noch Sinn um die Maximale Nachkommastellenanzahl zu begrenzen,
dann würde aus 123456,33333333 mit NKS=4 -> 123456,3333 -> was aber die Rechengenauigkeit einschränckt.

Deswegen würde ich runden, wenn das Gesamtergebnis präsentiert werden soll und nicht schon beim Einlesen
der einzelnen Werte.

Grüße
Klaus

[newgro]

Danke für die ausführliche Erklärung.

Also mal kurz zu dem Format der Daten in der DB.

Ich habe in einer DB-Tabelle Monatswerte:Real für Umsatz und Mitarbeiter und und und.
Die werden leider mal als 12 - oder 12,9 oder 12,987 eingetragen.
Nun soll der Umsatz mit N Stellen nach dem Komma und die Mitarbeiter als "Pseudo-Integer"
ohne NKS dargestellt werden. Dafür ist der ganze Aufwand.

Ok nach langem hin und her habe ich jetzt folgende Lösung, die soweit zu funktionieren scheint :-)

Delphi-Quellcode:

{
  Format a real value with decimal places
  @param value the real to format
  @param decPlaces the decimal places to set
  @return String the formatted value
}
function Tfrm.getFormatted(value: Real; decPlaces: Integer): String;
begin
  result:=format('%.' + IntToStr(decPlaces) + 'n', [value]);
end;

{
  Get a float from a string
  @param value the string to convert
  @return Real the value
}
function Tfrm.getFloat(value: String): Real;
var str: String;
    f: TFormatSettings;
begin
  if value = '' then
    result:= 0
  else begin
    GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, f);
    str:= StringReplace(value, f.ThousandSeparator, '', [rfReplaceAll]);
    result:= StrToFloat(str);
  end;
end;

Danke nochmal an alle die an der Lösung mitgeholfen haben.
Cheers
Per