Ordenar itens de um ARRAY

Question

alguem sabe como fa�o para colocar todas os elementos de um array em ordem crescente (obs. sao lan�ados v�rios n�meros aleatoriamente e s�o gravados em um array, e agora preciso que os mesmos fiquem em ordem crescente).

Agrade�o desde j� e conto com a ajuda de todos
Valeu

Emerson Nascimento · Answer

leia este t�pico:[url]//delphiforum.icft.com.br/forum/viewtopic.php?t=46586[/url]acho q vai te ajudar....

Juniorgalvao · Answer

Caro colega entre em contato comigo atrav�s do e-mail: pedrogalvaojunio@bol.com.br, pois eu desenvolvi um pequeno projeto que sorteio e organiza uma quantidade de n�meros armazenados dentro de um array.

Acredito que este projeto possa ajudar voc�, fico aguardando o seu contato.

Tchau...

Pedro Antonio Galv�o Junior

Marcelo Saviski · Answer

fora o exemplo citado no t�pico do link acima, pode-se usar esse aqui tamb�m:

procedure SortIntArray(var IntArray: array of Integer);
  procedure _SortIntArray(L, R: Integer);
  var  
    I, J: Integer;
    P, T: Integer;
  begin
    repeat
      I := L;
      J := R;
      P := IntArray[(L + R) shr 1];
      repeat
        while IntArray[I] < P do
          Inc(I);
        while IntArray[J] < P do
          Dec(J);
        if I <= J then
        begin
          T := IntArray[I];
          IntArray[I] := IntArray[J];
          IntArray[J] := T;
          Inc(I);
          Dec(J);
        end;
      until I > J;
      if L < J then
        _SortIntArray(L, J);
      L := I;
    until I >= R;
  end;
begin
  _SortIntArray(Low(IntArray), High(IntArray));
end;

Eu mudei uma fun��o da Unit Classes que trabalhava com ponteiros pra fazer essa aqui

F�rum Ordenar itens de um ARRAY #238309