ulog.pas

来自「人事档案管理」· PAS 代码 · 共 53 行

{*****************************************************************
  单元名称: uLog.pas
  修改时间: 2005-06-24
  编写人员: Liujw
  功能描述：信息显示及记录单元
*****************************************************************}

unit uLog;

interface

uses
  Windows, Classes, Controls, Forms, SysUtils, StdCtrls;

type
  TLog = class
  private
    FItems: TStrings;
  public
    constructor Create;
    destructor Destroy; override;
    
    property Items: TStrings read FItems write FItems;
    procedure Write(const AMsg: string);
  end;

implementation

{ TLog }

constructor TLog.Create;
begin
  FItems := TStringList.Create;
  if FileExists('log.dat') then FItems.LoadFromFile('log.dat');
  FItems.Append('');
  FItems.Append('========系统启动, 时间:' + DateTimeToStr(Now) + '========');
end;

destructor TLog.Destroy;
begin
  FItems.Append('========系统关闭, 时间:' + DateTimeToStr(Now) + '========');
  FItems.SaveToFile('log.dat');
  FItems.Free;
  inherited Destroy;
end;

procedure TLog.Write(const AMsg: string);
begin
  FItems.Append(DateTimeToStr(Now) + '=> ' + AMsg);
end;

end.