Servus leute hab ein proplem hab ein programm das aus 45 zahlen 6 zufällige wählt aber es dürfen net die gleichen kommen kann mir jemande helfen hier mein code.
end;
Delphi-Quellcode:
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e,f : integer;
begin
randomize;
a:=random(46);
b:=random(46);
c:=random(46);
d:=random(46);
e:=random(46);
f:=random(46);
edit1.text := inttostr(a);
edit2.text := inttostr(b);
edit3.text := inttostr(c);
edit4.text := inttostr(d);
edit5.text := inttostr(e);
edit6.text := inttostr(f);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
[edit=sakura] Titel geändert und [delphi]-Tags Mfg, sakura[/edit]