Дабавить запись заз раз (Delphi)

[VadEr]

Приветствую!

Существует ли быстрый способ добавления одной записи из одной таблицы в другую?

есть способ такой:

 while not tbl.Eof do
     begin
        Table.Append;
        for I := 0 to tbl.FieldCount - 1 do
          Table.Fields.Fields[I].AsVariant := tbl.Fields.Fields[I].AsVariant;
        Table.Post;
        tbl.Next;
     end;

но как запихать всю запись сразу, например в AppendRecord, и при этом не прописывать каждое поле (AppendRecord([field1, field2...]))?