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;