Hilfe: Fehler beim casten ... StrToFloat(...)

[winx]

Hallo,

ich habe ein riesen Problem und weiss echt mich mehr was ich
ändern soll.

Ich frag über eine COM Schnittstelle eine Funktion ab und will dann den dort
zurückgegebenen Wert in eine Float Zahl casten:

Delphi-Quellcode:

function TObjectPropertiesHandler.getObjectLeft(): double;
var str : string;
begin
  try
    DecimalSeparator := '.'; //Hab auch schon versucht DecimalSeparator := ','; oder die Zeile auskommentiert
    str := getObjectProperty('LEFT'); //'str: String "23.2961992136304"'
    result := StrToFloat(str);//Exception wird geschmissen
  except
    on E:Exception  do begin
      Console.WriteLine(E.Message); //Exception._message: String "'23.2961992136304' ist kein gültiger Gleitkommawert" 
      raise E;
    end;
  end;
end;

Egal was ich mache, wie ich den Decimalseperator setze, dieser Fehler kommt immer, dabei ist der Wert doch gültig...

Was läuft da falsch???

Danke,
winx

[inherited]

Hi,
Kommentier doch das mit dem '.'-Setzen mal aus und Ändere einfach via

->StrReplace

den '.' in ein ','

€dit: du hast den Thread 2mal erstellt

[mkinzler]

Oder versuchs durch Verändern der Konstante DecimalSeparator ( weiß nicht ob das in Delphi.Net vorhanen ist, sollte aber)

[inherited]

Das hat er doch versucht, afair

[mirage228]

Hi,

StrToFloat() hat eine überladene Variante, die den Parameter FormatSettings akzeptiert.
Schau Dir das mal an :)

mfG
mirage228

[winx]

Also ich habe jetzt alles gemacht.

Die doppelten " hab ich dazugefügt, der String sieht ganz normal aus.

Selbst wenn ich den String hart kodiere also so:

Delphi-Quellcode:

function TObjectPropertiesHandler.getObjectLeft(): double;
var str,str2 : string;
    ds:TFormatsettings;
    i : integer;
begin
  try
    DecimalSeparator := '.';
    str := getObjectProperty('LEFT');
    {str := StringReplace(str,',','.',[rfReplaceAll]);
    str := StringReplace(str,'"','',[rfReplaceAll]);}
    str := '23.2961992136304';
    //GetLocaleFormatSettings(0,ds);
    //ds.DecimalSeparator := '.';
    Console.WriteLine(str);
    result := StrToFloat(str);
  except
    on E:Exception  do begin
      Console.WriteLine(E.Message);
      raise E;
    end;
  end;
end;

kommt die fehlermeldung!!!

Ich schnall jetzt bald gar nix mehr.

Hab

• Decimalseperator
• StringReaplce
• FormatSetting

aber nix klappt, das kann doch nich sein, oder???

Der String im Debugger sieht übrigens so aus:

http://spotlight-data.de/image_uploa...20.upload.jpeg

Hat noch jemand nen Tip???

Danke,
winx

[Muetze1]

Delphi-Quellcode:

function TObjectPropertiesHandler.getObjectLeft(): double;
var str,str2 : string;
    ds:TFormatsettings;
    i : integer;
begin
  try
    str := getObjectProperty('LEFT');
    str := StringReplace(str,',',DecimalSeparator,[rfReplaceAll]);
    str := StringReplace(str,'.',DecimalSeparator,[rfReplaceAll]);}
    //Console.WriteLine(str);
    result := StrToFloat(str);
  except
    on E:Exception  do begin
      Console.WriteLine(E.Message);
      raise E;
    end;
  end;
end;

Der DecimalSeparator wird auch von anderen Funktionen wieder zurück gesetzt. Ein umsetzen des selbigen wird grundsätzlich überhaupt nicht empfohlen, daher lieber den String auf eine kompatible Form bringen - unabhängig welcher nun der aktuelle Separator ist.

/EDIT: Ups, hier gehts um .NET - sorry, alles was hier steht bezieht sich auf die VCL ohne .NET !!

[winx]

habs getestet :

Exception._message: String '23.2961992136304' ist kein gültiger Gleitkommawert

Irgendwas stimmt da überhapu nich :-(

[mbamler]

Zitat:

Zitat von winx

habs getestet :

Exception._message: String '23.2961992136304' ist kein gültiger Gleitkommawert

Irgendwas stimmt da überhapu nich :-(

var
d: double;
begin
d := StrToFloat('23,2961992136304'); //man achte auf das KOMMA
...

funktioniert einwandfrei

Gruß
Matthias

[winx]

vielleicht liegts auch am .Net

habs jetzt so versucht:

Delphi-Quellcode:

nfc := NumberFormatInfo.Create;
nfc.CurrencyDecimalSeparator := '.';
StringReplace(str,',',nfc.CurrencyDecimalSeparator,[rfReplaceAll]);
result :=  Convert.ToDouble(str,nfc);

und es klappt!!!