Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.01.2017, 17:24   #11
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Цитата:
Сообщение от 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;
Как она вообще может влиять на какие-то другие программы?

Последний раз редактировалось Arigato; 13.01.2017 в 17:27.
Arigato на форуме Ответить с цитированием
Старый 14.01.2017, 02:26   #12
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Старых версий под рукой сейчас нет.
Помню только что в них была глобальная переменная UpdateFormatSettings.
Ясен пень, что она при значении True разрешала приложению реагировать на смену соответствующих системных настроек.
Но вот почему-то мне кажется, что она позволяла и менять системные настройки.
P.S.
Давно это было. Мой склероз мог многое перепутать.
northener вне форума Ответить с цитированием
Старый 14.01.2017, 15:52   #13
greendoom
Пользователь
 
Аватар для greendoom
 
Регистрация: 25.04.2010
Сообщений: 11
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при выводе Pasha_Sh Общие вопросы Delphi 7 27.03.2015 19:52
Ошибка при выводе trad Общие вопросы C/C++ 7 15.01.2011 11:32
tchart - Как при наведении курсора на определенную точку сериэса узнать точку наведения и отобразить её xaero93 Помощь студентам 0 22.04.2009 19:28
При расположении Label на компонентах, место под Label, не реагирует на событие onClick. NavigatorNeba Компоненты Delphi 3 15.11.2008 19:56