[chellas88]

Такая проблемкка:
Есть поле в базе с плавающей запятой (FLOAT). Инфа в ней отображается с точкой. Когда я вывожу инфу на форму в string вместо точки отображается запятая и походу изза этого я не могу выполнить StrToFloat
Напрямую с поля Float в другую базу в поле Float данные тоже записать не могу. Помогите плиз

Код:

1 2 3 4

summ:= InputBox(match.Caption+' - '+label1.Caption, 'Óêàæèòå ñóììó ñòàâêè:', '0');   sql_bet.SQL.Clear;  sql_bet.SQL.Add('INSERT INTO `tour_'+ Form4.sql1.fieldbyname('id').AsString +'` (`user`, `bet_id`, `data`, `liga`, `team1`, `team2`, `bet`, `kf`, `summ`) VALUES ("'+form1.ZQuery1.fieldbyname('userid').AsString+'", "'+form4.sql2.fieldbyname('id').AsString+'", "'+time_text+'", "'+form4.sql2.fieldbyname('liga').AsString+'", "'+form4.sql2.fieldbyname('team1').AsString+'", "'+form4.sql2.fieldbyname('team2').AsString+'", "'+Form5.Label1.Caption+'", "+Form4.sql2.fieldbyname(p1)+", "'+summ+'")');   sql_bet.ExecSQL;

[chellas88]

проблемка именно с записью поля `kf` так как запрос хочет видеть только строку

[Vocabulary]

В любом модуле надо добавить две строки:

Код:

1 2 3

initialization              //1   DecimalSeparator := '.';  //2 end.

[chellas88]

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

В любом модуле надо добавить две строки:

Код:

Куда именно их вставить?

[Alegun]

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

Куда именно их вставить?

Да хоть прям перед самим запросом, вторую строчку про DecimalSeparator, или можно ещё StringReplase применить, как вариант чтоб настройки среды не сбивать

[chellas88]

Код:

1

sql_bet.SQL.Add('INSERT INTO `tour_'+ Form4.sql1.fieldbyname('id').AsString +'` (`user`, `bet_id`, `data`, `liga`, `team1`, `team2`, `bet`, `kf`, `summ`) VALUES ("'+form1.ZQuery1.fieldbyname('userid').AsString+'", "'+form4.sql2.fieldbyname('id').AsString+'", "'+time_text+'", "'+form4.sql2.fieldbyname('liga').AsString+'", "'+form4.sql2.fieldbyname('team1').AsString+'", "'+form4.sql2.fieldbyname('team2').AsString+'", "'+Form5.Label1.Caption+'", "'+Form4.sql2.fieldbyname('p1').AsString+'", "'+summ+'")');

Помогите с этим запросом. Никак не могу записать значение с точкой в базу. Какое бы значение не передавалось в базу пишется 1.0

[chellas88]

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

Да хоть прям перед самим запросом, вторую строчку про DecimalSeparator, или можно ещё StringReplase применить, как вариант чтоб настройки среды не сбивать

ругается на initialization**

[chellas88]

Распишу подробнее что не получается.
1. Вытаскиваю из БД значения в Decimal типа 1.88 и показываю эти значения на кнопках.
2. При нажатии одной из кнопки ее значение должно передаться в другую таблицу тоже в Decimal, но именно это не выходит.

Подскажите решение

[chellas88]

Реально не записывалось изза разных знаков разделения. Поменял на точку и получилось. Спасибо

[Alegun]

ругается...

В начале процедуры просто вставьте

Код:

1 2 3 4

... begin DecimalSeparator := '.'; ...

Вытаскиваю из БД значения в Decimal типа 1.88 и показываю эти значения на кнопках... При нажатии одной из кнопки ее значение должно передаться в другую таблицу тоже в Decimal...

Может проще в тексте хранить значения, а вычисления производить посредством StrToFloat/FloatToStr?

[chellas88]

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

В начале процедуры просто вставьте

Код:

Может проще в тексте хранить значения, а вычисления производить посредством StrToFloat/FloatToStr?

тоже думал, но возникли проблемки с strtofloat

[Vocabulary]

Куда именно их вставить?

В конце каждого модуля есть слово end. (с точкой в конце).
Перед этим словом и надо вставить эти две строки. Из приведенного фрагмента это более чем понятно:

Код:

1 2 3

initialization              //1   DecimalSeparator := '.';  //2 end.

Код, который находится в секции initialization выполняется в первую очередь, еще до того как будут созданы формы.
Поэтому замещение разделителя целой и дробной частей числа будет действовать сразу же после запуска программы.

чтоб настройки среды не сбивать

Замещение это действует только в пределах запущенной программы. О возмущении никакой среды и речи быть не может.