Форум: "Базы";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Внизпроблема c DataSource.DataChange Найти похожие ветки
← →
Roman_Tutov@mail.ru (2002-03-28 10:48) [0]procedure TForm1.DataSource3DataChange(Sender: TObject; Field: TField);
var
Result : integer;
begin
if Table1.Active=true then
Result:=0;
Table1.First;
while not Table1.Eof do begin
Result:=(Result+(Table1.FieldByName("TSENA").asInteger)*(Table1.FieldByName("KOLVO").asInteger));
Table1.Next;
end;
Form1.Frame81.Frame91.Label2.Caption:=(FloattoSTr(Result));
end;
end.
почему при исполнения этого текста я получаю
"Access violation " ?
Этот-же текст привязанный к кнопке работает ?
Бага ?
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.01 c