Zufall wiederholt sich??

[daredd]

Zitat von TheAn00bis:

Zitat von zebrafalke:

Wie der Zufall so spielt, kann es durchaus sein, das er oft beim Start des Progs die selbe Zahl angibt...ist mir auch schon passiert...

Das wird aber nur bei kleinen Bereichen vorkommen.

Rufst du

Randomize; auch nur einmal auf?


Ansonsten zeig doch mal etwas Code.

So klappt das jetz ich habe 2 mal randomize benutzt!!!!
ein mal:

Delphi-Quellcode:

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.CreateForm(Sender: TObject);
begin
  Randomize;
end;
......

und dann noch direkt in der Prozedur wo dann die zahlen notiert werden:

Delphi-Quellcode:

procedure TForm1.Zufall(Sender: TObject);
const
  nZ181  = 7;
  nz182  = 9;
  nz183  = 9;
  sZ181  = 7;
  sz182  = 9;
  sz183  = 9;
  nZ261  = 7;
  nz262  = 9;
  nz263  = 9;
  sZ261  = 7;
  sz262  = 9;
  sz263  = 9;
  nZ341  = 7;
  nz342  = 9;
  nz343  = 9;
  sZ341  = 7;
  sz342  = 9;
  sz343  = 9;
  nZ421  = 7;
  nz422  = 9;
  nz423  = 9;
  sZ421  = 7;
  sz422  = 9;
  sz423  = 9;
  nZ491  = 7;
  nz492  = 9;
  nz493  = 9;
  sZ491  = 7;
  sz492  = 9;
  sz493  = 9;
  nZ581  = 7;
  nz582  = 9;
  nz583  = 9;
  sZ581  = 7;
  sz582  = 9;
  sz583  = 9;
  nZ661  = 7;
  nz662  = 9;
  nz663  = 9;
  sZ661  = 7;
  sz662  = 9;
  sz663  = 9;
  nZ741  = 7;
  nz742  = 9;
  nz743  = 9;
  sZ741  = 7;
  sz742  = 9;
  sz743  = 9;
  nZ821  = 7;
  nz822  = 9;
  nz823  = 9;
  sZ821  = 7;
  sz822  = 9;
  sz823  = 9;
begin
Randomize;
NSpin18.Text:=IntToStr(Random(nz181))+','+IntToStr(Random(nz182))+IntToStr(Random(nz183));
SSpin18.Text:=IntToStr(Random(sz181))+','+IntToStr(Random(sz182))+IntToStr(Random(sz183));
NSpin26.Text:=IntToStr(Random(nz261))+','+IntToStr(Random(nz262))+IntToStr(Random(nz263));
SSpin26.Text:=IntToStr(Random(sz261))+','+IntToStr(Random(sz262))+IntToStr(Random(sz263));
NSpin34.Text:=IntToStr(Random(nz341))+','+IntToStr(Random(nz342))+IntToStr(Random(nz343));
SSpin34.Text:=IntToStr(Random(sz341))+','+IntToStr(Random(sz342))+IntToStr(Random(sz343));
NSpin42.Text:=IntToStr(Random(nz421))+','+IntToStr(Random(nz422))+IntToStr(Random(nz423));
SSpin42.Text:=IntToStr(Random(sz421))+','+IntToStr(Random(sz422))+IntToStr(Random(sz423));
NSpin49.Text:=IntToStr(Random(nz491))+','+IntToStr(Random(nz492))+IntToStr(Random(nz493));
SSpin49.Text:=IntToStr(Random(sz491))+','+IntToStr(Random(sz492))+IntToStr(Random(sz493));
NSpin58.Text:=IntToStr(Random(nz581))+','+IntToStr(Random(nz582))+IntToStr(Random(nz583));
SSpin58.Text:=IntToStr(Random(sz581))+','+IntToStr(Random(sz582))+IntToStr(Random(sz583));
NSpin66.Text:=IntToStr(Random(nz661))+','+IntToStr(Random(nz662))+IntToStr(Random(nz663));
SSpin66.Text:=IntToStr(Random(sz661))+','+IntToStr(Random(sz662))+IntToStr(Random(sz663));
NSpin74.Text:=IntToStr(Random(nz741))+','+IntToStr(Random(nz742))+IntToStr(Random(nz743));
SSpin74.Text:=IntToStr(Random(sz741))+','+IntToStr(Random(sz742))+IntToStr(Random(sz743));
NSpin82.Text:=IntToStr(Random(nz821))+','+IntToStr(Random(nz822))+IntToStr(Random(nz823));
SSpin82.Text:=IntToStr(Random(sz821))+','+IntToStr(Random(sz822))+IntToStr(Random(sz823));
end;

Das klappt jetz so!!