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 ^^