qidebug.pas

QiMidas组件全代码版支持d2006 QiMidas组件全代码版支持d2006

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.