Не могу разобраться как работает метод Assign [D5, Win95/98]
MaximatorV © (2002-09-03 15:08:00)
Необходимо присвоить свойства одного объекта другому.
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:00) [1]
Если класс собственного изготовления Assign надо
переопределять.
Если он переопределен, то где-то в этом методе ошибка.
Наверх 
ЧАТ |
Орешник |
|
