List box ошибка при создание ListBox1.AddObject();

[Просто Проги]

Привет всем может кто подскажет что не так создаю процедуру для добавления

var

 item: TMetropolisUIListBoxItem;

begin

item :=TMetropolisUIListBoxItem.Create(Form1);

item.Title:='Title';
item.SubTitle:='sub';
item.Description:=dua;
ListBox1.AddObject(item);

end;

Всё добавляется,но когда я пытаюсь закрыть программу то падает ошибка

procedure TObject.FreeInstance;
begin
  CleanupInstance;
_FreeMem(Pointer(Self));// на этой строке ошибка
end;

Как я понял что ошибка связана с памятью как можно правильно освободить память? и избавиться от этой ошибки )

[krapotkin]

item :=TMetropolisUIListBoxItem.Create(listbox);

[Просто Проги]

Не разницы не какой я так пробывал

[Просто Проги]

Верхний код спокойно работает в delphiXE5 только что проверил в delphi Xe8  invalid pointer operation( чего они нового такого придумали ?

[Камышев Александр]

В Seattle этот код работает, кроме строки:

item.Description:=dua;

 видимо есть глобальная переменная dua?

 в общем обновляться без вариантов, ошибок много исправили и отладка лучше стала.

можно еще попробовать заменить 

ListBox1.AddObject(item);

на 

item.Parent := ListBox1;

 

[Просто Проги]

да походу надо обновляться, но жалко уже почти прога готова) 

[Просто Проги]

собственно поставил я 10 версию) но проблема не исчезла))

var
item: TMetropolisUIListBoxItem;
i:integer;
begin
for I := 0 to 100 do   begin

item :=TMetropolisUIListBoxItem.Create(ListBox1);

item.Title:='Title';
item.SubTitle:='sub';
//item.Description:=dua;
//ListBox1.AddObject(item);
item.Parent := ListBox1;
end;
end;

таким  образом я запомнил всё норм но стоит мне немного проскролить а потом закрыть то будет ошибка в модуле System

procedure TObject.FreeInstance;
begin
  CleanupInstance;
  _FreeMem(Pointer(Self));
end;

чего ей надо??)

[POV]

А у меня чего-то нет ошибок.

procedure TForm1.FormCreate(Sender: TObject);
var
 it: TMetropolisUIListBoxItem;
begin
  it := TMetropolisUIListBoxItem.Create(Application);
  it.Title:='Title';
  it.SubTitle:='sub';
  it.Description:='dua';
  ListBox1.AddObject(it);
end;

 

[enatechno]

22 минуты назад, POV сказал:

А у меня чего-то нет ошибок.

Воспроизводится под Windows и в Seattle и в Berlin.
1). Добавьте в листбокс 50 TMetropolisUIListBoxItem.
2). Проскрольте листбокс.
3). Кликните по любому айтему.
4). Закройте программу.

Сбой происходит при закрытии программы: в секции финализации FMX.Forms, а именно в TStyleCache.Clear.
Если заменить TMetropolisUIListBoxItem на TListBoxItem, сбой не происходит.

tst_Listbox.zip

[Камышев Александр]

4 минуты назад, enatechno сказал:

Воспроизводится под Windows и в Seattle и в Berlin.
1). Добавьте в листбокс 50 TMetropolisUIListBoxItem.
2). Проскрольте листбокс.
3). Кликните по любому айтему.
4). Закройте программу.

Сбой происходит при закрытии программы: в секции финализации FMX.Forms, а именно в TStyleCache.Clear.
Если заменить TMetropolisUIListBoxItem на TListBoxItem, сбой не происходит.

tst_Listbox.zip

серьезный подход

[POV]

Хы, тыкать даже не надо, просто пролистать и уже ошибка.

Изменено 5 августа, 2016 пользователем POV

[POV]

Ошибка, кстати, будет даже если создать в среде все итемы.

[Просто Проги]

перешел на 5 версию там таких ошибок нет)

[Равиль Зарипов (ZuBy)]

ReportMemoryLeak выдает

---------------------------
Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:
1 - 12 bytes: TWinAcceleratorKeyRegistry.TAcceleratorKeyReceivers x 1
---------------------------
ОК   
---------------------------

проблема с Берлином, в инете есть информация если пользоваться гуглом