delphi ShowDebugInfo 窗口-木庄网络博客

本文整理自网络，侵删。
 //调用 ShowDebugInfo('登录成功了','登录成功了');


unit uDebug;

interface

uses
  windows, Forms, StdCtrls, Controls, SysUtils;

type

  TOnDispDebugMsg = procedure(AMsg: string) of object;

procedure ShowDebugInfo(Title: string; Info: string);
procedure OutDbgMsg(AMsg: string; Value: integer); overload;
procedure OutDbgMsg(AMsg: string; Value: Cardinal); overload;
procedure OutDbgMsg(AMsg: string; Value: boolean); overload;
procedure OutDbgMsg(AMsg: string; Value: string); overload;

procedure SetOnDispDebugMsg(AOnDispDebugMsg: TOnDispDebugMsg);
procedure DispDebugMsg(AMsg: string);

implementation

var
  OnDispDebugMsg: TOnDispDebugMsg;

procedure ShowDebugInfo(Title: string; Info: string);
var
  Frm: TForm;
  Memo: TMemo;
begin

  Frm := TForm.Create(nil);
  Memo := TMemo.Create(Frm);

  with Frm do
  begin
    Left := 100;
    Top := 100;
    Caption := Title;
  end;

  with Memo do
  begin
    Parent := Frm;
    Align := alClient;
    Font.Size := 11;
    Font.Charset := GB2312_CHARSET;
    Font.Name := '宋体';
    Text := Info;
    ScrollBars := ssBoth;
  end;

  try
    Frm.ShowModal();
  finally
    Frm.Free();
  end;
end;

procedure OutDbgMsg(AMsg: string; Value: integer);
var
  sTemp: string;
begin
  AMsg := AMsg + ':';
  sTemp := inttostr(Value);
  OutputDebugString(pchar(AMsg + sTemp));
end;

procedure OutDbgMsg(AMsg: string; Value: Cardinal);
var
  sTemp: string;
begin
  AMsg := AMsg + ':';
  sTemp := inttostr(Value);
  OutputDebugString(pchar(AMsg + sTemp));
end;

procedure OutDbgMsg(AMsg: string; Value: boolean); overload;
var
  sTemp: string;
begin
  AMsg := AMsg + ':';

  if Value then
    sTemp := 'True'
  else
    sTemp := 'False';
  OutputDebugString(pchar(AMsg + sTemp));

end;

procedure OutDbgMsg(AMsg: string; Value: string);

begin
  AMsg := AMsg + ':';
  OutputDebugString(pchar(AMsg + Value));
end;

procedure SetOnDispDebugMsg(AOnDispDebugMsg: TOnDispDebugMsg);
begin
  OnDispDebugMsg := AOnDispDebugMsg;
end;

procedure DispDebugMsg(AMsg: string);
begin
  if Assigned(OnDispDebugMsg) then
    OnDispDebugMsg(AMsg);
end;

end.
delphi ShowDebugInfo 窗口

相关推荐

评论
