Как подменить любой разделитель на точку

← →
Сергей (2013-03-22 16:47) [0]

Всем привет.
Работаю с дата сетом. пытаюсь занести значение.
F:TField
F.AsVariant:=nv;
В региональних настройках стоит разделитель "," а в базе всегда ".", поэтому появляется ошибка приведения типов. Можно ли как то настроить датасет на точку, без изменения региональных настроек?

← →
Inovet © (2013-03-22 16:51) [1]

У тебя в программе что-то не так.

← →
Ega23 © (2013-03-22 17:04) [2]

> а в базе всегда "."

Ты хранишь числа в строках?
Оригинально.

← →
Игорь Шевченко © (2013-03-22 17:18) [3]

SysUtils.DecimalSeparator влияет только на твоей приложение

← →
Плохиш © (2013-03-22 17:28) [4]

> В региональних настройках стоит разделитель "," а в базе
> всегда "."

В базе нет даже такого понятия "разделитель".

← →
Smile (2013-03-22 17:34) [5]

Ну, например:
procedure TForm1.FormCreate(Sender: TObject);
begin
DecimalSeparator:= ".";
end;

Не забыть вернуть "на место! при выходе из программы
:)

← →
Плохиш © (2013-03-22 17:39) [6]

> Не забыть вернуть "на место! при выходе из программы

1. Зачем?
2. В приведённом коде, нет никакой гарантии, что при последующем выполнении программы DecimalSeparator всё ещё не изменился на системный.

← →
Плохиш © (2013-03-22 17:39) [7]

← →
Smile (2013-03-22 17:44) [8]

> Плохиш © (22.03.13 17:39) [6]

Да :)

← →
Smile (2013-03-22 17:45) [9]

как-то присылался нам текстовый файл, который делали, похоже, ногами,
и каждый раз числа были по-разному, то . то ,
У нас тоже, то с одного компа обрабатывают, то с другого (то . то ,)
Сделал аля
for CH in [зпт, точка ]
sVal := StringReplace(sVal, CH, DecimalSeparator, [флаг] );
ну и nVal := StrToFloat( sVal)
и так же с датами, там тоже какая-то заморочка была

Понятно..
Дружба с TFormatSettings так и не освоена.

← →
Podgoretsky (2013-03-23 20:48) [12]

И именно ее надо использовать, многопоточна.

Как подменить любой разделитель на точку Найти похожие ветки