Función Random ???

[Neftali [Germán.Estévez]]

Empezado por Caro

Una pregunta Neftalí, esto significa que a parte de usar un TStringList y la función IndexOf, debemos también ordenarlo con Lista.Sorted := True, supongo que cada vez que se haya introducido un número a nuestra lista.

Al crear el stringList lo creas con la propiedad Sorted a True.

Código Delphi [-]
  TS := TStringList.Create();
  TS.Sorted := True;
  TS.Duplicates := dupError;

En tu caso yo aseguraría que no hay duplicados, ya sea con dupError o dupIgnore (mejor el primero).

A partir de ahí puedes utilizar IndexOf o Find para encontrar el elemento que necesites. No necesitas reordenar maualmente cada vez.
Al estar ordenada e insertar elementos ya te los añadirá ordenados. Es un poco más lento al insertar/borrar, pero infinitamente más rápido al buscar.