Table - copiando registros entre tabelas iguais

Top  Previous  Next

In this example from table TableSource to TableDest, both having the same field structure:

 

var

  Num: SmallInt;

begin

  for Num := 0 to TableSource.FieldCount-1 do 

    begin

      TableDest.Edit;

      TableDest.Fields[Num].Assign(TableSource.Fields[Num]);

      TableDest.Post;

    end;

end;