Neue Prozedur:
Delphi-Quellcode:
procedure EnsureHelpManager;
begin
if HelpManager = nil then
HelpManager := THelpManager.Create;
end;
In Funktion RegisterViewer/GetHelpSystem den Aufruf von
Delphi-Quellcode:
if not Assigned(HelpManager) then
...
durch
EnsureHelpManager;
ersetzen
In Methode THelpViewerNode.Create und THelpManager.AssignHelpSelector den Aufruf von _AddRef löschen
und in THelpManager.Release die Schleifen
for i := 0 to ...
auf
.Count - 1 downto 0
umstellen.
Neuere Delphi-Versionen sind entsprechend gefixt.