Кто-то из нас двоих глючит, или я, или Delphi ...
"Я догадываюсь, кто" (С)
Ситуация такая:
Var strClassName: PWideString;
Const maxLength = 255;
...
Try
GetMem(strClassName, maxLength * SizeOf(WideChar) + 1);
myCheckListBox.Clear;
Repeat
HR:=PEnumClsid.Next(1,Guid_Component,Count);
If HR = S_Ok Then begin
OleRegGetUserType(GUID_Component, USERCLASSTYPE_FULL, strClassName);
myCheckListBox.Items.Add(string(strClassName));
end;
Until HR <> S_Ok ;
Finally
FreeMem(strClassName); { <--- Здесь - ошибка ... }
End;
Мне интересно, что может служить причиной ошибки
Может, я где-то чего-то не замечаю?