Sortieren von Zufallszahlen im Stringgrid

[Technikus]

Hallo marabu,

ich habe den Text folgender Maßen geändert:

Delphi-Quellcode:

procedure TForm1.Button2_BubblesortClick(Sender: TObject);
var
 j,ende,i,n,Merke: integer;
begin
   ende:=5;
 with StringGrid1 do
 begin
  for i:= ende-1 downto 1 do
   for j:= 1 to i do
    if Stringgrid1.Cells[2,j+1]> StringGrid1.Cells[2,j+2] then
      begin
       Merke:= StrToInt(StringGrid1.Cells[2,j]);
       Stringgrid1.Cells[2,j+1]:= StringGrid1.Cells[2,j+2];
       StringGrid1.Cells[2,j+2]:= IntToStr(Merke);
      end;
    StringGrid1.Cells[2,i+1]:= (StringGrid1.Cells[2,j+2]);
  end
end;

Bei der Sache mit der j-Schleife --gib mir bitte noch ein Stichwort,ja?
Danke Technikus