Hallo marabu,
jetzt habe ich gesehen, und geändert.
Ich bemühe mich um Besserung und weniger Schlamperei.
Delphi-Quellcode:
procedure TForm1.Button2_BubblesortClick(Sender: TObject);
var
j, ende, i, 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, j+1] := (StringGrid1.Cells[2, j+2]);
end
end;
end;
Funktionieren will es aber trotzdem nicht.
Wie kann ich die sortierte Ausgabe so hinbekommen, dass die sortierten Ergebnisse in die 3. Spalte erscheinen?
Gruß Technikus