Como por em ordem crescente uma lista de valores num�ricos?

Question

Pessoal,Eu tenho uma array contendo centenas de valores ex. �001516�, �002348�, �000023�, etc... Como fa�o para colocalos em ordem crescente.Voc�s podem me mostrar um exemplo de c�digo ou uma rotina q...

Pedro Campos · Answer

A rotina abaixo � uma das formas possiveis. H� solu��es melhores, mas a que segue abaixo � simples.

procedure OrdenaArray(var Matriz: TipoDoArray);
var
  i, k: integer; Auxiliar: TipoDoElementoDoArray;
begin
  for i := Lo(Matriz) to Hi(Matriz)-1 do
    for k := i+1 to Hi(Matriz) do
      if Matriz[i] > Matriz[k] then
      begin
        Auxiliar := Matriz[i];
        Matriz[i] := Matriz[k];
        Matriz[k] := Auxiliar;
      end;
end;

F�rum Como por em ordem crescente uma lista de valores num�ricos? #211055