Скачать: CL | DM;

Не могу разобраться как работает метод Assign   Найти похожие ветки 

← →
MaximatorV   (2002-09-03 15:08) [0]

Необходимо присвоить свойства одного объекта другому.

type
TSomeClass=class(TPersistent)
public
a:byte;
b:word;
c:boolean;
end;

var
SC1,SC2:TSomeClass;
begin
SC1:=TSomeClass.Create;
SC2:=TSomeClass.Create;
SC1.a:=1;
SC1.b:=2;
SC1.c:=true;
SC2.Assign(SC1); // Здесь возникает ошибка
SC1.Free;
SC2.Free;
end;

I need help!

---

← →
kull ©   (2002-09-03 16:10) [1]

Если класс собственного изготовления Assign надо переопределять.
Если он переопределен, то где-то в этом методе ошибка.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.009 c