При выводе вещественной суммы в Label запятая заменяется на точку.

[Arigato]

Сообщение от northener

В более старых версиях за это нужно отрубать руки и головы!
Т.к. там это глобальная настройка, влияющая на все прочие программы.

Бред какой-то. Запустил Delphi 2007, набрал такую программу:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a: real;
  s: string;

begin
  DecimalSeparator := '.';
  a := 0.5;
  s := FloatToStr(a);
  a := StrToFloat(s);
  writeln(s, ' - ', a:0:1);
  readln;
end.

Результат: 0.5 - 0.5

Убрал DecimalSeparator := '.';

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a: real;
  s: string;

begin
  //DecimalSeparator := '.';
  a := 0.5;
  s := FloatToStr(a);
  a := StrToFloat(s);
  writeln(s, ' - ', a:0:1);
  readln;
end.

Результат: 0,5 - 0.5

Что я делаю не так, почему параметр DecimalSeparator не сохранился при перезапуске программы? За что мне собрались отрубить руки и голову?

К слову, это просто переменная в модуле SysUtils

var
  DecimalSeparator: Char;

Как она вообще может влиять на какие-то другие программы?

[northener]

Старых версий под рукой сейчас нет.
Помню только что в них была глобальная переменная UpdateFormatSettings.
Ясен пень, что она при значении True разрешала приложению реагировать на смену соответствующих системных настроек.
Но вот почему-то мне кажется, что она позволяла и менять системные настройки.
P.S.
Давно это было. Мой склероз мог многое перепутать.

[greendoom]

Прописал при создании формы одну строчку

DecimalSeparator := ',';

и все. Выводит все как надо, с запятой сумму всю. Причем в винде в настройках выставил специально точку. Ребутнул комп, проверил, что в настройках винды стоит точка и никуда она не делась. Запустил прогу и все ок. Убираю эту строку, перезапуск, все как положено берется точка с настроек винды. Так что в Делфях 7 на глобальную переменную не влияет. Всем спасибо!