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

[greendoom]

Проблема такова. Dbgrid + adotable + datasource. Есть столбец с числами с запятой, два знака после нее. Суммирую столбец. Сумму кидаю в лейбл. У меня на компе отображается сумма с запятой, два знака после, все как положено. На любом другом, где нет делфи, отображается сумма с точкой, два знака после. В чем косяк, подвох, не могу понять? Мне надо запятая чтобы была, а не точка. Пробовал и FloatToStr и FloatToStrF. Результат одинаковый. Вот часть кода:

var 
c,sum:Double;   // для подсчета суммы в архиве
begin
//подсчет суммы по столбцу
ADOTable3.First;
sum:=0;
While not ADOTable3.Eof do
begin
c:=ADOTable3['Сумма_операции'];
sum:=c+sum;
ADOTable3.Next;
end;
Label57.Caption:=FloatToStr(sum);
end;

[type_Oleg]

Может быть, это поможет - http://www.programmersforum.ru/showthread.php?t=302395

[greendoom]

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

Может быть, это поможет - http://www.programmersforum.ru/showthread.php?t=302395

жесть)) вы правы оказались)) самое интересное, открыл же эту тему, она немного раньше моей была)) но не дочитал до конца)))) тока начал и закинул))) вот же в чем собака зарыта!)) а то у меня пашет, а на компе другом нет!)) в общем, спасибо тебе дружище!)) все именно так!)))

[Arigato]

DecimalSeparator := ',';
И при преобразовании из строки в число на всякий случай заменять току на запятую.

[greendoom]

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

DecimalSeparator := ',';
И при преобразовании из строки в число на всякий случай заменять току на запятую.

Куда эту строчку вставлять? При создании формы? А пример замены символа есть? Я так понял, при считывании надо. Или выводе?

[Serge_Bliznykov]

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

Куда эту строчку вставлять? При создании формы?

да. при запуске программы (ну, например, в процедуре OnCreate главной формы.
но это обеспечит Вам вывод значений в нужном формате.
а при вводе вещественных чисел рекомендуется заменять и точки и запятые на этот самый DecimalSeparator:
если есть в программе перевод из строки в число, конечно.
тогда перед StrToFloat(ss)
сделать

ss:=StringReplace(ss, '.', DecimalSeparator, []);
ss:=StringReplace(ss, ',', DecimalSeparator, []);
число := StrToFloat(ss);

// впрочем, try except в любом случае не помешает

[northener]

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

да. при запуске программы (ну, например, в процедуре OnCreate главной формы.

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

[Heneken87]

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

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

А за что руки то рубить?Serge_Bliznykov не заменяет глобальные настройки. Руки рубить надо тем, кто под нужды программы изменяет эти настройки,а не читает.
И код будет работать, у меня XE7, прекрасно понимает строчку

 if FormatSettings.DecimalSeparator<>',' then begin  add_errors(9); er:=True;end;

А вот за подобный код я бы тоже оторвал программисту все что торчит:

 if FormatSettings.DecimalSeparator<>',' then FormatSettings.DecimalSeparator:=',';

[Serge_Bliznykov]

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

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

что за ересь? DecimalSeparator в Delphi (старой) - это исключительно внутренняя переменная. Ни на какие другие программы это никак не влияет и влиять не может.
Вы с реестром или функциями WinAPI не путаете?

по поводу изменения настроек десятичного разделителя в программе (отличного от системного разделителя).
Тут, конечно, спорный момент.
Но, на мой взгляд, я не вижу никакого криминала, если программа игнорирует настройки винды и определяет свой разделитель.
Ну, например, никого же не смущает, что в программе на ЯВУ десятичная точка - это всегда ".", а не то, что назначил пользователь в региональных настройках винды?

впрочем, это уже выходит за рамки вопроса почему "При выводе вещественной суммы в Label запятая заменяется на точку".
Хотя Delphi в данном случае поступает именно так - как в винде настроено, так она и выводит. И почему-то TC это не нравится

[greendoom]

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

впрочем, это уже выходит за рамки вопроса почему "При выводе вещественной суммы в Label запятая заменяется на точку".
Хотя Delphi в данном случае поступает именно так - как в винде настроено, так она и выводит. И почему-то TC это не нравится

неа, не нравится)) потому что я не мог понять, что за ерунда творится))) ко всему прочему винда еще и не сохраняет те настройки, что я указал)) если я меняю запятую на точку в настройках, то после ребута системы настройки скидываются все равно на точку. это блин как??? следовательно, очень хорошо, что на этом моя тема не исчерпала себя. и тут развернулась дискуссия. видимо придется делать обходом в самом коде. и да, делфи у меня седьмое.