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

[DarkEvil]

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

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

[Neeter]

Если числом пишете, то надо точку, а если строкой, то запятую.
Сами подумайте, в строке можно писать запятые, а в числах запятая - разделитель кода (как, например, параметров).
Так что код будет вот так работать:

procedure TForm1.bt_1Click(Sender: TObject);
var
 a : double;
begin
 a := 678.1;
 Showmessage(FloatToStr(a));
 a := StrToFloat('678,1');
end;

[DarkEvil]

Да я почему-то подумал(торможу) что это связано с региональными стандартами

[Пепел Феникса]

вообще то связвнно но в России принята запятая
а вообще узнается он тут:
DecimalSeparator из модуля SysUtils

[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;

[Пепел Феникса]

в начале программы DecimalSeparator := '.';

не факт...у меня запятая

[Neeter]

DecimalSeparator служит для других целей, по-умолчанию, по крайней мере у меня, запятая.

[Black Fregat]

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

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

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

[Stilet]

Господа, не ссорьтесь

по крайней мере у меня, запятая.

Вот вот. Поэтому я всегда делаю так:

procedure TForm1.Edit1Change(Sender: TObject);
var c:Char;s:string;d:double;
begin
 c:=DecimalSeparator;
 DecimalSeparator:='.';
 s:=StringReplace(Edit1.Text,',','.',[]);
 if tryStrToFloat(s,d) then
    caption:=Format('%f',[d])
 else
    caption:='Это не число';
 DecimalSeparator:=c;
end;

Ну в общем в таком ключе.
как грится лучче перебдеть чем недобдеть.