bubble sort ausgabeproblem

[ko3rby]

Halli hallo,
ich habe ein Problem. Ich möchte gerne Zahlen sortieren mit Hilfe des Bubblesorts. So wie ihr unten sehen könnt habe ich das mit dem sortieren so halb wegs(HOFFE ICH) hinbekommen. Jetzt möchte ich die Zahlen in einer Listbox sortiert ausgeben wie mach ich das? Weil ich habe es schon mit listbox2.items.add(inttostr(buffer)) das macht er zwar aber immer nur eine Zahl.. Ich möchte gerne das alle eingegebenen Zahlen sortiert ausgeben werden. Könnt ihr mir helfen?

Delphi-Quellcode:

procedure Tform3.sortiere;
var buffer,j:integer;
begin
    for i:=1 to (anzahl-1) do
      if speicher[i]>speicher[i+1] then
      buffer:=speicher[i];
      speicher[i]:=speicher[i+1];
      speicher[i+1]:=buffer; 
end;

[mkinzler]

Du musst durch den gesamten Array gehen und die Elemente der ListBox hinzufügen.

[ko3rby]

bedeutet listbox2.items.add(inttostr(speicher[1..anzahl]))?

[semo]

Zitat:

bedeutet listbox2.items.add(inttostr(speicher[1..anzahl]))?

--> falsch.
Du musst das array von Beginn bis Ende durchlaufen und in jedem Durchlauf die Zahl als String der Listbox hinzufügen.
etwa so:

Delphi-Quellcode:

for i:=0 to High(speicher) do
begin
  listbox2.items.add(inttostr(speicher[i]));
end;

[ko3rby]

Funktioniert irgendswie nicht, er gibt mir zwar zahlen aus aber genau die selben wie vorher..

[mkinzler]

Welche sonst?
Natürlich nach dem Sortieren.

[Die Muhkuh]

Der BubbleSort ist doch eh nicht vollständig. Da fehlt ein begin und end, sowie die zweite Schleife.

[ko3rby]

Das ist mein Source zu meinem oberen Problem, das Problem ist er vertauscht nicht, gibt nur 0en und die kleinste Zahl aus. Und vertauscht die anderen daten nicht. HILFE-.- Schreib da am Freitag ne Klausur ...


[delphi]
begin
for j := 1 to 5 do
begin
for i := 1 to 5 do
if speicher[i].Nummer>speicher[i+1].Nummer then
begin
buffer:=speicher[i].Nummer;
speicher[i].Nummer:=speicher[i+1].nummer;
speicher[i+1].nummer:=buffer;

end;

for i:= 1 to 5 do
listbox1.items.add(inttostr(speicher[i].Nummer));
listbox2.items.add(speicher[i].Autor);
listbox3.Items.add(speicher[i].Titel);
listbox4.Items.add(inttostr(speicher[i].Bestand));
end;

[Dani]

Hast du den Algorithmus schonmal auf dem Papier ausgeführt?

[ko3rby]

Ich weiß gerade mal nicht was du meinst. Tut mir leid