Delphi 获取类

Question

我的问题是如何访问其他单元中的课程？举个例子：

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes,
  System,
  StrUtils,
  Math,
  TypInfo,
  Data in 'Data.pas';

var
  Str, name, value                      : string;
  List, tmpList                         : TStringList;
  i                                     : Integer;
  Obj                                   : TObject;
  CRef                                  : TPersistentClass;
  d                                     : TData;
begin
  d := TData(GetClass('Data.TData').Create);
  Writeln(Format('%s', [d.Name]));
  Readln;
  Readln;
end.

数据单元：

unit Data;

interface
 uses
  SysUtils,
  Classes;
type
  TData = class(TObject)
    FName : string;
  published
    property Name : string read FName write FName;
  end;
type
  TIn = class(TObject)
    FName : string;
  published
    property Name : string read FName write FName;
  end;
implementation

end.

问题是 GetClass 方法总是返回 nil。 我知道存在这样的问题，但它们对我没有帮助。

提前致谢！

Answer 1

如果您使用的是较新的 Delphi 版本之一，则可以使用 RTTI 单元。

uses RTTI;
..
  var
    R : TRttiContext;
  begin
    R.FindType('Data.TData')
...

在您的示例中，TIn 不是内部类，但也可以像这样访问内部类：

R.FindType('Data.TData.TIn')

Answer 2

鉴于d被定义为TData，你不能简单地使用d := TData.Create()吗？

无论如何，如果你想从它的名称创建类，你必须（看看此链接）在使用 GetClass 之前调用 RegisterClass，否则该类将无法被识别，并且您会得到一个 零。

Answer 3

你没有注册课程。您需要调用RegisterClass。

如果我只有字符串中的名称，如何注册课程？

通常，您会在声明类的初始化部分单元中调用 RegisterClass。

当您调用RegisterClass时，您会发现该类需要从TPercient派生：

procedure RegisterClass(AClass: TPersistentClass);

Answer 4

请阅读 GetClass 文档。它仅适用于注册的持久类。因此，为了使用它，您必须更改的第一件事是从 TPersistent 继承，即

type
  TData = class(TPersistent)
    FName : string;
  published
    property Name : string read FName write FName;
  end;

然后您必须确保该类已注册，即您必须调用 RegisterClasses，可能在单元的初始化部分

initialization
  RegisterClasses([TData]);