实例——加载和保存监控信息.txt

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      TSQLMonitor(Sender). LoadFromFile ('D:\MyLog.txt');
      //将MyLog.txt文件的内容装入到TraceList属性中
    end;

    procedure TForm1.SQLMonitor1LogTrace(Sender: TObject; CBInfo: Pointer);
    begin
      TSQLMonitor(Sender).SaveToFile('D:\MyLog.txt');
    end;