Ich habs jetzt wirklich GENAU so übernommen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var zahl1:tzahl;
var c,super1,speicher,d:integer;
var changed:boolean;
begin
Lotto(zahl1,super1); //Ausgabe
Repeat
Changed := False;
For d := 0 To Length(zahl1) - 6 do
begin
if zahl1[d] > zahl1[d+1] then
begin
Speicher := zahl1[d];
zahl1[d] := zahl1[d+1];
zahl1[d+1] := Speicher;
Changed := True;
end;
end;
Until Changed = False;
for c:=1 to 7 do
Stringgrid1.Cells[c,0]:=IntToStr(zahl1[c]);
label1.Caption:=IntToStr(super1);
end;
Es klappt trotzdem nicht immer. Warum??
Erst hab ich die Zahlen geordent, dann sogar noch in einer extra Schleife die Sache wieder ausgegeben. Trotzdem sind die Zahlen, zumindest nicht immer, geordnet