Kod: Tümünü seç
procedure TForm1.BitBtn1Click(Sender: TObject);
var
fld:TField;
i:Integer;
begin
while not ZTable1.EOF do
begin
IBQuery1.Insert;
for i := 0 to ztable1.Fields.Count - 1 do
begin
fld:=IBQuery1.FindField(ZTable1.Fields[i].FieldName);
if assigned(fld) then
Fld.Assign(ZTable1.Fields[i]);
end;
IBQuery1.Post;
ZTable1.Next;
end;
end;