Bubblesort an Liste anpassen

[wendel]

Hey Leutz, ich bräuchte einen Tipp, wie ich in eine vorhande Liste den Bubblesort anpassen könnte ;)

Delphi-Quellcode:

procedure BubbleSort(Items: TStrings);
var
  Element : TElement;
  done: boolean;
  i, n: integer;
  Dummy: string;
begin
  n := Items.Count;

  repeat
    done := true;
    for i := 0 to n - 2 do
      if Items[i] > Items[i + 1] then
      begin
        Dummy := Items[i];
        Items[i] := Items[i + 1];
        Items[i + 1] := Dummy;

        done := false;
      end;
  until done;

end;



procedure TFListe.Button1Click(Sender: TObject);
begin
BubbleSort(Listbox1.Items);
end;

Anstelle der Listbox verwenden wir ein TStringGrid ;/
Ich hänge mal die ganze Datei an, wer Lust hat, kann es sich ja anschauen und vielleicht noch Vorschläge geben ;)
Bin noch ziemlich neu in Delphi, also habt Gnade ^^
Es ist eine List, hat zwei Units, eine mit OOP. Ihr könnt sie ruhig testen ^^

[Klaus01]

Hallo,

nach welcher Spalte willst denn Du sortieren?

Ansonsten ist auch TStringGrid.rows vom Typ TStrings
und sollte also auch von Deiner BubbleSort Routine verarbeitet werden können.
Es werden dann aber die ganzen Zeilen verglichen.

Grüße
Klaus

[Gausi]

Ich weiß nicht, ob du es irgendwann irgendwem mal glaubst, aber du musst halt den Bubblesort, der in aller Regel auf einer Array-Struktur arbeitet (so auch hier) so umbauen, dass er auf einer Listenstruktur arbeitet. Statt die Indizes des Arrays zu benutzen, musst du halt die Vorwärts/Rückwärtszeiger deiner Liste bemühen, um durch die Struktur zu laufen und Vertauschungen vorzunehmen. Das ist etwas hakelig, und mit Copy&Paste kommt man nicht viel weiter, weil eine sortierte Liste gegenüber einer unsortierten eigentlich keine Vorteile liefert. Deswegen werden die Dinger relativ selten sortiert, und man findet nicht so oft Code dafür ;-)
Oder du kloppst deine Liste in die Tonne und arbeitest mit den Strukturen, die die VCL so verwendet. Die heißen zwar auch TList o.ä., sind aber keine verketteten Strukturen wie deine Liste, sondern ähneln eher Arrays.

P.S.: Solltest du von den verlinkten Beiträgen nichts wissen, weil du doch jemand anderes bist: Tschuldigung :D.

[wendel]

das ist leichter gesagt als getan ^^
aber ich nehme mir mal zeit heute. danke für den tipp, aber die liste werde ich nicht in die tonne treten ^^
mit den beiden posts habe ich im übrigens nichts zu tun, aber ich frage mich, woher er die gleiche liste hat Oo
die liegt nähmlich auf einem schulserver Oo

gruß
wendel

[Thorben_K]

DA ich grade genau das selbe gesucht habe, bin ich auf das hier gestossen

Klick

vll hillft es dir ja

[wendel]

Hey vielen Dank, dass ist sehr hilfreich ;)
dieser thread könnte in open source evt. verschoben werden, ist ja praktisch fertig.