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