Ordenar itens de um ARRAY

Delphi

17/06/2004

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


Drogao

Drogao

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

17/06/2004

leia este tópico:
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=46586[/url]

acho q vai te ajudar.


GOSTEI 0
Juniorgalvao

Juniorgalvao

17/06/2004

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


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

17/06/2004

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


GOSTEI 0
POSTAR