Hombre, está sacado de trucomania, que esperabas
.
Así queda mejor, nos quitamos punteros y reserva de memoria.
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
type
TRecuerda = array of variant;
var
Recuerda:TRecuerda;
n:integer;
Campos:integer;
begin
Campos:=Table1.FieldCount;
SetLength(Recuerda,Campos);
Table1.Last;
for n:=0 to Table1.FieldCount-1 do
begin
Recuerda[n]:=Table1.Fields[n].AsVariant;
Table1.Append;
for n:=0 to Table1.FieldCount-1 do
begin
Table1.Fields[n].AsVariant:=Recuerda[n];
end;
Table1.Post;
end;
end;
[saludos] y más [/saludos]