ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽnｿｽCｿｽW 2006/08/04(ｿｽｿｽ) 13:39:18

ｿｽ^ｿｽCｿｽ}ｿｽ[ｿｽﾅ茨ｿｽ闔橸ｿｽﾔゑｿｽｿｽﾆゑｿｽ
ｿｽoｿｽbｿｽNｿｽOｿｽｿｽｿｽEｿｽｿｽｿｽhｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｽｿｽﾟゑｿｽ
ｿｽXｿｽｿｽｿｽbｿｽhｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽOｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ鼾ｿｽﾉゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽXｿｽLｿｽbｿｽvｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽ?

ｿｽCｿｽｿｽｿｽ[ｿｽWｿｽIｿｽﾉは以会ｿｽｿｽﾌようｿｽﾉなゑｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽE

var
ｿｽ@MyThread: TMyThread

procedure TFormMain.Timer(Sender: TObject);
begin
ｿｽ@ifｿｽ@MyThread = Nil then MyThread := TMyThread.Create;
end;

procedure Terminate(Sender: TObject);
begin
ｿｽ@Self.Free;
ｿｽ@Self := Nil
end;

ｿｽnｿｽCｿｽW 2006/08/04(ｿｽｿｽ) 13:41:24

ｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽtｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽ
ｿｽﾖ撰ｿｽｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽE

ｿｽCｿｽｿｽｿｽ[ｿｽWｿｽIｿｽﾉは以会ｿｽｿｽﾌようｿｽﾈ・ｿｽEｿｽE
if CheckFree(MyThread) then begin
ｿｽ@MyThread := TMyThread.Create;
end;

ｿｽｿｽｿｽｿｽｿｽV 2006/08/05(ｿｽy) 00:33:43

ｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽ OnTerminate ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽﾅ会ｿｽｿｽﾆゑｿｽｿｽﾈゑｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽc

ｿｽｿｽｿｽ[ｿｽｿｽ 2006/08/05(ｿｽy) 01:34:31

> Self := Nil

ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽ 

MyThread := nil;

ｿｽﾆゑｿｽｿｽｿｽｿｽ

if Assigned(MyThread) then begin

ｿｽﾅ費ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌでは？

ｿｽﾜゑｿｽ 2006/08/18(ｿｽｿｽ) 17:36:43

ｿｽPｿｽﾂのイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽﾋ。
ｿｽﾄ出ｿｽｿｽｿｽｿｽｿｽﾅ費ｿｽｿｽ閧ｵｿｽﾈゑｿｽｿｽﾅ、Singletonｿｽpｿｽ^ｿｽ[ｿｽｿｽｿｽﾅ呼出ｿｽｿｽｿｽｿｽﾅ管暦ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ
ｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽHｿｽ@ｿｽ^ｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽﾌ厄ｿｽｿｽﾆゑｿｽｿｽlｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽSｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽjｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽ
unit Unit2;

interface

uses
  Classes, SysUtils, Windows;

type
  TMyThread = class(TThread)
  private
    { Private ｿｽ骭ｾ }
    FCnt: Integer;
    procedure UpdateCaption;
  protected
    { protected ｿｽ骭ｾ }
    procedure Execute; override;
  public
    { Public ｿｽ骭ｾ }
    class function  GetInstance(reateSuspended: Boolean): TMyThread;
    constructor Create(reateSuspended: Boolean);
    destructor Destroy; override;
  end;

implementation

uses
  Unit1;

var
  Singleton: TMyThread;


{ MyThread }

procedure TMyThread.Execute;
begin
  { ToDo : ｿｽXｿｽｿｽｿｽbｿｽhｿｽﾆゑｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾉ記ｿｽq }
  while not Terminated do
  begin
    Synchronize(UpdateCaption);
    Sleep(100);
  end;
  Free;
end;

procedure TMyThread.UpdateCaption;
begin
  Form1.Caption := IntToStr(FCnt);
  inc(FCnt);
end;

class function TMyThread.GetInstance(reateSuspended: Boolean): TMyThread;
begin
  // ｿｽCｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽｿｽﾉ１ｿｽﾂにゑｿｽｿｽｿｽB
  if not Assigned(Singleton) then
  begin
    Singleton := TMyThread.Create(reateSuspended);
  end;
  Result := Singleton;
end;

constructor TMyThread.Create(reateSuspended: Boolean);
begin
  inherited Create(reateSuspended);
  FCnt := 0;
end;

destructor TMyThread.Destroy;
begin
  Singleton := nil;
  inherited;
end;

end.


ｿｽﾄ出ｿｽｿｽｿｽｿｽ

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Unit2;

type
  TForm1 = class(TForm)
    btnStart: TButton;
    btnEnd: TButton;
    procedure btnStartClick(Sender: TObject);
    procedure btnEndClick(Sender: TObject);
  private
    { Private ｿｽ骭ｾ }
    FMyThread: TMyThread;
  public
    { Public ｿｽ骭ｾ }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.btnStartClick(Sender: TObject);
begin
  FMyThread := TMyThread.GetInstance(False);
end;

procedure TForm1.btnEndClick(Sender: TObject);
begin
  FMyThread.Terminate;
end;

end.

Created by board of various Programming Library.