Kopiowanie klasy

0

Witam
mam sobie deklarację swojej klasy, oraz utworzoną jej instancję. Czy mogę w jakiś sposób \"skopiować\" zawartość instancji tej klasy do innej instancji, bez ręcznego pisania w stylu

//m jest tez typu TMojaKlasa, ale jest juz wypelnione danymi
var
m2: TMojaKlasa;
begin
m2:= TMojaKlasa.Create;
m2.text := m.text;
m2.text2 := m.text2;
// itp... 

w dodatku część danych jest w sekcji private i nie chcę ich \"upubliczniać\"
...
Pozdrawiam
moczarek

0

Napisanie

m := m2;

zpowoduje zkopiowanie wskaźnika. Jeśli chcesz fizycznie skopiować klase użyj tego:

m.Assign(m2);

Ale w tedy klasa musi pochodzić od TPersistent.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0