Всем привет!!!!!!!!!!!!!!
У меня 2 вопроса:
1. Почему ответ следующего столбика добавляется в запись на строчку ниже, а не в одну запись(строчку)?
Проблема в том , что получается нужны ответ в другой записи и цикл его не считает.
Так я зачисляю в ячейки значения :
Код
procedure TForm1.Button1Click(Sender: TObject);
var
A:Integer;
begin
if edit1.Text='' then
exit ;
A:=StrToInt(Edit1.Text);
if A=4 then
begin
ADOTable1.Open;
ADOTable1.Insert;
ADOTable1.FieldByName('1').AsString:='2';
ADOTable1.Post;
ADoTable1.Close;
form1.Hide;
form2.Show;
end
else
begin
form1.Hide;
form2.Show
end;
end;
И вот так :
Код
procedure TForm5.Button1Click(Sender: TObject);
var
A:String;
begin
if edit1.Text='' then
exit ;
if edit1.Text='чемодан' then
begin
ADOTable1.Open;
ADOTable1.Append;
ADOTable1.FieldByName('3').AsString:='2';
ADOTable1.Post;
form5.Hide;
form6.Show;
end
else
begin
form5.Hide;
form6.Show
end;
end;
2. Такая ошибка :
.............could not convert variant of type null into type integer.
Это когда цикл суммирует ответы(они не нулевые)(но лесенкой)(в каждой строке по ячейке=2,остальные =0)
Код
procedure TForm43.Button1Click(Sender: TObject);
var
k,i:integer;
begin
k:=0;
for I := 1 to 40 do k:=k+adotable1.Fields.Fields[i].Value;
label2.caption:=IntToStr(k)
end;
end.
Спасибо.
