Помощь - Поиск - Пользователи - Календарь
Полная версия: Invalid Pointer Operation
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
volvo
blink.gif

Кто-то из нас двоих глючит, или я, или 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;

Мне интересно, что может служить причиной ошибки unsure.gif

Может, я где-то чего-то не замечаю?
volvo
Все, вопрос снят...

Это у меня глюки... Зачем вообще я стал выделять память - непонятно... wacko.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.