FormatFloat и обратно

[alexs]

Глупый вопрос.
Есть функция FormatFloat
А вот как обратно полученную строку превратить в число? TextToFloat и основанные на ней не работают. Проблема в разделителе тысяч. Там прям в коде написано:

Код: Выделить всё

  //ThousandSeparator not allowed as by Delphi specs

[wofs]

Я делаю таким велосипедом:

Код: Выделить всё

              
for N:= Length(Result) downto 1 do
      if not (Result[N] in [DefaultFormatSettings.DecimalSeparator, '0'..'9']) then Delete(Result, N, 1); 

[Vadim]

alexs
Я тоже сначала вручную убираю разделители тысяч:

Код: Выделить всё

СтрокаСПравильнымЧислом:=StringReplace(ИсходнаяСтрокаСЧислом, ПодстрокаРазделителяТысяч, '',[rfReplaceAll]);

[Снег Север]

Делал парсер строк в числа для программы, вытаскивавшей числовые данные с разнообразных сайтов. Да, только так - надо заранее знать что используется в качестве разделителя целой и дробной части, а потом очистка от всего лишнего. Обычно через Stringreplace.

[alexs]

Ок. Спасибо. Наверное функцию свою в модуль добавлю.