W
wolfhe
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure form_show;
//jh_data为一个数据模块,其中包含socecktconnection
begin
try
showmessage('a');
if not assigned(jh_data) then
jh_data:=tjh_data.Create(nil);
showmessage('b');
//if not assigned(jh_zhukong) then
// jh_zhukong:=tjh_zhukong.Create(jh_zhukong);
showmessage('c');
// jh_zhukong.Hide;
showmessage('d');
//jh_zhukong.ShowModal;
showmessage('e');
finally
// freeandnil(jh_zhukong);
freeandnil(jh_data);//释放是地址访问错误,说访问00000000地址
end;
end;
//jh_data为一个数据模块,其中包含socecktconnection
begin
try
showmessage('a');
if not assigned(jh_data) then
jh_data:=tjh_data.Create(nil);
showmessage('b');
//if not assigned(jh_zhukong) then
// jh_zhukong:=tjh_zhukong.Create(jh_zhukong);
showmessage('c');
// jh_zhukong.Hide;
showmessage('d');
//jh_zhukong.ShowModal;
showmessage('e');
finally
// freeandnil(jh_zhukong);
freeandnil(jh_data);//释放是地址访问错误,说访问00000000地址
end;
end;