Ach Technikus, wenn du nur die Einrückung etwas sorgfältiger machen würdest, dann würdest du sofort sehen:
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
begin
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]); // hier werden i und j verwendet
end
end
end;
Ich habe deinen Code nicht geprüft, aber von der Optik und wegen der Verwendung von j in der markierten Zeile, gehört der Block wohl in die j-Schleife
Grüße vom marabu