Kopieren des Inhalt eines Record

[DelphiFan2008]

Hallo Forum,

gibt es eine einfachere Möglichkeit?

Ich arbeite häufig mit TList Objekten in denen ich Records verwalte. Beispiel

Delphi-Quellcode:

type PTest = ^TTest
     TTest = record
       s1  : String;
       d1  : Double;
       i1  : Integer;
       s2  : String;
       l1  : LongInt;
       s3  : String;
       n1  : Int64;
     end;

dieser wird in der Liste über .Add( P ); // P : PTest hinzugefügt.

Wenn ich nun den Inhalt eines Records in einen neuen kopieren möchte erfolgt dies in ähnlicher Forem wie..

Delphi-Quellcode:

function MyList.CopyToNewItem( Index:Integer;APTest:PTest );
var  FPTest : PTest;
begin
  FPTest := PTest( Self.Items[Index] )

  ATest^.s1 := FPTest^.s1;
  ATest^.d1 := FPTest^.d1;
  ATest^.i1 := FPTest^.i1;
  ATest^.s2 := FPTest^.s2;
  usw.
end;

Falls im Record eine Variable hinzugefügt wird muss dies immer in der Kopierroutine nachgezogen werden. Gibt es eine einfachere Möglichkeit den Inhalt eines Record in einen anderen zu kopieren als jede einzelne Variable oder Struktur einzeln?

Gruss DelphiFan2008