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?

Delphi-Quellcode:

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

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "VCL / WinForms / Controls" nach "Sonstige Fragen zu Delphi" verschoben.
Das hat mit der VCL nichts zu tun.

[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:

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:

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

Delphi-Quellcode:

if feld[j]>feld[j+1] then

sondern

Delphi-Quellcode:

if feld[i]>feld[j] then