ulog.pas

来自「图书馆管理系统设计详细资料」· PAS 代码 · 共 54 行

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

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('');
  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.