qidebug.pas

来自「QiMidas组件全代码版支持d2006 QiMidas组件全代码版支持d200」· PAS 代码 · 共 21 行

unit QiDebug;

interface
uses SysUtils,Classes;

procedure AddDebugMsg(Msg:String);
implementation
var
  DebugList:TStringList;
procedure AddDebugMsg(Msg:String);
begin
  DebugList.Add(Msg);
end;
initialization
  DebugList:=TStringList.Create;
finalization
  DebugList.SaveToFile('c:\DebugList.txt');
  DebugList.Free;

end.