Delphi JCL JEDI使用 jclDebug

最新推荐文章于 2025-07-08 15:53:51 发布

bill_live

最新推荐文章于 2025-07-08 15:53:51 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/cb168/p/6165496.html

本文介绍了如何在Delphi项目中使用JCL（JEDI Code Library）的JclDebug组件。首先，从GitHub下载JCL及其依赖的inc文件，并将其放置在正确目录下。接着，通过运行install.bat进行安装。JclDebug允许获取当前执行函数的名称，通过调用GetLocationInfoStr函数。同时，文章提到了开启JCL的调试选项以及相关资源链接。

开源

https://github.com/project-jedi/jcl

jclDebug

下载jcl，还要下载https://github.com/project-jedi/jedi里的2个inc文件

放到jcl-master\jcl\source\include\jedi目录里。

运行jcl\install.bat 安装。没有dpk工程文件。

运行bat文件，弹出下面的界面，点install即可。

like this

http://stackoverflow.com/questions/32881718/installing-jvcl-into-delphi-10-seattle

JclDebug

jcl\source\windows\JclDebug.pas

这包含了个Demo

jcl\examples\windows\debug\stacktrack.dproj

unit StackTrackDemoMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, AppEvnts, ActnList;

type
  TMainForm = class(TForm)
    ExceptionLogMemo: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ListBox1: TListBox;
    Button4: TButton;
    ApplicationEvents: TApplicationEvents;
    Label1: TLabel;
    ActionList1: TActionList;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ApplicationEventsException(Sender: TObject; E: Exception);
  private
    {
         
          Private declarat