TListBoxItem.TagObject = nil

[Barbanel]

Всем хай.

Пол дня бьюсь, уже с ума начинаю сходить, и как назло не с кем посоветоваться сегодня. Выручайте)
Суть:
Есть TListBox. В него динамически из кода создаются TListBoxItem.
Каждому итему в поле TagObject присваивается некий объект, хранящий дополнительные данные.
По клику на итем, вытаскивается этот объект и в зависимости от данных, выполняются разные действия.

Проблема:
Под Windows ее собсно нет)
Под Android при клике на TListBoxItem оказывается что TagObject = nil.

Голова уже дымится, у меня закончились мысли, что это может быть...

Код, на всякий:

        while not query.Eof do
        begin
            item := TListBoxItem.Create(lbTeilLeistungsArten);
            lbTeilLeistungsArten.AddObject(item);
            item.StyleLookup := 'listboxitemTL';
            item.Height      := 60;
            item.Text        := query.FieldByName('Bezeichnung').AsString;
            item.OnClick     := OnTeilleistungenClick;
            item.Tag         := query.FieldByName('ID').AsInteger;
            item.DisableDisappear := true;
            item.ApplyStyleLookup();

            lStObj := TStoreObject.CreateTL(query.FieldByName('ID').AsInteger);
            lStObj.TeilLeistung.Name := query.FieldByName('Bezeichnung').AsString;

            item.TagObject := lStObj;

            query.Next();
        end;

Всем заранее спасибо!

[RealSHELS]

TagObject имеет тип ссылки [weak]

Когда у меня было такое:

item.tagObject := TStringList.Create

if not Assigned(item.tagObject) then ShowMessage('Noy Assigned');

всегда показывало сообщение.

Если я правильно понял суть работы ARC, который работает только под мобильными платформами, то [weak] ссылка не увеличивает счетчик ссылок для обьекта.

для решения этой проблемы я был переделал на свой клас:

TMyObject = class(TFMXObject)

и потом при создании итема

MyObject := TMyObject.Create;

Item.AddObject(MyObject)

Item.tagObject := MyObject;

Чтобы на обьект хранилась нормальная ссылка еще где-то.

 

Вот тут уже такое обсуждалось:

 

[Barbanel]

del.

Про weak как-то вообще не подумал...
Пробую.
Спасибо!

Изменено 9 ноября, 2018 пользователем Barbanel
Конец рабочего дня, голова не варит

[#WAMACO]

3 часа назад, Barbanel сказал:

del.

Про weak как-то вообще не подумал...
Пробую.
Спасибо!

и как решили? можно код?

[Barbanel]

В 09.11.2018 в 19:43, wamaco сказал:

и как решили? можно код?

Присвоил этот объект полю TListBoxItem.Data

Это поле не содержит слабую ссылку. Альтернативный вариант указал RealSHELS

[#WAMACO]

"Альтернативный вариант указал RealSHELS" - у меня этот вариант не завелся! поэтому и спросил!

[Barbanel]

1 час назад, wamaco сказал:

"Альтернативный вариант указал RealSHELS" - у меня этот вариант не завелся! поэтому и спросил!

Странно, в теории должен сработать, но я не проверял. Просто убедился что TagObject имеет пометку Week.