帮我解决一下 FPC 中虚拟静态场可以解决的问题

Question

我正在 Freepascal 中做一个事件管理器
每个事件都是一个对象类型TEvent（=对象），每种事件都必须从该类派生。
事件通过动态分配的整数标识符来区分。
问题是我想检索实例的事件 id，但我做得不好。

• 类（对象）的所有实例都有一个唯一的 id =>所以它应该是静态字段。
• 所有类都有不同的 id =>所以它应该是虚拟的。
• 事件 ID 在运行时分配，并且可以更改 =>所以这不是一个简单的方法

总之，我无法将所有这些放在一起。
我正在寻找一个优雅的解决方案，我不想编写一个硬编码表，在每个构造函数中实现它......等等，我更喜欢利用多态性的东西
任何人都可以帮助我提供其他技术或设计解决方案吗？
我说我不想使用类而不是对象构造。（属性不适用于对象？:(

Answer 1

您可能需要类 var 之类的东西，就像在较新的 delphi 中一样。但这仅适用于 FPC 的开发版本（2.5.1+）。

请注意，对象类型是 TP 遗留的，并且在本世纪还没有开发出来，我不希望这种情况发生改变。如果您需要的内容超出了它提供的内容，我建议使用课程。

Answer 2

你可以像这样制作一个简单的表格/列表：

unit classids;

{$mode objfpc}{$H+}

interface

function GetClassID(c:TClass):Integer;
procedure SetClassID(c:TClass; id:Integer);

property ClassID[c:TClass]:Integer read GetClassID write SetClassID;

implementation
uses Maps;

var Map:TMap;

function GetClassID(c:TClass):Integer;
begin
 if not Map.GetData(c,Result) then
  Result:=0; //Or any default you like
end;

procedure SetClassID(c:TClass; id:Integer);
begin
 Map.Delete(c);
 Map.Add(c,id);
end;

initialization
 Map:=TMap.Create(itu4,SizeOf(Integer));
finalization
 FreeAndNil(Map);
end.

然后你可以获取/设置 id 祝

ClassID[TMyObject]:=12;
ShowMessage(IntToStr(ClassID[TMyObject])); //shows 12

你好运