TPersistent.Assign ?

[tim128]

Könnte mir vielleicht jemand helfen. Ich möchte (immer noch) ein Objekt kopieren.
In meinem Beispiel funktioniert dies leider nicht. Die Delphi-Hilfe hat mir leider auch nicht geholfen, das Problem besser zu verstehen…

Delphi-Quellcode:

Tp1 = class(TPersistent)
  s: string;
end;

Tp2 = class(TPersistent)
  s: string;
end;

procedure kopieren;
var
  o1: Tp1;
  o2: Tp2;
begin
  o1 := Tp1.Create;
  o2 := Tp2.Create;
  o1.s := ‘Objekt 1’;
  o2.s := ‘Objekt 2’;

  o2.Assign(o1);  //Hier soll o2 eine Kopie von o1 sein

  o1.Free;

  showmessage(o2.s);

  o2.Free;
end;