加载和保存监控信息

niochen

于 2009-02-20 09:49:00 发布

阅读量324

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/jfree5200/article/details/3912866

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;