Hallo,
was du suchst ist in Delphi mit der Methode Assign gelöst worden.
Diese Methode wird allerdings erst in TPersistent eingeführt.
Wenn du dein Objekt unbedingt von TObject ableiten willst, kannst du dir das Assign ja nachprogrammieren:
Delphi-Quellcode:
type TMember = class(TObject)
private
FZahl: Integer;
public
procedure Assign(o: TMember);
property Zahl: Integer read FZahl write FZahl;
end;
----
procedure TMember.Assign(o: TMember);
begin
Zahl := o.Zahl;
end;
Dann noch zum Probieren:
Delphi-Quellcode:
procedure MemberProbe;
var s, p: TMember;
begin
s := TMember.Create;
p := TMember.Create;
try
s.Zahl := 12;
p.Assign(s);
ShowMessage('Wert von p vor Assign :' + IntToStr(p.Zahl));
p.Zahl := 12589;
ShowMessage('Wert von p nach Assign :' + IntToStr(p.Zahl));
ShowMessage('Wert von s :' + IntToStr(s.Zahl));
finally
FreeAndNil(s);
FreeAndNil(p);
end; // end finally
end;
mfg
edit: was vergessen
