Foros Club Delphi - UnSort StringList

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - UnSort StringList (https://www.clubdelphi.com/foros/showthread.php?t=96076)

MAXIUM

26-01-2023 02:13:11

UnSort StringList

Hola que tal, aquí vengo con problemas :)

Imaginen un StringList con 3 elementos:

Código Delphi [-]StringList. Index[0]:= 'Dos';
StringList. Index[1]:= 'Cinco';
StringList. Index[2]:= 'Nueve';

¿Se puede hacer un "UnSort"? Por ejemplo

Código Delphi [-]StringList. Index[0]:= 'Nueve';
StringList. Index[1]:= 'Dos';
StringList. Index[2]:= 'Cinco';

MAXIUM

26-01-2023 02:38:55

Solucionado... Acabo de descubrir la función Exchange() :D

Código Delphi [-]Var
   ListaA: TStringList;
   Desde: Integer;
begin
     ListaA:= TStringList.Create;

     For Desde:= 0 to 9 Do
         ListaA.Add(IntToStr(Desde));

     For Desde:= 0 to 9 Do
         ListaA.Exchange(Desde, Random(Desde));

     ListaA.Free;
end;

Neftali [Germán.Estévez]

26-01-2023 09:18:19

Cita:

Empezado por MAXIUM (Mensaje 550158)

Imaginen un StringList con 3 elementos:
...
¿Se puede hacer un "UnSort"? Por ejemplo

No se a qué te refieres con un "UnSort".
Si te refieres a ordenralo del revés, los TStringList tienen un Sort/Sorted. Bastaría con que lo recorrieras al revés.

Si te refieres a "mezclarlo", deberás hacerlo manualmente.

MAXIUM

26-01-2023 14:03:23

Cita:

Empezado por Neftali [Germán.Estévez] (Mensaje 550165)

El último código qué puse, resuelve mi problema. Gracias ^\||/

Neftali [Germán.Estévez]

26-01-2023 15:15:47

Cita:

Empezado por MAXIUM (Mensaje 550169)

El último código qué puse, resuelve mi problema. Gracias ^\||/

^\||/^\||/

La franja horaria es GMT +2. Ahora son las 22:42:38.