ulogfrm.pas

自己写的用delphi封装东劲板卡api.

unit ULogFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls,unitwritelogthread,typInfo, ExtCtrls;

type
  TFrmLog = class(TForm)
    lvLog: TListView;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InsertLog(LogRecord:PLogRecord);
  end;

var
  FrmLog: TFrmLog;

implementation


{$R *.dfm}


{ TFrmLog }

procedure TFrmLog.InsertLog(LogRecord: PLogRecord);
var
  ListItem:TListItem;
begin
  if lvLog.Items.Count = 10000 then
  begin
    lvLog.Items.Delete(10000);
  end;
  ListItem := lvLog.Items.Insert(0);
  ListItem.Caption := IntToStr(LogRecord.Id);
  ListItem.SubItems.add(DateTimeToStr(LogRecord.LogTime));
  ListItem.SubItems.Add(GetEnumName(Typeinfo(TLogLevel),integer(LogRecord.LogLevel)));
  ListItem.SubItems.add(LogRecord.LogSource);
  ListItem.SubItems.add(LogRecord.LogStr);                     
end;

end.