[ETCartman]

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

[hwd]

Сообщение от ETCartman Просто я мало знаком с делфи, методом тыка иногда приходится что то делать.

И что, это адекватная причина не задавать свой вопрос на специализированных форумах "delphi/lazarus"? Хотя, если тебе "шашечки", а не "ехать", то можно и здесь...

[gomer]

программисты делают так: создают класс на основе текстбокса, компилируют в пакет, устанавливают в IDE, пользуются.

[zamtmn]

Перед выполнением операций по преобразованию строк поставить

Код:

[Выделить все]

DecimalSeparator:='.';

>>куда прописать переменную (в программе несколько юнитов и форм) чтобы сразу везде отпала проблема с десятичным разделителем?
таких мест много

[hwd]

вообще, чтобы не изобретать подобного рода велосипеды, давно существует такое понятие, как "локализация".

[ShaggyDoc]

Не надо никаких классов. Просто где-то в свой библиотечный модуль (в котором в uses включить SysUtils) включить функции:

Код:

[Выделить все]

function FloatToStrUS(value: double; decimals: integer): string;
var
  Oldseparator: char;
begin
  Oldseparator := DecimalSeparator;
  DecimalSeparator := '.';
  Result := FloatToStrF(value, ffFixed, 3, decimals);
  DecimalSeparator := OldSeparator;
end;

function StrUStoFloat(value: string): double;
var
  Oldseperator: char;
begin
  Result := 0;
  Oldseparator := DecimalSeparator;
  DecimalSeparator := '.';
  try
    Result := StrToFloat(value);
  except
  end;
  DecimalSeparator := OldSeparator;
end;

Применять там, где надо читать-писать числа в файл, например. Можно сделать аналогичные с разделителем ','. Такой прием должен обязательно использоваться, чтобы программа была независимой от настроек Windows.

[gomer]

Эт все каменный век

[ETCartman]

спасибо всем за ответы. Метод ShaggyDoc мне понятен и близок, но программа частично писана не мной, где она там читает и пишет - даже сложно сообразить, во множестве мест. Боюсь что поиском заменой я только запорчу все.
У меня вопрос к вам, zamtmn, про
DecimalSeparator:='.';
и про то что таких мест много. Я на самом деле не знаю просто в каком месте в юните нужно вставлять эту строчку - после какого ключевого слова. Там где глобальные переменные декларируются? Ну то есть я совсем темный человек в делфи. А любимым методом тыка есть вероятность накосячить а не исправить

[ShaggyDoc]

DecimalSeparator - это "глобальная переменная", описанная в модуле SysUtils. Он обычно включается в каждый другой модуль - там все основные процедуры и функции Pascal. Когда используются штатные функции, например StrToFloat, внутри них происходит чтение текущего состояния DecimalSeparator.

даже сложно сообразить, во множестве мест. Боюсь что поиском заменой я только запорчу все.

И соображать особенно не надо - искать, например, вызовы StrToFloat. Но заменять не автоматически, а посмотрев, как применяется. Менять надо там, где возможен пользовательский ввод или чтение из файла. Причем ввод через правильные контролы обычно учитывает текущую настройку Windows. Там просто не дают ввести точку вместо запятой или наоборот.

Альтернатива - написать, что для этой программы делать такую-то настройку Windows, что сразу делает программу любительской.

[zamtmn]

ETCartman
Если нет желания разбираться что там и как в чужой программе - попробуй просто добавить в секцию инициализации соответствующего юнита (перед последним end. с точкой или после ключевого слова initialization если оно есть в конце модуля). Также можно добавить в "основной" файл проекта перед application.run.
Но лучше таки разобраться и "обрамить" только нужные места.
Делать "обертки" над системными функциями преобразования имхо не выход - таких функций довольно много, не только StrToFloat, придется править чужой код, "лишние" действия какими бы мизерными они небыли скажутся на производительности при обработке больших входных данных

[ETCartman]

спасибо! работает после ключевого слова initialization
- в основном модуле

[ShaggyDoc]

Сообщение от ETCartman спасибо! работает после ключевого слова initialization - в основном модуле

Так вообще незачем делать. Просто в "основной модуль" в uses включаются любые другие модули. Тогда в основном модуле становятся доступными функции и процедуры, описанные во включаемых модулях. Чтобы они были доступны, надо описания функций включать в секцию interface, а реализацию - в секцию implementation.
Например:

Код:

[Выделить все]

unit StringsUtils;

interface

function FloatToStrUS(value: double; decimals: integer): string;
function StrUStoFloat(value: string): double;

implementation
uses SysUtils;

function FloatToStrUS(value: double; decimals: integer): string;
var
  Oldseparator: char;
begin
  Oldseparator := DecimalSeparator;
  DecimalSeparator := '.';
  Result := FloatToStrF(value, ffFixed, 3, decimals);
  DecimalSeparator := OldSeparator;
end;

function StrUStoFloat(value: string): double;
var
  Oldseperator: char;
begin
  Result := 0;
  Oldseparator := DecimalSeparator;
  DecimalSeparator := '.';
  try
    Result := StrToFloat(value);
  except
  end;
  DecimalSeparator := OldSeparator;
end;
end.

А в initialization включаются, при необходимости, действия, которые необходимо выполнить при загрузке программы. Это своего рода "autoexec". В подавляющем большинстве случаев этого не надо делать, хотя иногда не обойтись. Можно, конечно там записать и изменение DecimalSeparator, но это в итоге плохо кончится.

Шёл бы ты отсюда http://www.delphimaster.ru
Есть такая глобальная переменная FormatSeting. Там твой сепаратор и сидит.

[ETCartman]

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

Можно, конечно там записать и изменение DecimalSeparator, но это в итоге плохо кончится.

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

bahil вам тоже спасибо за линк. Но я не пойду куда вы посылаете. Тут на форуме достаточно людей неплохо владеющих вопросом.
На спецфоруме меня пошлют в Faq, потом еще поглумятся, и потом может быть что то выдавят. Тут люди предметные и без понтов - меня больше устраивает

[ShaggyDoc]

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

То, что одна из программ изменит глобальные настройки Windows. При этом у пользователя может быть открыто и другое приложение, в котором он привык к другому разделителю. Например вдруг окажется что в Excel числовые ячейки будут восприниматься как строковые.

Потому и делают временные изменения глобальных настроек только в момент использования, и сразу их восстанавливают. Никакая программа не должна влиять на работу других приложений.

Если уж записывать в initialization, то непременно надо сделать обратное действие в finalization этого же модуля. В этом случае настройки будут устанавливаться при загрузке вашей программы и востанавливаться при её выгрузке.

[zamtmn]

ShaggyDoc, ETCartman
DecimalSeparator к настройкам ОС не имеет никакого отношения и работает только внутри данного сеанса данного приложения. Если его не вернуть обратно, максимум что может произойти - проблемы в других частях программы, которые ожидают запятую, а не точку. Если таких частей нет - то никаких проблем быть не может и восстанавливать ничего ненадо

[gomer]

Вот так просто можно запретить ввод ненужных символов в текстовое поле

Код:

[Выделить все]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
var chars : set of char;
begin
  chars := ['0' .. '9', #8];
  with Sender as TEdit do
  begin
    if Length(Text) = 0 then
      chars := chars + ['-'];
    if Pos(DecimalSeparator, Text) = 0 then
      chars := chars + [DecimalSeparator];
  end;
 
  if not (Key in chars) then Key := #0;
end;

[zamtmn]

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