Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка "Invalid floating point operation"

Страницы: 1 2 >
Mamochka © (2006-10-03 09:31:00)
Здравствуйте! Помогите пожалуйста...

...
NNOPER:=FieldByName('NNOPER').AsInteger;
...
Именно в этой строчке возникает вот такая ошибка "Invalid floating point operation"

Что это и как с этим бороться?

clickmaker (2006-10-03 13:42:00) [1]

> [38] Mamochka © (03.10.06 12:04)

ни черта не понял...
Что нужно-то? По какому принципу этот номер взять и куда записать? Новую запись или старую обновить? Если 2-е, так это, что я и написал

Mamochka (2006-10-03 12:04:00) [2]

> clickmaker

нет так нельзя дело втом что номер операции попадет в главную книгу где лежат все проводки, и по этому два одинаковых номера операции быть не должно...:о(

clickmaker (2006-10-03 11:57:00) [3]

> програма должна взять этот номер операции прибавить к нему
> 1 (единицу) и сохранить в тотже файлик

tblMain.Edit;
tblMain.FieldByName('NNOPER').AsFloat := tblMain.FieldByName('NNOPER').AsFloat + 1;
tblMain.Post;
tblMain.ApplyUpdates;

Mamochka (2006-10-03 11:50:00) [4]

> pavel_guzhanov

вот смотри принцеп такой есть номер операции который лежит в файле
програма должна взять этот номер операции прибавить к нему 1 (единицу) и сохранить в тотже файлик

Mamochka (2006-10-03 11:45:00) [5]

> pavel_guzhanov

наверно он пропадает гдето сдесь Mamochka © (03.10.06 10:11) [16]

pavel_guzhanov (2006-10-03 11:43:00) [6]
не вижу, где он тут пропадать может :0((

Mamochka (2006-10-03 11:33:00) [7]

> pavel_guzhanov

Procedure TfmMain.SaveItemToTable(CountItem:TCountItem);
Begin {SaveItemToTable}
With fmMain.tbMainSD Do
Begin {With fmMain}
Append;
FieldValues['NNOPER']:=CountItem.NNOPER;
FieldValues['TASK']:=CountItem.TASK;
FieldValues['DATAOPER']:=StrToDate(fmMain.meDate.Text);
FieldValues['NNDOC']:=WinToDOS(fmMain.edNNDOC.Text);
FieldValues['DT_SCHET']:=CountItem.DT_SCHET;
FieldValues['DT_CODE']:=CountItem.DT_CODE;
FieldValues['KT_SCHET']:=CountItem.KT_SCHET;
FieldValues['KT_CODE']:=CountItem.KT_CODE;
FieldValues['SUMMA']:=CountItem.SUMMA;
//NameOperBuff:='1';
//NameOperBuff[1]:=Chr(222);
//FieldValues['NAMEOPER']:=NameOperBuff;
FieldValues['NAMEOPER']:=WinToDOS('распр. o6щ/т. затрат');
FieldValues['VSUMMA']:=CountItem.VSUMMA;
FieldValues['VCURS']:=1;
FieldValues['USER_DATE']:=Date;
FieldValues['STATUS']:=CountItem.STATUS;
Post;
End; {With fmMain}
End; {SaveItemToTable}

pavel_guzhanov (2006-10-03 11:18:00) [8]

> да вот только номер операции из файлика стал пропадать..
> .

покажи код того, как номер операции из файлика переносится в базу

Mamochka (2006-10-03 11:11:00) [9]

> pavel_guzhanov

да вот только номер операции из файлика стал пропадать... :о)

Mamochka (2006-10-03 11:06:00) [10]

> pavel_guzhanov

ЯЯЯХУУУУУУУУУУУУУУУУУУУ

Слушай, ты гений, не ты просто гений, работает, еще как работает
спасибо спасибо, я товй должник :о)

pavel_guzhanov (2006-10-03 10:58:00) [11]

> shwmessage выводит 14 значное число

Integer может быть только десятизначным. Значит, в строке чтения измени тип с AsInteger на AsFloat? а переменную NNOPER объяви как Double

clickmaker (2006-10-03 10:52:00) [12]
каша какая-то в голове...
Ни вопрос нормально задать, ни разобраться попытаться

Mamochka (2006-10-03 10:49:00) [13]
Интересно, что если строчку NNOPER:=FieldByName('NNOPER').AsInteger; за ремить, то программа начинает работать вроде как бы :о)

Mamochka (2006-10-03 10:45:00) [14]

> pavel_guzhanov

А вот если убрать Edit то новая ошибка :о) "DataSet not in edit or insert mode"

Mamochka (2006-10-03 10:41:00) [15]

> novill

shwmessage выводит 14 значное число

Mamochka (2006-10-03 10:36:00) [16]
Удалено модератором
Примечание: Создание пустых сообщений

pavel_guzhanov (2006-10-03 10:35:00) [17]
поле NNOPER существует, но есть ли в нем значение, это не понятно. Судя по ошибке, его там нет. Кода, который пишет туда значение, я тоже не увидел. Может быть ты считаешь, что пишешь значение вот в этой строке:
NNOPER:=FieldByName('NNOPER').AsInteger;
так нет, тут ты считываешь это значение. Чтобы записать, надо присвоение перевернуть:
FieldByName('NNOPER').AsInteger:=NNOPER;

novill (2006-10-03 10:32:00) [18]
Mamochka
Ты так и не написал,
1 зачем делаешь Edit таблицы, которую читаешь, и не записываешь изменения?
2 что выводит shwmessage?

Mamochka (2006-10-03 10:27:00) [19]

> pavel_guzhanov

АААА я не знаю программа воооообще не мая и человека который писал ее уже не найти, так что спосить можно только увас :о), нужно сделать чтоб работала

Извените что так резок... нервы просто на пределе...

clickmaker (2006-10-03 10:27:00) [20]

> [19] Mamochka © (03.10.06 10:24)

а где код вставки?

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »