Bubblesort einer Listbox. Mit 3 Verknüfungen

[xaromz]

Hallo,

Deine Funktion ist leider fehlerhaft.

Delphi-Quellcode:

procedure TForm1.Sort;
var
  i, j: Integer;
begin
  Progressbar2.Position := 0;
  progressbar2.Max := Listbox2.Count - 1;
  for i := 0 to Listbox2.Items.Count - 1 do             // <- hier mit Null beginnen
  begin                                                 // <- hier ein begin hin
    Progressbar2.Position := Progressbar2.Position + 1;
    for j := i + 1 to ListBox2.Items.Count - 1 do       // <- hier von i + 1 bis Ende zählen
    begin
      if Listbox2.Items[j] > Listbox2.Items[i] then     // <- hier j mit i vergleichen
      begin
        Listbox1.Items.Exchange(i, j);                  // <- einfacher
        Listbox2.Items.Exchange(i, j);
        Listbox3.Items.Exchange(i, j);
        Listbox4.Items.Exchange(i, j);
      end;
    end;
  end;                                                  // <- hier ein end hin
end;

Gruß
xaromz