Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Invalid Pointer Operation

Автор: volvo 20.09.2006 1:10

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 20.09.2006 2:48

Все, вопрос снят...

Это у меня глюки... Зачем вообще я стал выделять память - непонятно... wacko.gif