array sortieren

[AlexanderBrade]

Der Code soll bezwecken, dass wenn eine editbox existiert, er jeweils spezifische Elemente aus dem arrayFeld entfernt! Es handelt sich hierbei um einen Rechner für Notendurchschnitte, der es ermöglicht aus 5 Fächern und jeweils 4 Halbjahresleistungen die besten 5 Leistungen zu Tage zu befördern!

[mkinzler]

Dann würde ich mit CheckBoxen o.ä. arbeiten

[AlexanderBrade]

Ja wäre eine Möglichkeit aber das Sortieren ist das Problem und vor allem ob er innerhalb meiner Button1click Prozedur den Sortieralgorithmus aufruft!

[mkinzler]

Delphi-Quellcode:

For i:= 22 downto 0 Do
   For j:= 23 downto i+1 Do
      If B[i] < B[j] Then Swap( B[i], B[j] );

Dynamische Array beginnen, wie schon erwähnt mit dem Index 0:
wf:=B[0]+B[1]+B[2]+B[3]+B[4];

[DeddyH]

Delphi-Quellcode:

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

var i,j : byte;
Begin
For i:= High(B) downto Low(B) Do
   For j:= Low(B) To i-1 Do
       If (B[j] > B[j+1]) Then Swap( B[j], B[j+1] );
End;

Ungetestet, müsste aber in etwa stimmen.