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

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 12 行

    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;