Как узнать какой символ является разделителем дробной части

Posted by maloy under Delphi, Архив

DarkEvil

Собственно вопрос, может я туплю но всеже

var
 a : double;
begin
 a := '678.1';
 Showmessage(FloatToStr(a)); // Показует 678.1
 a := StrToFloat('678.1'); <<== а вот здесь ошибка
end;

Serge_Bliznykov

1) в Дельфи есть переменная DecimalSeparator
в начале программы DecimalSeparator := ‘.’;
и всё. дальше можно StrToFloat(‘123.24’)

2) можно использовать такой код (кидаю прямо кусок из рабочей программы, лишнее уберёте сами :

var
    dResult : double;
    repl_char : char;
...
  if DecimalSeparator = '.' then repl_char := ',' else repl_char := '.';
  StrReplace(S, repl_char , DecimalSeparator, [rfIgnoreCase, rfReplaceAll]);
  try
    dResult := StrToFloat(S)
  except
    dResult := -1;
  end;

Black Fregat

Кто сомневается, что FloatToStr и StrToFloat используют именно DecimalSeparator, может посмотреть их код в модуле sysutils.pas.

А инициализируется эта переменная там же из системной локали:

  DecimalSeparator := GetLocaleChar(DefaultLCID, LOCALE_SDECIMAL, '.');

тема на форуме от 2009 года

Похожие статьи

• Заменить точку в строке на заятую