Delphi词典释放

我实现了以下类：

type
  TUtilProcedure = procedure(var AJsonValue: TJSONObject);

  TCallback = class
  private
    FName: string;
    FProcedure: TUtilProcedure;
    FAnnotation: string;
  public
    constructor Create(AName: string; AProcedure: TUtilProcedure; AAnnotation: string); overload;
    constructor Create(ACallback: TCallback); overload;
    property Name: string read FName;
    property Proc: TUtilProcedure read FProcedure;
    property Annotation: string read FAnnotation;
 end;

然后我有一个全局变量：

procedures: TDictionary<string, TCallback>;

procedures := TDictionary<string, TCallback>.Create();
procedures.Add('something', TCallback.Create('sth', @proc, 'annotation')); 
// ....

然后在

OnFormClose

I中释放它：

procedures.Clear;
procedures.Free;

我的代码会泄漏内存吗？如果是这样，释放

词典的正确方法是什么？
据我所知，迭代不是一个好主意。
代码会泄漏内存，因为
t字典中包含的对象不会自动释放。

如果您需要在字典中存储对象，则采用a表示更好的方法。

如果希望自动释放字典中包含的对象，请在创建集合实例时使用
doOwnsValues
标志。


当变量真正是全局变量时（即在装置的
界面
部分的
var
下声明），应在装置本身的
初始化
和
终止
部分创建和销毁变量

. . .
var
  procedures: TObjectDictionary<string, TCallback>;
. . .
initialization
  procedures:= TObjectDictionary<string, TCallback>.Create([doOwnsValues]);
finalization
  procedures.Free;

在表单的
ondestory
事件中释放词典：

procedure TForm1.FormDestroy(Sender: TObject);
begin
  procedures.Free;
end;


此外，如果您希望访问属于类的变量而不需要类本身的实例（在许多编程语言中称为静态变量），则可以将字典声明为
类变量
，并可以选择通过
类属性
访问它；在这种情况下，最好在
类构造函数
和
类析构函数
中创建并销毁集合

. . .
TMyClass = class
  private
    class constructor Create;
    class destructor Destoy;
  public
    class var procedures: TObjectDictionary<string, TCallback>;
end;
. . .
class constructor TMyClass.Create;
begin
  procedures := TObjectDictionary<string, TCallback>.Create([doOwnsValues]);
end;

class destructor TMyClass.Destoy;
begin
  procedures.Free;
end;

作为旁注，
TCallback
类不需要指定析构函数，因为它只拥有两个字符串和一个指向过程的指针。因此，从
TObject
继承的默认析构函数就足够了。
使用对象时使用
TObjectDictionary
如果要自动释放值，请使用
[doOwnsValues]
创建字典时，does
TCallback
需要一个
析构函数
TCallback
不需要析构函数now@fantaghirocco谢谢不要在过程中使用
@
。这会抑制编译器的类型安全性。启用Embarcadero仍然拒绝启用的类型化地址编译器选项，这样做会使所有Delphi初学者遭受不必要的痛苦。如果表单的实例不止一个，那么使用FormCreate和FormDestroy来构造或销毁这样的变量可能不太好。但是，无论如何，使用全局变量是不可取的。。。如果变量确实是全局变量，出于某种原因，为什么不分别在初始化和终结部分构造和销毁它？@Rudy Velthuis感谢您的评论：我已经根据您的评论更新了答案；@David Heffernan已经指出了多表单实例的问题，但我错误地认为全局变量可能是
私有的
变量
. . .
TMyClass = class
  private
    class constructor Create;
    class destructor Destoy;
  public
    class var procedures: TObjectDictionary<string, TCallback>;
end;
. . .
class constructor TMyClass.Create;
begin
  procedures := TObjectDictionary<string, TCallback>.Create([doOwnsValues]);
end;

class destructor TMyClass.Destoy;
begin
  procedures.Free;
end;

TCallback = class
  private
    FName: string;
    FProcedure: TUtilProcedure;
    FAnnotation: string;
  public
    constructor Create(AName: string; AProcedure: TUtilProcedure; AAnnotation: string); overload;
    constructor Create(ACallback: TCallback); overload;
    property Name: string read FName;
    property Proc: TUtilProcedure read FProcedure;
    property Annotation: string read FAnnotation;
end;