�@ �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++

�֘A�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

������́A�t���[����Ă��邩�ǂ�����`�F�b�N����
�֐��Ȃǂ�����΂悢�̂ł����E�E�E

�C���[�W�I�ɂ͈ȉ��̂悤�ȁE�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����������̂ŁA
����ʼn��Ƃ��Ȃ�Ǝv���̂ł����c

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

> Self := Nil

����Ȃ��� 

MyThread := nil;

�Ƃ����

if Assigned(MyThread) then begin

�Ŕ���ł���̂ł́H

�܂� 2006/08/18(��) 17:36:43

�P�‚̃C���X�^���X�������݂��������Ȃ��̂ł���ˁB
�ďo�����Ŕ��肵�Ȃ��ŁASingleton�p�^�[���Ōďo����ŊǗ������Ă�
�ǂ��ł����H�@�^�C�~���O�̖��Ƃ��l����Ƃ��̕����A���S���Ǝv���܂��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������ɋL�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���ɂP�‚ɂ���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.


�ďo����

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.