Forum: Object-Pascal / Delphi-Language
by Noinini,
30. Mai 2007
Hier die zwei notwendigen Methoden, allerdings ungetestet und ohne, dass ich mir das Projekt angesehen habe:
procedure TKontakt.Assign(Source: TKontakt);
begin
Name := Source.Name;
Alter := Source.Alter;
end;
procedure TKontaktCollection.Assign(source: TKontaktcollection);
Forum: Object-Pascal / Delphi-Language
by Noinini,
30. Mai 2007
Leider kennen die TImages keine eigene Assign-Methode, von daher müsstest Du auch das Kopieren der Eigenschaften Deiner Images von Hand machen. Am Einfachsten wäre es natürlich, wenn Du anstatt einer TList als innerList eine TImagelist verwendest, die kann das nämlich von alleine.
Wenn Du Dir genau ansehen willst, was Du "von Hand" machen musst, um die TList zu kopieren, dann solltest Du Dir das...