| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сделать копию объекта

Piero ©   (2005-12-08 12:49:00) 

У меня есть объект типа TElem

var e1,e2 : TElem;

если я делаю
...
e1.create;
e1:=e2;
то e1 указывает на тот же адресс памяти, что и e2,
и естественно, после e2.free -> e1 - тоже уничтожен
как сделать, так чтобы e1 - создал свою копию объекта

---

Piero   (2005-12-09 12:36:00) [1]

Ясно, я так примерно и сделал

---

Digitman   (2005-12-08 16:53:00) [2]

TElem как декларирован ?

---

Джо   (2005-12-08 16:49:00) [3]

Если делать только на основе TObject, то нужно все реализовывать руками. Например, это может выглядеть так:

type
 TElement = class
 private
   FTag: Integer;
   FText: string;
   ... и другие поля
 public
   property Tag: Integer read FTag write FTag;
   property Text: string read FText write FText;
   // клонирует объект со всеми его полями
   function Clone: TElement;
 end;

implementation

function TElement.Clone: TElement;
begin
 // никакого волшебства: создаем новый объект
 // и передаем ему значения наших полей
 Result := TElement.Create;
 Result.FTag := FTag;
 Result.FText := FText;
 // ... и остальные поля
end;

Использование выглядит так:

var
 Elem1,
 Elem2: TElement;
begin
 Elem1 := TElement.Create;
 Elem1.Tag := 1;
 Elem1.Text := 'Element1';

  Elem2 := Elem1.Clone;
 ShowMessage(Elem2.Text);
 ....

Если базовым классом выбрать TPersistent лучше перекрывать его метод Assign (см. исходники VCL для того, чтобы понять логику работы). Если наследоваться от TComponent можно использовать его стандартные возможности сериализации/десиарелизации.

---

Piero   (2005-12-08 13:40:00) [4]

Вернее не так, как применить метод assign к моему объекту

---

Piero   (2005-12-08 13:39:00) [5]

Ну и чего, ничего F1 не выдает

TElem  = class
.....

---

Ormada   (2005-12-08 12:54:00) [6]

Assign + F1

---

Piero   (2005-12-08 12:53:00) [7]

copymemory(e1,e2,sizeof(e2)) - не получается

---

Наверх