oder halt BubbleSort.
Füge die Procedure nach {$R *.dfm} ein:
(oder besser vor der Methode, die Bubblesort nutzt oder noch besser in eine eigene Tools-
Unit)
Delphi-Quellcode:
{$R *.dfm} (* Die Zeile in Deinem Code suchen *)
procedure BubbleSortWuerfel(var A : array of Integer);
var
i,j,t : Integer;
begin
for i := Low(A) to High(A) do
for j := Low(A) to High(A) - 1 do
if A[j] > A[j + 1] then begin
t := A[j];
A[j] := A[j+1];
A[j+1] := t;
end;
end;
Sortieren kannst Du dann, nachdem Du die Random-Werte zugewiesen hast:
BubbleSortWuerfel(w);
btw: Ein Würfel hat 6 Seiten
