Hallo,
nun habe ich den Text noch etwas geändert, und die Sortierung findet auch statt.
Aber es kommt noch eine Fehlermeldung nachdem er sortiert hat."ist kein gültiger Integerwert"
Kannst du mir bitte die viertletzteZeile erklären?
Delphi-Quellcode:
procedure TForm1.Button2_BubblesortClick(Sender: TObject);
var
merke:string;
i: integer;
KeinWechsel: boolean;
begin
{ alle "Zahlen" aus Spalte #1 in Spalte #2 kopieren }
for i:=1 to 99 do
StringGrid1.Cells[2,i] :=StringGrid1.Cells[1,i];
{ Bubblesort }
repeat {Wiederhole solange "KeinWechsel" wahr ist...}
(* noch keine Vertauschung *)
KeinWechsel:=true;
{ Reihen 1 bis 100 sortieren }
for i:=1 to 99 do
if StrToInt(StringGrid1.Cells[2, i]) > StrToInt(StringGrid1.Cells[2, i+1])
then
begin
(* Tauschen *)
merke:=StringGrid1.Cells[2, i];
StringGrid1.Cells[2, i]:=StringGrid1.Cells[2, i+1];
StringGrid1.Cells[2, i+1]:=merke;
{Vertauschung hat stattgefunden -habe ich verstanden}
KeinWechsel:=false;{Bedeutung ist mir unklar}
end;
until KeinWechsel; {...bis diese Bedingung "KeinWechsel" erfüllt ist}
end;
Danke Technikus