uthdwritelogtest.pas

来自「Delphi编程宝典光盘] 商业源码+精彩源码+精选控件+经典工具+光盘定制 」· PAS 代码 · 共 28 行

unit UthdWriteLogtest;

interface

uses
  Classes;

type
  TWriteLog = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation
uses Uapplog;
procedure TWriteLog.Execute;
var
i:integer;
begin
  for i:=0 to 2 do begin
  LogMgr.AddLog('This is a massage from thread!');
  end;
end;

end.