Invalid pointer operation

← →
anod © (2002-07-28 18:27) [0]

При закрытии вываливается ошибка.

Эта фигня появилась после сл строчек кода
var mitems: array of TMenuItem;

в Project1.dpr ... SetLength(mitems,plist.path.count-1); for i:= 0 to plist.path.count-1 do begin ... mitems[i]:=TMenuItem.Create(Form1); mitems[i].OnClick:=Form1.plMenuClick; mitems[i].Caption:=IntToStr(i+1)+". "+ExtractFileName(s); Form1.plmenu.Items.Insert(i,mitems[i]); end; ... Application.Run; В onDestroy: procedure TForm1.FormDestroy(Sender: TObject); var i:integer; begin plist.path.Destroy; for i:= 0 to length(mitems)-1 do mitems[i].Destroy; end;

Люди, где ошибка???

← →
Юрий Зотов © (2002-07-28 19:21) [1]

Строка
mitems[i]:=TMenuItem.Create(Form1);
говорит о том, что каждому mitems[i] назначен владелец - форма Form1. Следовательно, все они будут автоматически уничтожены вместе с самим владельцем. Вручную этого делать не нужно, иначе происходит попытка уничтожить уже уничтоженный объект - отсюда и ошибка.

Уберите цикл из FormDestroy и все должно стать нормально.

← →
anod © (2002-07-28 19:29) [2]

В том то и дело - убирал.

← →
Юрий Зотов © (2002-07-28 19:35) [3]

Тогда что такое plist и plist.path?

← →
anod © (2002-07-28 19:37) [4]

type playlist = record
...
path: TStrings;
end;

plist : playlist;

← →
Юрий Зотов © (2002-07-28 19:57) [5]

ОК, уточняем дальше.

1. Где конкретно объявлена переменная plist?
2. Где и КАК создается plist.path?

А чтобы сэкономить наше время, поставьте в FormDestroy точку останова пройдите по F8 и уточните, на какой конкретно строке возникает ошибка и чему равно Plist.Path.Count ПЕРЕД ее возникновением.

Еще - замените Plist.Path.Destroy на Plist.Path.Free

← →
anod © (2002-07-28 20:36) [6]

1)переменная plist объявленна в unit1.pas в var
2)в dpr:
plist.path := TStringList.Create;
plist.path.loadFromFile(ExtractFilePath(ParamStr(0))+defplst);

Хмм, ошибка вылетает ещё до FormDestroy оказывается

Ставлю точку на close; И вываливается ошибка, до Destroy не доходит.
В onClose ничего нет.

← →
Юрий Зотов © (2002-07-28 20:50) [7]

Похоже, с plist.path все в порядке (особенно порадовало, что абстракный класс все же не создается - все сделано грамотно).

Видимо, ошибка в чем-то другом. И все же цикл из FormDestroy надо убрать, а Destroy заменить на Free. Это вне сомнений.

← →
anod © (2002-07-28 21:01) [8]

Все убрал и заменил.

При коментировании этих строк ошибка исчезает
mitems[i]:=TMenuItem.Create(form1); mitems[i].OnClick:=Form1.plMenuClick; mitems[i].Caption:=IntToStr(i+1)+". "+ExtractFileName(s); Form1.plmenu.Items.Insert(i,mitems[i]);

Я не могу понять в чем причина??

← →
reonid © (2002-07-28 21:14) [9]

Совсем убери цикл
for i:= 0 to length(mitems)-1 do
mitems[i].Destroy;

При закрытии plmenu сам уничтожит все внедрённые в него пункты меню.

Даже если ты сделаешь Free - сами ссылки mitems[i] - сами ссылки, хранящиеся в массиве, никто не обнулит при автоматическом уничтожении пунктов меню.

Да я давно уже его убрал :(

Большое спасибо, я нашел ошибку:

SetLength(mitems,plist.path.count-1);
->
SetLength(mitems,plist.path.count);

Точно!
И в FormDestroy добавить уничтожение самого массива:
mitems := nil;
Для строгости.
:о)

Чёрт возьми :)

Invalid pointer operation Найти похожие ветки