Работа с DecimalSeporator.

← →
Kolan © (2006-07-27 20:52) [0]

Здраствуйте,
Как полностью обезопасить приложение от ошибок, которые могут возникнуть при разных значениях DecimalSeparator. Те что нужно запомнить, (как писать) чтобы избежать любых ошибок связаных с ним.

Пусть приложение выполняет всевозможные работы с числами с пл. точкой.

Т.е. хотелось бы получить аналог:
var Object: TObject; begin Object := TObject.Create; try finally Object.Free; end; end;
Этот ког гарантирует удаление объекта, а я хочу подобное правило но для DS.

PS
А то вечер убил сегодня....
PPS
Понятно что бездумно писать ничего не буду...

← →
Степан (2006-07-27 20:59) [1]

Что я не понял... а что ты собрался удалять?! DecimalSeparator?!?!

← →
Kolan © (2006-07-27 21:04) [2]

Нет.

Пример программа считывает число из инишки: 2,23. Все ок....

А на др компе DS=".". В результате Invalid floating point value....

Хотелось бы раз и на всегда пистать в таком стиле, чтобы все работало верно вне зависимости от DS....

← →
Dmitrij_K (2006-07-27 21:06) [3]

Когда строку переводишь в число проверять надо и сообщать юзверю

Try
Except
end

или

TryStrToFloat

← →
Джо © (2006-07-27 21:06) [4]

TryStrToFloat позволяет убедиться в том, что в строке содержится корректное значение. Что еще имеется в виду под "обезопасить приложение от ошибок, которые могут возникнуть при разных значениях DecimalSeparator" я, честно говоря, не понял.

← →
Джо © (2006-07-27 21:07) [5]

> [4] Джо © (27.07.06 21:06)

Это я автору.

← →
Kolan © (2006-07-27 21:14) [6]

> TryStrToFloat

Угу понятно, осталось только добавить, и если TryStrToFloat вернет ложь нужно...

те:
var
S: string;
Val: Double;
begin
S := "1,222";
if not TryStrToFloat(S, Val) then
{...}
end;

← →
Галинка © (2006-07-27 21:44) [7]

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

← →
Kolan © (2006-07-27 21:46) [8]

> Галинка © (27.07.06 21:44) [7]

DecimalSeparator := ",";
Так что - ли?

← →
Пусик © (2006-07-27 22:42) [9]

function ToDouble(const Src: String): Double; var s: String; i: Integer; begin s := Src; for i := 1 to Length(s) do begin if (s[i]<#48) or (s[i]>#57) then begin s[i] := DecimalSeparator; Break; end; end; Result := StrToFloat(s); end;

← →
Kolan © (2006-07-27 22:47) [10]

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

Вот этот код в Str положит строку с указаным разделителем(в данном случае "."):

const CFormatSettings:TFormatSettings=(DecimalSeparator:"."); Str:=FloatToStr(Value,CFormatSettings);

Теперь чтобы правильно сконвертировать число:

CFormatSettings - сделал переменной, и при чтении:

{Получаю разделитель в системе} CFormatSettings.DecimalSeparator := DecimalSeparator; {При преобразовании использую его} Value := StrToFloat(Edit1.Text, CFormatSettings);

Вроде работает. Правильно ли это решение?

← →
Kolan © (2006-07-27 22:48) [11]

> Пусик © (27.07.06 22:42) [9]

Угу тоже вариант, но цикл крутить.... В любом случае благодарю.

> Kolan © (27.07.06 22:48) [11]

Число может быть получено не только от пользователя и в этой версии ОС, но и с другого компьютера(например, из текстового файла, ini-файла), просто из другой программы. В этом случае невозможно будет гарантировать, что разделительем является именно точка или запятая в числе. Им вполне может быть знак "=" или "-".

И ты всегда такие циклы делаешь???

> Kolan © (27.07.06 23:14) [13]
> И ты всегда такие циклы делаешь???

Нет, конечно.
У меня обычно может возникнуть только 2 варианта - точка и запятая.
В таком случае проще воспользоваться StringReplace дважды, хотя с циклом вроде как должно быть оптимальнее.

s := StrinReplace(s,".",DecimalSeparator,[]); s := StrinReplace(s,",",DecimalSeparator,[]);

В общем случае задача нерешаема.
Вот к примеру приехала к вам строка "33,333"
Как понять, что это?
То ли это дробное 33.333 из системы где запятая - decimal separator, то ли это целое 33333 с компьютера где запятая - разделитель тысяч.
А есть комбинации еще и покудрявее этой.

Работа с DecimalSeporator. Найти похожие ветки