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

[Alex11223]

Какая среда? Если Lazarus или что-то более новое, чем Дельфи 7, то там есть более удобные списки, чем TList.

List.Free; //Уничтожаем список.   НЕ ЗАБЫТЬ ЭТО СДЕЛАТЬ !

try-finally

[Аватар]

НУ КАК ЖЕ ЭТО СДЕЛАТЬ ?

Держать в таблице. Access например. Или в Dbf-нике. На худой конец в Excel. C ним правда менее удобно из делфи. С таблицей в виде ADOQuery или ADOTable и TList не понадобится

[zvygin1964]

Сообщение от Alex11223

Дельфи 7...
try-finally

"try-finally",- пока не знаю, что это такое и куда вставить...

[Alex11223]

Чтобы Free всегда выполнился.
https://www.google.com/search?q=try+finally+delphi

[min@y™]

type
   pDouble=^Integer;

Дядьмиш, ты извращенец или наркоман?

[newerow1989]

Сообщение от zvygin1964

"try-finally",- пока не знаю, что это такое и куда вставить...

procedure TForm1.Button1Click(Sender: TObject);
var
  k:Integer;
  List: TList;
  pD:pInteger;
begin
  List:=TList.Create; //Создание списка.
  try
  for k:=0 to 16380 do   //Наполнение списка, но не более 16380 элементов(Максимальная емкость списка).
  begin
        New(pD);      //Резервируем память.
        pD^:=12632;  //Помещаем "нужное мне" число. НУ КАК ЖЕ ЭТО СДЕЛАТЬ ?
        {202, 4638, ......16380}
        List.Add(pD); //Добавляем к списку.
  end;
  List.Sort(Comp);    //Сортируем список.
  finally
  List.Free; //Уничтожаем список.   НЕ ЗАБЫТЬ ЭТО СДЕЛАТЬ !
  end;
end;

[min@y™]

Неверов, я надеюсь, это ты так шутишь, да?

[newerow1989]

Я до сих пор 1-е апреля праздную...

[min@y™]

Я до сих пор 1-е апреля праздную...

завязывай. или бухай дальше, только в интернетах не пиши ничо, ладно? А то потом самолёты падать начнуть или какая-нить Факусима очередная сделается.

[zvygin1964]

Сообщение от min@y™

извращенец

Для меня это просто буковки, они ничего не значат. Языков не знаю, сами мы не местные, поможите, кто чем может... Скопировал и вставил.

Сообщение от newerow1989

  List.Sort(Comp);    //Сортируем список.
  finally
  List.Free; {Уничтожаем список.   НЕ ЗАБЫТЬ ЭТО СДЕЛАТЬ потом, когда программа подойдет к концу !}
end;
end;

А с этим уже не согласен я.
Только список создал, рассортировал и сразу же выкинул в корзину ? Рано...
Только-только хотел...
Его ещё долго собираюсь использовать по очереди, перебирая каждый элемент списка до 16380 элемента

begin
 case max of
    100:  begin
           ..................
          end;

   200:  begin
            .............................
          end;

http://www.programmersforum.ru/showp...13&postcount=3