random

[glitterangel87]

das ist das ganze! und ich schwör euch: gestern sind mir sooo oft 0 gekommen, da hab ich mir gedacht, ich dreh gleich durch!

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   for i:= 1 to 6 do
    begin
      randomize;
      a[i]:=random(49)+1;
    end;
   repeat
     c:=true;
     for i:= 1 to 5 do
      begin
        if a[i]>a[i+1] then
         begin
           h:=a[i];
           a[i]:=a[i+1];
           a[i+1]:=h;
           c:=false;
         end;
      end;
   until c;
   Label1.Caption:= IntToStr(a[1]);
   Label2.Caption:= IntToStr(a[2]);
   Label3.Caption:= IntToStr(a[3]);
   Label4.Caption:= IntToStr(a[4]);
   Label5.Caption:= IntToStr(a[5]);
   Label6.Caption:= IntToStr(a[6]);

end;

wo kann der fehler liegen?

[edit=alcaeus]Delphi-Tags eingefuegt. In Zukunft bitte selbst machen. Danke Mfg, alcaeus[/edit]