TObject kopieren und zuweisen

[Garby]

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