C
chen___ye
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TFileCopyThread.Execute;
var
MyFStream: TFileStream;
begin
MyFStream := TFileStream.Create(FileName, fmOpenRead);
(1)
try
MyNMStrm.PostIt(MyFStream);
(2)
finally
MyFStream.Free;
(3)
end;
if Terminated then Exit;
end;
我把showmessage加入1、2、3处,竟发现运行时(1)可提示,(2)、(3)不提示;
这是什么原因呢?
var
MyFStream: TFileStream;
begin
MyFStream := TFileStream.Create(FileName, fmOpenRead);
(1)
try
MyNMStrm.PostIt(MyFStream);
(2)
finally
MyFStream.Free;
(3)
end;
if Terminated then Exit;
end;
我把showmessage加入1、2、3处,竟发现运行时(1)可提示,(2)、(3)不提示;
这是什么原因呢?