안녕하십니까?
Thread가 실행중에 종료를 시키려 하는데 어찌하나요.
Thread실행중에 강제로 종료를 시키려 합니다.
다음은 프로그램을 간단하게 정리하여 보았습니다.
한수 가르침 바랍니다.
// Thread Create Program
unit MainCntl;
interface
uses
............., PGMTrans_Thread,......;
procedure TFormCntl.BitBtn1Click(Sender: TObject);
begin
PGMThread.Create(False);
end;
// Thread Program
unit PGMTrans_Thread;
type
PGMThread = class(TThread)
protected
procedure Execute; override;
procedure PGMThread.Execute;
begin
FreeOnTerminate := True;
Repeat
...
until x=a;
end;