За числом 5 следующим большим будет 12

[min@y™]

Скопировал и вставил.

А... Тогда это кто-то тебя жестоко оттроллил. Нижнее полушарие мозга не болит?

[zvygin1964]

Уговорили:

procedure TForm1.Button1Click(Sender: TObject);
var
  k:Integer;
  List: TList;
  pD:pInteger;
begin
  List:=TList.Create; //Создание списка.
  for k:=0 to 16380 do   //Наполнение TList, но не более 16380 элементов.
  begin
        New(pD);      //Резервируем память.
        pD^:=customer[k]; {переложу из  customer: array of integer;, 
а уж его-то заполню заранее, при проектировании и по настроению.
Например так :}
customer[0]:=202;
customer[1]:=4638;
customer[2]:=1527;
customer[3]:=116;
.............
customer[16380]:=16380;// фу-у, устал...
        List.Add(pD); //Добавляем к списку.
  end;
end;

[min@y™]

Уговорили

[eoln]

for k:=0 to 16380 do   //Наполнение TList, но не более 16380 элементов.

16379?
Строки

customer[16380]:=16380;// фу-у, устал...

не будет, а значит и усталости тоже

[phomm]

Это какой-то треш не надо так хранить эти индексы в коде, надо выкинуть в базочку простейшую - аксес, csv, даже ini/txt , в программе грузить из базы в лист или массив и дальше работать по индексам. Я бы предпочёл ещё именование добавить каждой картинке (числа больше 2 штук - зло и боль), и вообще всё в нормальную бд сложить, но это, конечно, много работы.

В лист не надо класть интеджеры через New (а то надо чистить, а если не чистить, память утекает), достаточно каста в Pointer

MyList.Add(Pointer(100500));

доставать так

MyInt := Integer(MyList[SomeIndex]);

[Аватар]

И вообще для Integer TList сбоку припеку. Ни чем не удобнее массива, только лишние навороты. ТС, хош набросаю, как табличку в access или dbf сделать. И обращаться потом к данным в проге? Почему access или dbf - не надо ни какого ведения данных, все уже есть.

[Alex11223]

И вообще для Integer TList сбоку припеку.

Какая разница Integer или нет?

Для Integer TList не нужен, а вот для double — самое то? Что за дискриминация?

[Аватар]

Причем здесь дискриминация? Нет у ТС double, чего о нем говорить? Если уж совсем точно - в рамках задачи ТС TList сбоку припёку. С таким же успехом можно и в обыкновенный массив набросать данные, а по хорошему из базы брать и без всяких массивов и листов

[min@y™]

С таким же успехом можно и в обыкновенный массив набросать данные, а по хорошему из базы брать и без всяких массивов и листов

Про сортировку забыл?
TList - на порядок меньше писанины. Вставка/удаление и всё такое...

[Alex11223]

Ну так про ТС понятно, что он странные вещи делают, но в процитированном выше предложении говорится, что TList вообще никогда не стоит применять для хранения Integer'ов. Что не есть правда, ибо TList'у все равно что хранить: хоть integer, хоть double, хоть TMyObject. И во многих ситуациях (когда размер не фиксированный и не известен заранее) он удобнее массива, особенно в современных Дельфях где есть Generic'и и не надо самому кастовать или писать обертки для работы с нужными типами.