以编程方式获取 Delphi 中 dpr 中使用的所有单位

Question

我是 Delphi 的新手，我正在尝试制作一个应用程序，我将在其中提供一个 .dpr 文件作为输入，该应用程序将创建一个列表，其中包含此 .dpr 使用的所有 .pas 文件......我仍然无法在 Delphi 中找到函数或读取 .dpr 用途的方法，以便通过文件系统导航到这些 pas 文件并读取它们的用途，等等......有没有人知道如何实现这个？

Answer 1

这并不简单：您不仅需要读取.dpr 文件，还需要解析.dproj 和注册表以获取搜索路径。如果您尝试正确执行此操作，您还必须将 .dpr 和 .pas 文件解析为代码文件，以便您可以找到使用语句、处理 {$I '...'} 包含、{$IFDEF} 块、interface 与implementation 部分，等等。

综上所述，您可能希望从开源 CnPack 和 GExperts 项目中寻找灵感。他们俩都解决了这个问题，您可以利用他们的工作来解决您要解决的任何问题。

Answer 2

如果您让 Delphi 创建一个 .map 文件（链接器选项），它将包含该项目中使用的所有源文件和 dcu 文件的列表。 GExperts 使用一个简单的解析器来处理从我的 dzlib https://sourceforge.net/p/dzlib/code/HEAD/tree/dzlib/trunk/src/u_dzMapFileReader.pas 获取的地图文件。

Answer 3

我想更新这个问题以获得可能的答案以供将来参考。

创建一个单独的单元文件（PhonyObject.pas）

unit PhonyObject;

interface

uses
  System.Classes, FMX.Forms, FMX.Dialogs;

type
  TPhonyObject = class(TObject)
  end;

  TPhonyClass = class of TPhonyObject;

procedure FindUnitName(anObject: TObject);

var
  PhonyName: string;
  PhonyClass: TPhonyClass;
  PhonyInstance: TObject;
  PhonyClassName: procedure(anObject: TObject) = FindUnitName;  //function: String = FindUnitName;

implementation

uses System.TypInfo;

procedure FindUnitName(anObject: TObject);
begin
  if anObject <> nil then  PhonyName := anObject.UnitName
  else if not (TObject.UnitName <> 'System') then
  begin
    if TypInfo.GetTypeData(anObject.ClassInfo) <> nil then  PhonyName := String(GetTypeData(anObject.ClassInfo)^.UnitName);
  end else  PhonyName := TObject.UnitName;
  //FreeAndNilProperties
end;

initialization
  PhonyClass := TPhonyObject;
  PhonyInstance := PhonyClass.Create;

  ShowMessage('Unit Name =' + PhonyInstance.UnitName);

  PhonyInstance.Free;


finalization
  PhonyClass := nil; //PhonyClass.Free;

end.

为了在另一个（多个）单元中使用它，这是我迄今为止使用的代码，但我希望稍后更新它。我在一个手工制作的“控制台”中显示了这个，它在 TMemo 中具有黑色背景和白色文本。如果有人想要 TMemo 的代码（它并不为人所知），或者如何在基本上调试窗口中显示所有这些，您只需告诉我。这是迄今为止我得到的最好的，但我需要更好地了解子/父对象/类

unit AnotherUnit;

interface

uses
  System.Classes, PhonyObject;

type
  TPhonyObj = class(TPhonyObject)
  end;

//var

implementation

{$R *.fmx}

uses ...;

initialization

  PhonyClass := TPhonyObj;
  PhonyInstance := PhonyClass.Create;

  ShowMessage('UnitName= ' + PhonyInstance.UnitName + ' (AnotherUnit)'); // PhonyClass.UnitName  // PhonyClassName(PhonyInstance);

  PhonyInstance.Free;

finalization
  PhonyClass := nil;

end;

我尽可能地使用了单元名称和类名称的唯一性，并且我意识到直到最后我实际上并没有使用任何对象，但它应该没有任何问题。如果有更好的想法，请发表评论，但我认为这是 Delphi 编程的一个强大功能，因为您可以预测某些单元名称何时会突然出现。以及如何预测它们。