Zufalsgenerator - Zahlen auslassen ?

[Cyberbob_at_tot]

OK das 9te ist weg

Leeren will ich das eigentlich nicht, nach dem ersten Durchgang soll er die Zahl schon behalten bis alle mal dran waren!

[Dax]

Dann leerst du das Array eben vor dem ersten Durchgang ... einen passenden Platz für das FillChar zu finden sollte ja nicht schwer sein.

[Cyberbob_at_tot]

Leider funktioniert das mit dem Fillchar nicht richtig !
Siehe Bild!

[Dax]

Das verstehe ich nicht... Bei mir funktioniert es reibungslos.

[Cyberbob_at_tot]

sorry irgentwie wollte das mit dem Bild nicht richtig ? hoffe es ist nun da!

[Dax]

Es ist da, sogar doppelt...

[Dax]

Bin heute morgen irgendwie geistig halb-abwesend... Jetzt sollte der Code aber stimmen.
Statt FillChar(Used[1], Len(Used), 0) schreibt man eher FillChar(Used[1], Len(Used)*sizef(Used[1]), 0), dann müsste alles funktionieren.

[Cyberbob_at_tot]

Ok habe Fillchar nun direkt am Anfang, dann macht er alle auf 0 nur wieso ?


Nun besteht immer noch das Problem das er mir Trotzdem Doppelte Zahlen angiebt!
Wo kann ich am Besten eine Messagebox einfügen die mir alle zufalszahlen anzeigt!
Habe eine direkt hinter der While schleife, daran lasse ich mir die Zahl aus Random anzeigen!

[Cyberbob_at_tot]

FillChar(Used[1], Len(Used)*sizef(Used[1]), 0) Undefinierter Bezeichner "Len"

[Dax]

Alle, auf 0, weil bei dir 0 nie vorkommt, und du wolltest doch astronomische Zahlen wie 2362734 vermeiden... Bei dir sähe der Showmessage-Code dann so aus:

Delphi-Quellcode:

var Used: array[1..10] of Integer; i, x, t: Integer;
begin
  Randomize;
  i := 1;
  FillChar(Used[1], 10*sizeof(Uses[1]), 0);
  while i <> 11 do
  begin
    t := Random(10)+1;
    for x := 1 to i do
      if Used[x] = t then Break;
    if x = i+1 then
    begin
      ShowMessage(IntToSTr(t));
      Used[i] := t;
      Inc(i);
    end;
  end;
end;