ok ich hab das halt jetzt mit meinen 12 Editfeldern gemacht dich ich da habe
Delphi-Quellcode:
Array[0] = StrtoInt(Edit1.Text);
Array[1] = StrToInt(Edit2.Text);
Array[2] = StrToInt(Edit3.Text);
Array[3] = StrToInt(Edit4.Text);
Array[4] = StrToInt(Edit5.Text);
Array[5] = StrToInt(Edit6.Text);
Array[6] = StrToInt(Edit7.Text);
Array[7] = StrToInt(Edit8.Text);
Array[8] = StrToInt(Edit9.Text);
Array[9] = StrToInt(Edit10.Text);
Array[10] = StrToInt(Edit11.Text);
Array[11] = StrToInt(Edit12.Text);
Procedure BubbleSort;
var i,j : Integer;
Begin
For i:= Length(Array) downto 1 Do
For j:= 1 To i Do
If (Array[j-1] > Array[j]) Then SwapValues( j-1, j );
End;
aber wie füge ich das jetzt in die listbox ein?...Listbox1.items.add(array)???
Weil ich hab 3 Listboxen Einmal Die manschaft, einmal die Punkte und einmal die tore
damit sich das jeder vllt auch mal vorstellen kann wie das aussieht, hier mal ein bild
http://www.bilder-hochladen.net/files/790n-1-jpg.html