delphi-prism - Delphi Prism - 我如何确定 TObjectExtender 正在“扩展”的实际类

Question

我的 Delphi 代码中有大量的日志记录，它经常使用 Self.ClassName 来记录包含当前执行代码的类的名称。

我现在正在将其中的一些代码编译到 Delphi Prism .NET 程序集中。

但是，在 Delphi Prism 下，Self.ClassName 现在返回“TObjectExtender”而不是实际的类名。

例如

type
  TMyClass: TObject
  begin
    procedure MyProc();
  end;
...

procedure TMyClass.MyProc;
begin
  Log(Format('%s: A log message', [Self.ClassName]));
end;

输出

TMyClass: A log message

在 Delphi XEII 中编译时，但在 VS 2010 中的 Delphi Prism 中编译时输出

TObjectExtender: A log message

无论包含运行代码的实际类如何。

任何人都可以建议一种在 Delphi Prism 中获取实际类名的方法吗？

Answer 1

要获取当前类的名称，只需使用

Self.GetType().Name