Bin mir nicht ganz sicher, ob ich das richtig kapiert habe...
Könnte das bitte mal bitte jemand verifizieren?
Delphi-Quellcode:
// Assign
//
procedure TMyList.Assign(a_sourceList: TMyList);
var
i: integer;
begin
for i := 0 to (a_sourceList.Count - 1) do
Add.Assign(a_sourceList.Items[i]);
end;
// Clone
//
function TMyList.Clone: TMyList;
begin
result := TMyList.Create;
result.Assign(self);
end;