[MiraLaklamon]

Сообщение от Oleghka777

Я прошу прощение если можно по подробней с каким-нибудь простеньким примером.

Простенький пример:

Код:

var
  i: Integer;
begin
  Table1.Append;
  for i := 0 to Table2.FieldCount-1 do
  begin
    if not (Table2.Fields[i] is TAutoIncField) then
    begin
      Table1.FieldByName(Table2.Fields[i].Name).Value:=Table2.Fields[i].Value;
    end;
  end;
  Table1.Post;
end;