array sortieren

[DeddyH]

Wenn ich beim Gockel die Begriffe [google]Delphi + Bubblesort[/google] eingebe, habe ich als 3. Treffer diese Seite, wo der Algo gut erklärt und in verschiedenen Programmiersprachen implementiert wird.

[mkinzler]

Und eine Vertauschen 2 Werten macht man am Besten mit einem Dreieckstausch

[Noedel]

Weil SwapValues eine so genannte, selbst geschriebene Procedure von Wikipedia ist, und dies nicht in diesem Thema "Bubblesort" extra erklärt werden sollte/könnte/müsste/... ach such dir n wort aus :roll:

[EDIT] wohl mal wieder zu spät :shock: [/EDIT]

[AlexanderBrade]

Vielen Dank für die nützlichen Hinweise, aber eine FRage bleibt:
Wie rufe ich die Procedure Bubblesort innerhalb meiner Button1cclick prozedur auf?

[DeddyH]

Zitat:

Zitat von AlexanderBrade

Vielen Dank für die nützlichen Hinweise, aber eine FRage bleibt:
Wie rufe ich die Procedure Bubblesort innerhalb meiner Button1cclick prozedur auf?

Wie jede andere auch.

Delphi-Quellcode:

Bubblesort(MeinArray);

[Noedel]

weil die Frage schon vorprogrammiert (schöner Wortwitz =D ) ist, einer Procedure "SwapValues" übergibt man 2 parameter!

Delphi-Quellcode:

SwapValues(j-1,j)

demnach erwartet diese auch 2!

Delphi-Quellcode:

procedure TForm1.SwapValues(a,b:integer);

[AlexanderBrade]

inzwischen bin ich so weit gekommen:
(Kann jemand mal Korrektur lesen?!?)

Delphi-Quellcode:

procedure Button1Click(Sender: TObject);
    Procedure BubbleSort(var B: Array of byte);
  private
    { Private-Deklarationen }

              {usw.}
Procedure BubbleSort(var B: Array of byte);
   Procedure Swap(var xx,yy:integer);
     var
      Swp: integer;
      begin
        swp:=xx;
        xx:=yy;
        yy:=swp;
      end;

var i,j : Integer;
Begin
For i:= 1 to 24 Do
   For j:= 1 To 24-1 Do
       If (B[j] > B[j+1]) Then Swap( B[j], B[j+1] );

End;

Zunächst mekkert er immer im Deklarationsteil(oben) bei der Prodedure BubbleSort(...), desweiteren missfällt ihm die if Zeile der Prozedur!

[DeddyH]

Was soll denn A sein?

[edit] Und wenn Du es im interface-Teil als Methode Deines Formulars deklarierst, musst Du es im implementation-Teil auch als Methode schreiben:

Delphi-Quellcode:

procedure TDeineForm.Bubblesort(var B: Array of byte);

[/edit]

[AlexanderBrade]

Das ist eine wirklich gute Frage!

[guidok]

Dein Array ist vom Typ "Byte" und deine Swap Prozedure tauscht Werte vom Typ Integer und angeblich ist dein Array ja vom Typ Word. Du solltest dich mal entscheiden.