errorrecordunit.~pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

unit ErrorRecordUnit;

interface
uses
    comctrls;

//错误记录类
type TErrorRecord = class
private
    FLen : integer;
    FLevelArray: array of integer;
    FMsgArray: array of string;
public
    constructor Create();
    procedure Append(ALevel: integer;AMsg: string);
    procedure Clear;
    procedure ToListView(AListView: TListView);
end;

implementation

{ TErrorRecord }

procedure TErrorRecord.Append(ALevel: integer; AMsg: string);
begin
    Inc(FLen);
    SetLength(FLevelArray,FLen);
    SetLength(FMsgArray,FLen);
    FLevelArray[FLen-1] := ALevel;
    FMsgArray[FLen-1] := AMsg;
end;

procedure TErrorRecord.Clear;
begin
    FLen := 0;
    SetLength(FLevelArray,0);
    SetLength(FMsgArray,0);
end;

constructor TErrorRecord.Create;
begin
    Clear;
end;

procedure TErrorRecord.ToListView(AListView: TListView);
var
    mItem: TListItem;
    i: integer;
begin
    with AListView do
    begin
        Items.Clear;
        for i:=0 to FLen-1 do
        begin
            mItem := Items.Add;
            mItem.ImageIndex := FLevelArray[i];
            mItem.SubItems.Add(FMsgArray[i]);
        end;
    end;
end;

end.