delphi xe5 Errore di StrToFloat che modifica ThousandSeparator in ","

Question

Cosa sto facendo male qui? Voglio semplicemente convertire una stringa formattata in una doppia e usare TFormatSettings passato come parametro a StrToFloat. Ottengo la seguente eccezione:

'3,332.1' is not a valid floating point value. 

Il separatore delle migliaia e separatore decimale sono i valori attesi ('' e '') in TFormatSettings.

procedure TForm2.Button1Click(Sender: TObject); 
var 
    FS: TFormatSettings; 
    S: String; 
    V: double; 
begin 
    FS:= TFormatSettings.Create; 
    codesite.Send('ThousandSeparator', FS.ThousandSeparator); //correct ',' 
    codesite.Send('DecimalSeparator', FS.DecimalSeparator); //correct '.' 
    S := '3,332.1'; 
    try 
    V := StrToFloat(S, FS); 
    except on E: Exception do 
    ShowMessage(e.Message); 
    end; 
    CodeSite.Send('S', S); 
    CodeSite.Send('V', V); 
end; 

Answer 1

Quello che state facendo qui è corretto, ma è inciampato in quello che sembra un bug (se non un bug, almeno un comportamento non molto consistente) del TextToFloat (sembra che ignora ThousandSeparator) funzione interna di unità di Delphi SysUtils (date un'occhiata al Q92265 a seguire risoluzione) ...

come una soluzione si può provare a rimuovere il separatore di gruppo, in questo modo:

StringReplace('3,332.1', ',', '', [rfReplaceAll]) 

Answer 2

questo comportamento è stato progettato come. Da documentation, con la mia enfasi:

Utilizzare StrToFloat per convertire una stringa, S, in un valore a virgola mobile. S deve consistere in un segno opzionale (+ o -), una stringa di cifre con un punto decimale opzionale e una mantissa opzionale. La mantissa consiste di "E" o "e" seguiti da un segno opzionale (+ o -) e un numero intero. Gli spazi vuoti iniziali e finali vengono ignorati.

La variabile globale DecimalSeparator o il suo equivalente TFormatSettings definisce il carattere utilizzato come punto decimale. Migliaia di separatori e simboli di valuta non sono consentiti nella stringa. Se S non contiene un valore valido, StrToFloat genera un'eccezione EConvertError.

Quindi è un errore passare una stringa contenente un separatore di migliaia a questa funzione.