Список указателей(TList). Как 100%-о вернуть не nil, указатель.

[Человек_Борща]

Доброго времени суток!

Практикую написание классов на основе TList.
Как правильно вернуть ссылку на объект по его номеру?

type
  TSmth=class(Tlist)
  private
  function GetSomeItem(aIndx:Integer):TSmthItem;
  ....

function TSmth.GetSomeItem(aIndx:Integer):TSmthItem;
begin
Result:=TSmthItem(Items[aIndex]); //Иногда я тут натыкаюсь на nil. 
end;

[Serge_Bliznykov]

ну, имхо, если передать aIndex больше (или равный), чем TSmth.Count - то и получите nil (это при условии, что вы в TList nil не добавляете )

p.s. а можно небольшой тестовый примерчик (исходники в архиве, разумеется), демонстриструющий проблему?!

[Человек_Борща]

Я сам пытаюсь выловить. Но юзеры то в целевой программе ловят баг.
Пока спасся вызовом в try except, но проблемы это не решает.

А вообще к TList привязан список элементов TListView и обращение к эл-у списка идёт через текущий индекс эл-а в ListView, я думаю в этом и проблема. Вопрос: Как синхронизировать список и TListView?

[Аватар]

Использовать ListItem.Data для хранения индекса в TList

[Человек_Борща]

Аватар, вариант, однако Data уже занято. Альтернативы?

[Аватар]

Добавить неотображаемую колонку для того же

ADD

Только сейчас заметил, что не то написал. Естественно субитем, а не колонку

[Aliens_wolfs]

Еще такой вариант, может устроит, мне лично это помогает инфу нужную искать по метке допустим в массиве который сохраняется в TList и выводить ее в тот же ListView

Примерно так:

type
   TSmthItem = packed record
   ID      : DWORD; //Идентификатор либо метка номера строки
   Pole1  : string; //Нужные поля
   Pole2  : string;
end;

function TSmth.GetSomeItem(ID:Integer):TSmthItem;
var
i: integer;
begin
//Ищем метку в своем поле
for i:= 0 to FList.Count - 1 do
 if ID = TSmthItem(FList[i]).ID then
begin
 Result := TSmthItem(FList[i]);
exit;
end;
 Result := nil;
end;

// а дальше примерно так вывести результат без ошибки делаем проверку что нужная метка найдена
If Smth.GetSomeItem(10)<> nil then
//Выводим куда нужно

Можно конечно и по индексу как у вас, но все равно нужно делать проверку на nil.
Если не nil то выводим результат.

[GunSmoker]

Что-то я вопроса не понял.

Если у тебя Items некого X-а возвращает nil, то это значит, что кто-то в список добавил nil. Или не добавил, но изменил существующий элемент присвоением nil. Ну или рандомная порча памяти - это, конечно, всего вариант

Не понятны разговоры про индекс. Вхождение индекс в диапазон проверяет сам Items. Если подсунуть ему индекс несуществующего элемента - он возбудит ERangeError.

[GunSmoker]

ну, имхо, если передать aIndex больше (или равный), чем TSmth.Count - то и получите nil

Неверно:

function TList.Get(Index: Integer): Pointer;
begin
  if Cardinal(Index) >= Cardinal(FCount) then // <- явная проверка
    Error(@SListIndexError, Index);
  Result := FList[Index];
end;

[GunSmoker]

однако Data уже занято

Кем занято? Тобой или сторонним кодом?

Альтернативы?

Две.

Первое - введение своих полей методом Geo.
Второе - хранение в поле Data указателя на запись из произвольных нужных тебе данных.