array sortieren

[AlexanderBrade]

Ich hab ein riesengroßes Problem wie kann ich folgendes array Feldsortieren?
array[1..24]
Jedem z.B. A[1] ist der Wert eines edit-Feldes zugewiesen.
Ich möchte nun das Feld sortieren um anschließend die 8 höchsten Werte(1-15 sind möglich) zu erhalten um diese dann addieren zu können!
Wie müsste ein solcher BubbleSortAlgorithmus aussehen und wo schreibe ich den genau hin?

[mkinzler]

Array of was?

[AlexanderBrade]

array[1..24] of word
-->Ich will ja Zahlen sortieren!

[Meflin]

Unser Cheffe höchstpersönlich hat ein recht gutes Tutorial zu allerlei Sortieralgorithmen geschrieben ;)
http://www.delphipraxis.net/internal_redirect.php?t=344

[DeddyH]

Auf Wikipedia ist der Bubblesort schön beschrieben (mit pascal-ähnlichem Pseudocode).

[mkinzler]

Die Suchfunktion sollte auch Einiges zu Tage befördern :zwinker:

[AlexanderBrade]

Das hilft mir aber alles nicht weiter:
Selbst wenn ich folgenden Pseudocde habe:

Delphi-Quellcode:

Procedure BubbleSort;
var i,j : Integer;
Begin
  For i:= N downto 1 Do
    For j:= 1 To i Do
      If (Data[j-1] > Data[j]) Then SwapValues( j-1, j );
End;

Wo kommt diese Prozedur hin und wie verweise ich innerhalb einer Button1click prozedur darauf oder kann ich sie in selbige einbauen?
Und vor allem wie komme ich an die 8 "besten" Elemente?

[DeddyH]

Bei dem von Dir geposteten Code fehlt die Hälfte. Du musst das Array schon als Parameter übergeben. Schau Dir doch einfach mal Daniels Tut an und schmeiß Deinen zitierten Code in die Tonne.

[Meflin]

Zitat:

Zitat von AlexanderBrade

Wo kommt diese Prozedur hin und wie verweise ich innerhalb einer Button1click prozedur darauf oder kann ich sie in selbige einbauen?

Du könntest sie direkt in die ButtonClick Prozedur einbauen, oder du fügst die Prozedur im implementation-Teil ein und rufst sie dann schlicht und einfach aus deiner OnClick-Prozedur heraus auf.

Zitat:

Und vor allem wie komme ich an die 8 "besten" Elemente?

Nach dem Sortieren:

Delphi-Quellcode:

for i := 0 to 7 do
  MachWasMit(Array[i])

[AlexanderBrade]

Also so?

Delphi-Quellcode:

Procedure BubbleSort;
var i,j : Integer;
Begin
  For i:= 24 downto 1 Do
    For j:= 1 To i Do
      If (Array[j-1] > Array[j]) Then SwapValues( j-1, j );
End;