Objekt kopieren

[Noinini]

Hier die zwei notwendigen Methoden, allerdings ungetestet und ohne, dass ich mir das Projekt angesehen habe:

Delphi-Quellcode:

procedure TKontakt.Assign(Source: TKontakt);
begin
  Name := Source.Name;
  Alter := Source.Alter;
end;

procedure TKontaktCollection.Assign(source: TKontaktcollection);
var
  i: Integer;
  kontakt: TKontakt;
begin
  clear;
  for i := 0 to source.count-1 do
  begin
    kontakt := Add(TKontakt.Create);
    kontakt.Assign(source.Items[i]);
  end;
end;