markieren

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

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

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

Außerdem tauschst Du wohl die falschen Elemente:

Zitat:

markieren

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:

markieren

Delphi-Quellcode:

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

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

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

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

Hallo,

Dein Bubblesort ist falsch.

markieren

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

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