Moin Community,

ich drehe hier gerade am Rad und zwar gewaltig, auch habe ich schon im Forum hier gesucht, und alles bringt irgendwie nichts.

Ich bin dabei Textdateien automatisiert einzulesen und abzuarbeiten.. Nun habe ich mit StrToFloat ein Problem, und jede Variante bringt mir entweder eine Fehlermeldung oder ich bekomme 0 als Value zurück.

Mein System: Win7 Pro deutsch, Delphi 2010 Pro.

Ausgangsbasis:

zusammenfalten · markieren

Delphi-Quellcode:

var
  aStr: String;
  ba_entry: TStringList;
  dValue, dBalance: Real;
  fmtSettings: TFormatSettings;

begin
  [...]

  Datei einlesen, Zeile zerlegen, Werte entsprechend in ba_entry haben. Debugger ergibt folgende Werte:

    ba_entry.Strings[6]='12,34';
    ba_entry.Strings[7]='12.345,67';


1) Variante:

  GetFormatSettings(LOCALE_SYSTEM_DEFAULT, fmtSettings);
  // Format setzen.
  fmtSettings.DecimalSeparator:=',';
  fmtSettings.ThousandSeparator:='.';

  // Werte Wandeln.
  dValue:=StrToFloat(ba_entry.Strings[6], fmtSettings); <- Liefert wie erwartet 12.34 zurück.
  dBalance:=StrToFloat(ba_entry.Strings[7], fmtSettings); <- Hier gibts eine Exception "Kein gültiger Gleitkommawert"...

2) Variante:
  GetFormatSettings(LOCALE_SYSTEM_DEFAULT, fmtSettings);
  // Format setzen.
  fmtSettings.DecimalSeparator:=',';
  fmtSettings.ThousandSeparator:='.';

  // Werte Wandeln.
  dValue:=StrToFloat(StringReplace(ba_entry.Strings[6], fmtSettings.ThousandSeparator, '', [rfReplaceAll]), fmtSettings); <- Liefert 12.34 zurück.
  dBalance:=StrToFloat(StringReplace(ba_entry.Srings[7], fmtSettings.ThousandSeparator, '', [rfReplaceAll]), fmtSettings); <- Liefert 0 Zurück (Keine Exception)!

3) Variante
  GetFormatSettings(LOCALE_SYSTEM_DEFAULT, fmtSettings);
  // Format setzen.
  fmtSettings.DecimalSeparator:=',';
  fmtSettings.ThousandSeparator:='.';

  // Werte Wandeln.
  aStr:=StingReplace(ba_entry.Strings[6], fmtSettings.ThousandSeparator, '', [rfReplaceAll]);
  dValue:=StrToFloat(aStr); <- Liefert 12.34 zurück.

  aStr:=StingReplace(ba_entry.Strings[7], fmtSettings.ThousandSeparator, '', [rfReplaceAll]);
  dBalance:=StrToFloat(aStr); <- Liefert 0 Zurück (Keine Exception)!

Dann hab ich mir gedacht, okay, scheint irgendwas mit der Stringverwaltung zu sein... Also:

4) Variante:
  GetFormatSettings(LOCALE_SYSTEM_DEFAULT, fmtSettings);
  // Format setzen.
  fmtSettings.DecimalSeparator:=',';

  // Werte Wandeln.
  dBalance:=StrToFloat('12345,67');
  // Alternative: dBalance:=StrToFloat('12345,67', fmtSettings);

  ^ Diese beiden Versuche liefern ebenfalls den Wert 0 zurück... Und ich weiss nicht warum...

  [...]
end;

Joar, da steh ich nun und weiss nicht weiter... Entweder bekomm ich eine Exception an den Kopf geballert, oder halt 0.. Aber nie den Wert. Allerdings tritt dies _immer_ nur bei 'dBalance' und NIE(!) bei dValue auf.. Ich kanns auch umdrehen, also erst dBalance:= und dann dValue per StrToFloat versuchen zu konvertieren.. Immer noch das gleiche.
Ich mein, vielleich bin ich ja zu Blöde oder seh den Wald vor lauter Bäumen nicht...


