加载和保存监控信息

最新推荐文章于 2024-10-08 12:02:14 发布

原创最新推荐文章于 2024-10-08 12:02:14 发布 · 332 阅读

0 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

95 篇文章

订阅专栏

    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;