preciso de ajuda com este código Ordenação através de insertion e Selection

[Phillipe Silva]

Alguem poderia me ajudar com esse codigo de ordenação?

procedure TForm1.btnInsertionClick(Sender: TObject);
var aux, i, j: integer ;
begin

  for i := 1 to 5000 do
     gridInsert.cells[1,i] := lista.lines[i-1];

  for i := 1 to 5000 do
      for j := 1 to 4999 do
       aux := strtoint(gridInsert.cells[1,j]);
    //   j := j-1;
       gridInsert.cells[1,j] := gridInsert.cells[1,j-1];

       While ((j > 1) AND (aux < strtoint(gridInsert.cells[1,j-1]) )) do
          begin
            gridInsert.cells[1,j] :=  gridInsert.cells[1,j-1];
           j := j - 1;
            gridInsert.cells[1,j] := inttostr(aux);
             End;

  End;                          

A lista chega aparecer na stringrid mas não ordena.                             

[Dercide Alvarez]

Qual a finalidade ?

Quer ordenar o que ? 

Qual o origem dos dados ?

Não seria mais facil ordenar em um DataSet ?

 

Dercide.

[Phillipe Silva]

6 horas atrás, Dercide Alvarez disse:

Qual a finalidade ?

Quer ordenar o que ? 

Qual o origem dos dados ?

Não seria mais facil ordenar em um DataSet ?

 

Dercide.

Olá, A finalidade e ordena uma lista de números embaralhados em uma tsstringrid.

Na verdade e um trabalho universitário  da cadeira de estrutura de dados que estou fazendo de Sistemas de Informações.

Mas também já resolvi ele hoje de manha, agora está faltando apenas o Merger e o Quick sort.

A solução que obtive é que faltou a condição if e uma variável boolean e só precisava de apenas dois loopings.

procedure TForm1.btnInsertionClick(Sender: TObject);
var  i, j: integer ;
var aux: integer;
var found : boolean;
begin
   for i := 1 to 5000 do
    gridInsert.cells[1,i] := lista.lines[i-1];
   for i := 2 to 5000 do
    begin
   aux := strtoint(gridInsert.cells[1,i]);
   j := i-1;
   found := false;
   while (j >= 1)
   and (not found) do
   if (aux < strtoint(gridInsert.cells[1,j])) then
   begin
   gridInsert.cells[1,j+1] := gridInsert.cells[1,j];
   j := j-1;
   end
   else
   found := true;
   gridInsert.cells[1,j+1] := inttostr(aux);
   end
   End;
	

 

Editado 24 Junho, 2018 por Phillipe Silva