Irgendjemand einen Rat/Hilfe/Knarre () ?


Sonnige Grüsse,
easy.

Ich vermute mal das als ThousandSeparator , verwendet wird, deshalb schlägt die Zuwewisunf fehl

markieren

Delphi-Quellcode:

  fmtSettings.ThousandSeparator:='.';
  fmtSettings.DecimalSeparator:=',';
  fmtSettings.ThousandSeparator:='.';

Btw. Statt StrToFloat würde ich TryStrToFloat() oder StrToFloatDef() verwenden

Unter Delphi 2007 funktioniert es bei mir so:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TfrmTest.btnTestClick(Sender: TObject);
const Zahl = '12.345,67';
var bla: double;
    fmtSettings: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fmtSettings);
  fmtSettings.DecimalSeparator := ',';
  fmtSettings.ThousandSeparator := '.';
  bla := StrToFloat(StringReplace(trim(Zahl),fmtSettings.ThousandSeparator,'',[rfReplaceAll]));
  ShowMessage(Format('%f',[bla]));
end;

Da Delphi2010, änder mal String in Ansistring
Real in Double

Wenn das nicht hilft alle Punkte und Komma wegschmeissen
Nach Integer konvertieren und dann durch 100 teilen..


Gruss
wo

Schau dir mal das da an

Damit hast du keine Sorgen mehr, sondern gleich ein paar Probleme weniger und der Zugriff ist wesentlich einfacher

Ich hätte hier noch eine Funktion, die die Zahlenstrings so aufbereitet,
dass man sie leicht einlesen kann:

zusammenfalten · markieren

Delphi-Quellcode:

function MakeValidFloatString(const s: string): string;
var
   i : Integer;
   dpchar : Char;
begin
   dpchar := #0;
   // Dezimaltrennzeichen suchen ausgehend von "rechts"
   for i := length(s) downto 1 do
   begin
      case s[i] of
         ',':
         begin
            dpchar := ',';
            Break;
         end;
         '.':
         begin
            dpchar := '.';
            Break;
         end;
      end;
   end;

   // Tausender Separator aus dem String entfernen, weil es
   // bei der Umwandlung von String zu Float stört
   // wenn ein Dezimaltrennzeichen gefunden wurde, dann ist
   // das Tausendertrennzeichen gerade das andere
   case dpchar of
      ',': Result := StringReplace(s,'.', '',[rfReplaceAll]);
      '.': Result := StringReplace(s,',', '',[rfReplaceAll]);
   else
      Result := s;
   end;

   // Dezimal Separator ersetzen
   if (dpchar <> #0) and (dpchar <> DecimalSeparator) then
      Result := StringReplace(Result, dpchar, DecimalSeparator, []);

   if (Trim(Result) = '') then
      Result := '0';
end;

Moin Zusammen,

dass das mit dem ThousandsSeparator nicht funktioniert, ergibt, zumindest für D7 und D2006, ein Blick in die Hilfe von StrToFloat:

Zitat:

Thousand separators and currency symbols are not allowed in the string.

Vermutlich ist das bei 2010 auch so.

Zitat von WoGe:

Da Delphi2010, änder mal String in Ansistring
Real in Double

Wenn das nicht hilft alle Punkte und Komma wegschmeissen
Nach Integer konvertieren und dann durch 100 teilen..


Gruss
wo

Und was ist wenn die Zahl 3 nachkoma hat?

Man kann es eben halbherzig oder richtig machen

Meine Funktion aus Betrag #6 ist "kampferprobt" durch Unit-Tests;
sie funktioniert also mit hoher Wahrscheinlichkeit immer.
(Es sei denn es wird wie in der Schweiz und in Liechtenstein grundsätzlich das Komma verwendet.)