Форум: "Основная";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
ВнизЧто я делаю не так? Найти похожие ветки
← →
avr555 (2002-02-07 13:18) [0]Хочу записать объект в поток. Для это го делаю следующее:
procedure TForm1.ButtClick(Sender: TObject);
var
btn,btn1 : TButton;
str:TMemoryStream;
comTmp :TButton;
begin
str := TMemoryStream.Create;
btn := TButton.Create(self);
btn.Parent := self;
btn.Left := 100;
btn.Top := 100;
str.WriteComponent(btn);
str.Seek(0, soFromBeginning);
comTmp := TButton(str.ReadComponent(nil));
btn.Free;
end;
Когда происходит чтение компонента, выходит сообщение:
"Class TButton not found"
Что я делаю неправильно
← →
avr555 (2002-02-07 13:28) [1]Только написал в форум и сразу же нашел ответ:
Нужно было добавить:
RegisterClass(TComponentClass(btn.ClassType));
И все заработало.
← →
avr555 (2002-02-07 14:45) [2]Все у меня работает замечательно, только не копируются внутренние объекты, массивы, дрцгие компоненты.
Мне их тоже по отдельности ручками копировать?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c