Текущий архив: 2002.09.16;
Скачать: CL | DM;

Вниз

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

← →
MaximatorVeter ©   (2002-09-03 15:06) [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!

---

← →
Ученик ©   (2002-09-03 15:27) [1]

Его (Assign) нужно реализовать

---

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

Текущий архив: 2002.09.16;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.011 c