VPF::Ошибка - Форум программистов

Гость_Elf

Дата 19.12.2005, 13:41 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


procedure TForm1.N1Click(Sender: TObject);
var
 Summa: Currency;
begin
 Data.Companies.Insert;
 Data.Companies.FieldByName('UCapital').AsCurrency:=0;
 Data.Companies.FieldByName('Age').AsInteger:=0;
 Data.Companies.FieldByName('FPotreb').AsCurrency:=0;
 Data.Companies.FieldByName('FReserv').AsCurrency:=0;
 Data.Companies.FieldByName('FNakop').AsCurrency:=0;
 Data.Companies.FieldByName('FRaspred').AsCurrency:=0;
 Data.Companies.FieldByName('RS').AsCurrency:=0;
 Data.Companies.FieldByName('OPotreb').AsCurrency:=0;
 Data.Companies.FieldByName('OReserv').AsCurrency:=0;
 Data.Companies.FieldByName('ONakop').AsCurrency:=0;
 Data.Companies.FieldByName('NPribil').AsCurrency:=0;
 Data.Companies.FieldByName('NAciz').AsCurrency:=0;
 Data.Companies.FieldByName('NESN').AsCurrency:=0;
 Data.Companies.FieldByName('CostAc').AsCurrency:=0;
 Data.Companies.FieldByName('Closed').AsBoolean:=False;
 Data.Companies.FieldByName('CompanyName').AsString:='Новое предприятие';
 Data.Companies.Post;
 Form3.ShowModal;
 Summa:=Data.Companies.FieldByName('UCapital').AsCurrency; // Здесь возникает ошибка!
end;

Не могу понять почему в указанном месте происходит ошибка "is not a valid floating point value"?

_hunter

Дата 19.12.2005, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

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

--------------------

Tempora mutantur, et nos mutamur in illis...

FRAGNATIC

Дата 19.12.2005, 15:43 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

жестокий код)
может проще использовать SetFields()
или какойнить SQL запрос
чем так много Data.Companies.FieldByName
можно ещё это всё в блоке with ... do

Гость_Elf

Дата 19.12.2005, 19:52 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Вразумительного ответа на вопрос никто не дал...

FRAGNATIC

Дата 19.12.2005, 20:07 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Цитата

Не могу понять почему в указанном месте происходит ошибка "is not a valid floating point value"?

компилится номано а при запуске вылетает ошибка?
а ты посматри как это значение выглядит в бд потом. Малоли как его бд приобразовывает
типа твой 0 в 0.0 или в 0,0

Albinos_x

Дата 19.12.2005, 23:27 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата

Data.Companies.Post;
Form3.ShowModal;

а что в третьей форме у тебя делается?

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

_hunter

Дата 20.12.2005, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

Гость_Elf, во-первых: значение поля ты так и не привел.
во-вторых: приведи полный код ошибки. что-то мне кажется что она звучит как

Цитата

" is not a valid floating point value

--------------------

Tempora mutantur, et nos mutamur in illis...

Romikgy

Дата 20.12.2005, 13:00 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

То бишь по русски нет в ячейке значения типа число с плавающей точкой smile

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

~FoX~

Дата 20.12.2005, 14:02 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Код


//............ 
 Data.Companies.Post;
 Data.Companies.UpdateRecord 
 Form3.ShowModal;
 Summa:=Data.Companies.FieldByName('UCapital').AsCurrency;
end;

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »