RealICQClient/Log/CodingFrom.pas

unit CodingFrom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TCodingLoggerForm = class(TForm)
    lv1: TListView;
    mmo1: TMemo;
  private
    { Private declarations }
  public
    procedure InsertLog(AMessage, ACode, ALoginName, AStrLevel: string);
  end;

var
  CodingLoggerForm: TCodingLoggerForm;

implementation

{$R *.dfm}

{ TCodingLoggerForm }

procedure TCodingLoggerForm.InsertLog(AMessage, ACode, ALoginName,
  AStrLevel: string);
begin
  mmo1.Lines.Add(
    Format('´íÎóµÈ¼¶:%s, ÄÚÈÝ:%s==%s, µÇ¼Ãû:%s.',
      [AStrLevel, ACode, AMessage, ALoginName,AStrLevel]));
//  with lv1.Items.Insert(0) do
//  begin
//    Caption := ACode;
//    SubItems.Add(ALoginName);
//    SubItems.Add(AMessage);
//    SubItems.Add(AStrLevel);
//  end;
end;

end.