чтение компонента из файла

← →
mc_duck (2003-11-07 17:25) [0]

Добрый(еще раз) день!
У меня есть:
TConi=class(TPaintbox)
...
end;
...
...
procedure TForm1.Save;
var
Stream: TFileStream ;
t:TConi;
begin
Stream := TFileStream.Create( "AFile", fmOpenRead ) ;
t:=Stream.ReadComponent(nil) as TConi;
end;

procedure TForm1.open;
var
Stream: TFileStream ;
begin
Stream := TFileStream.Create( "AFile", fmCreate ) ;
Stream.WriteComponent(TConi.create);
end;

Объект был предварительно записан в файл.При считывании из
файла не ругается,но на экране он не вырисовывается,хотя тот,
который записывается,на экране вырисовывается.
Спасибо!

← →
mc_duck (2003-11-07 20:35) [1]

Да,причем прорисовка происходит при создании объекта.

← →
Игорь Шевченко © (2003-11-07 20:45) [2]

save c open не перепутан ?

← →
mc_duck (2003-11-07 20:47) [3]

Да,здесь перепутан(прошу прощения),но в программе все чисто.

← →
Palladin © (2003-11-07 20:48) [4]

Думаю все таки перепутаны.
Прикольно :)

← →
Игорь Шевченко © (2003-11-07 20:51) [5]

t:=Stream.ReadComponent(nil) as TConi;

t.Parent не надо указать ?

← →
mc_duck (2003-11-07 20:53) [6]

->Palladin ©
А я думаю,что не перепутано и не так уж прикольно,а так же,что
с тобой ничего такого никогда не случалось.

Случалось конечно. Да я и не собирался на тебя наезжать.
А если уж читаешь компонент, то указывай его принадлежность, а так пока что он у тебя висит в нигде. см Игорь Шевченко © (07.11.03 20:51) [5]

← →
mc_duck (2003-11-07 21:01) [8]

Отладчиком пользоваться не помогает ? Ме же не телепаты, чтобы по одной-двум строчке кода выдать полную и обстоятельную диагностику. Хочешь реальной помощи - приводи код полностью, пиши, в каком конкретно месте и после каких конкретных действий возникает Access Violation, какие действия ты проделал для анализа и где остановился.

чтение компонента из файла Найти похожие ветки