bubblesort funzt ni need help

[The_Doomed]

Code:

procedure TForm1.sortbtnClick(Sender: TObject);
var i,j,n : integer;
    hilfe : string;
begin
 f2.Items.Clear;
 n:=f1.Items.Count-1;

 for i:=0 to n do feld[i+1]:=f1.Items[i];

 for i:=1 to n-1 do
  for j:=1 to n-1 do
    if feld[j]>feld[j+1] then
      begin
      hilfe:=feld[i];
      feld[i]:=feld[j];
      feld[j]:=hilfe;
      end;

  for i:=0 to n+1 do
  begin
  f2.Items.Add(feld[i+1]);
  end;
end;

kann mir jemand sagen was da dran falsch is ich krieg grad nix auf die reihe
danke schonmal vornweg

[Klaus01]

Ist es richtig, dass das feld bei Dir ein Array of Integer ist?
for i:=0 to n do feld[i+1]:=f1.Items[i]; Dann geht das obige nicht, hier versuchst Du einen String einen Integertypen zuzuweisen.
Wenn dem so sein sollte, dann hilft Dir StrToInt():

Grüße
Klaus

[The_Doomed]

das isn array of string aber ich weiß ni was du denkst was ich umwandeln sollte

[DeddyH]

Außerdem tauschst Du wohl die falschen Elemente:

Zitat:

Delphi-Quellcode:

    if feld[j]>feld[j+1] then
      begin
      hilfe:=feld[i];
      feld[i]:=feld[j];
      feld[j]:=hilfe;
      end;

Sollte wohl so heißen:

Delphi-Quellcode:

    if feld[j]>feld[j+1] then
      begin
      hilfe:=feld[j+1];
      feld[j+1]:=feld[j];
      feld[j]:=hilfe;
      end;

[The_Doomed]

lol na ja jetzt verschwinden alle elemente muss ich da dann j+1 ausgeben lassen

[Klaus01]

Zitat von The_Doomed:

das isn array of string aber ich weiß ni was du denkst was ich umwandeln sollte

Wenn das ein Array of String ist, dann kannst
weiter unten nicht auf größer oder kleiner prüfen.
Ich meine das kannst Du schon, macht in diesem Zusammenhang aber wenig Sinn.
Oder willst Du Buchstaben sortieren?

Grüße
Klaus

[marabu]

Hi,

Zitat von The_Doomed:

... kann mir jemand sagen was da dran falsch is ich krieg grad nix auf die reihe ...

die gute Nachricht ist: Nur die Schleife ist so richtig falsch. Die schlechte Nachricht: BubbleSort ist nicht viel mehr.

Vielleicht solltest du dir mal diesen Thread durchlesen: Arrays sortieren

Grüße vom marabu

[hoika]

Hallo,

Dein Bubblesort ist falsch.

Delphi-Quellcode:

for i:=1 to n-1 do
  for j:=i+1 to n-1 do

Du hast statt i+1 nur 1 genommen.

Ich würde besser Quicksort nehmen,
aber einer bestimmten Array-Zahl wird BubbleSort sehr langsam.


Heiko

[TeronG]

und nicht
if feld[j]>feld[j+1] then sondern
if feld[i]>feld[j] then