+ type
+ TMyValConv = class(TObject, TLazDbgValueConverterIntf)
+ //...
+ end;
+
+ TMyValConvEntry = class(TLazDbgValueConvertRegistryEntry)
+ class function CreateValueConvertorIntf: TLazDbgValueConverterIntf; virtual; override;
+ // return an instance off TMyValConv
+
+ class function GetName: String; virtual; override;
+ // return a display name for the IDE
+
+ class function GetConvertorClass: TClass; virtual; override;
+ // return the class TMyValConv
+
+ class function GetDebuggerClass: TClass; virtual; override;
+ // return the class of the debugger (inherits from TDebuggerIntf)
+ end;
+
+begin
+ TheValueConverterRegistry.Add(TMyValConvEntry)
+