uthdwritelogtest.pas

Delphi编程宝典光盘] 商业源码+精彩源码+精选控件+经典工具+光盘定制 经典编程资源 精彩不容错过

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.