Delphi - Kopirovani objektu

[Conflict]

V delphi sem narazil na problem.
Mejme dve promenny. Kazda prosla behem sveho vyvoje v kodu k jinym hodnotam.

Code: [Select]


var
  Obj1, Obj2 : TObject;

Potrebuju zkopirovat obsah jedneho objektu do druheho. Napadlo me stary osvedceny rovnitko, proc ne, kdyz to pro integer tak pekne funguje.

Code: [Select]

 Obj1 := Obj2;
Nasledne byl jeden objekt zmenen. A hle, zmenou jednoho objektu se zmenil i druhy objekt.

Ponauceni:
Objekty nejsou jako promenny typu integer. Sou to pointery. Na tohle si porad nemuzu zvyknout.
Reseni:
Pouzit napr. fcn CopyObject.
stranka: http://www.blong.com/Conferences/BorConUK98/DelphiRTTI/CB140.htm
soubor: http://www.blong.com/Conferences/BorConUK98/DelphiRTTI/CB140.zip