Не могу разобраться как работает метод 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 надо переопределять.
Если он переопределен, то где-то в этом методе ошибка.

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