Objekte kopieren

[Dawn87]

Hallo,

danke für Deine Antwort. Ich habe mir mal was zurecht gebastelt, leider bekomme ich eine Schutzverletzung:

Delphi-Quellcode:

procedure TTopic.Assign(Source: TPersistent);
begin
  if Source is TTopic then
  begin
    Caption := TTopic(Source).Caption;
    ID := TTopic(Source).ID;
  end;

  //inherited;
end;

Erkennst Du einen Fheler im Code?