var
FormatSettings:TFormatSettings;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FloatToStr(152.201,FormatSettings);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
GetLocaleFormatSettings (GetThreadLocale, FormatSettings);
// FormatSettings.DecimalSeparator := '.';
// можно вручную установить разделитель,
// если не трогать этот параметр, то используется
// разделитель по умолчанию (который в системе установлен)
// (т.е. в вашем случае запятая)
end;var
FormatSettings:TFormatSettings;
//--------------------------------------------------
// перегружаем, функция с тем же именем
function FloatToStr(Value: Extended): string;
begin
result:=SysUtils.FloatToStr(Value,FormatSettings);
end;
//--------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FloatToStr(152.201);
// Теперь будет вызвана наша функция
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
GetLocaleFormatSettings (GetThreadLocale, FormatSettings);
end;
