есть код
procedure TForm1.BitBtn3Click(Sender: TObject);
var i: integer;
for i:=1 to StringGrid1.RowCount-2 do
begin
if four.Active then four.Close;
four.SQL.Clear;
four.SQL.Add('insert into Коэф values("'+StringGrid1.Cells[1,i]+'")');
four.Post;
four.Open;
end;
end;
но,не работает...
