Почти сделал!
КАК ЗАНЕСТИ ЗНАЧЕНИЕ В ТАБЛИЦУ ?
на 7ой строчке выдаёт ошибку
(приложение 4)
Код:
procedure TfzakaziMain.Button2Click(Sender: TObject);
var i,j,m,cenaO:integer;
cena,kol:string;
begin
j:=2;//kol
m:=3;//cena_o
for i:=1 to DBGrid1.DataSource.DataSet.RecordCount do begin
DBGrid1.DataSource.DataSet.Next;
end;
kol :=(DBEdit1.DataSource.DataSet.Fields[j].AsString);
cena:=(DBEdit1.DataSource.DataSet.Fields[m].AsString);
cenaO:=strtoint(kol)*strtoint(cena);
label7.Caption:=inttostr(cenaO);
DBEdit1.DataSource.DataSet.Fields[m].AsString:=label7.Caption;
end;
Скажите может можно сделать как то проще?