Ich hab hier ein Problem mit meinem array. Das array ist mit 15 Zufallszahlen gefüllt, und ich würd die gerne sortieren. Kann mir vielleicht jemand dabei helfen?
Delphi-Quellcode:
procedure TForm1.btnZahlenZufall1Click(Sender: TObject);
var
d,c,i:integer;
b:array[0..20] of integer;
begin
randomize;
b[0]:=0;
for c:=1 to 15 do
begin
b[c]:=random(90+1);
for d:=0 to c-1 do
begin
while b[c]=b[d] do
b[c]:=random(90+1);
end;
end;
//Hier würd ich die Zahlen gern sortieren
for i:=0 to 4 do
sgMeineZahlen1.cells[i,0]:=IntToStr(b[i+1]);
for i:=0 to 4 do
sgMeineZahlen1.cells[i,1]:=IntToStr(b[i+6]);
for i:=0 to 4 do
sgMeineZahlen1.cells[i,2]:=IntToStr(b[i+11]);
end;