проблема у меня такая ...
создаётса мемористрим
открываетса файлы и обрабатываютса
как правильно убить програму во время его выполнения ?
вот от такой конструкций умирает вся програма ...
procedure TPluginForm.bCloseClick(Sender: TObject);
begin
if (TargetStream <> nil) and (MessageDlg('Do you want cancel this job?',mtInformation,[mbYes,mbNo],0)=mrYes) then
begin
try CloseFile(FM) except end;
try CloseFile(FT) except end;
TargetStream.Free;
EtalonStream.Free;
end;
Close
end;
что делать ???
как лечить ???
TMemoryStream & Delphi
Модератор: Злобный