Zufallszahlen

[Peda]

Hi Leute! Hab mal ne Frage:
Wie geht das, wenn ich folgenden Code habe

Zitat:

procedure TForm1.BtAusgebenClick(Sender: TObject);
var
i:integer;
zahl:array[1..6] of integer;
begin
randomize;
for i:=1 to 6 do zahl[i] := i;
for i:=1 to 6 do
Zahl[i] := random(48)+1;

PnAusgabe.caption := inttostr(zahl[i]);

end;

end.

und will dass in der ausgabe zwischen den einzelnen zahlen ein '; ' eingefügt werden soll?


Danke im Vorraus!

P.S.: Vll könnet ihr mir auch sagen was man machen kann damit verhindert wird dass 2 gleiche Zufallszahlen ausgegeben werden?

Peda

[Klaus01]

Hallo,

randomize sollte nur einmal aufgerufen werden. am besten im From.create.

Delphi-Quellcode:

PnAusgabe.caption:='';
for i:=1 to 5 do
  PnAusgabe.caption := PnAusgabe.caption+inttostr(zahl[i])+';'; 
PnAusgabe.caption:=inttostr(zahl[6]);

Wenn Du keine Zahlen doppelt haben willst, solltest
Du die "gezogene Zahl" mit denen im Array vergleichen.
Ist die Zahl schon vorhanden, mußt Du eine neue ziehen.

Grüße
Klaus

[Peda]

ah das mit der ausgabe hab ich geschafft, allerdings mit

Delphi-Quellcode:

for i:=1 to 6 do
  PnAusgabe.caption := PnAusgabe.caption+inttostr(zahl[i])+'; ';

und mit welchem aufruf kann ich die vergleichen? irgendwie steh ich aufm schlauch....

[s-off]

Hallo,

Du musst Dein Array in einer Schleife von Low bis High durchgehen, und die Werte vergleichen.
Eine Funktion, um ein Array auf bestimmte Inhalte zu prüfen, gibt es leider nicht.

[Klaus01]

Guten Abend,

noch eine Alternative mit TStringList.

Delphi-Quellcode:

var
  zahlenListe : TStringList;
  i: Byte;
  zahl : String;
begin
  zahlenListe := TStringList.create;
  for i:=1 to 6 do
    begin
      zahl:=intToStr(random(48)+1);
      while zahlenListe.indexof(zahl) >= 0 do
        zahl:=intToStr(random(48)+1;
     zahlenListe.add(zahl);
     PnAusgabe.caption:=PnAusgabe.caption+zahl+'; ';
    end;
end;

Wenn die zahlenListe nicht mehr gebraucht wird, sollte sie wieder freigegeben werden.
zahlenListe.free;
Grüße
Klaus

[Hawkeye219]

Hallo,

die Ziehung der Lottozahlen findet auch in diesem Thread statt. Dort haben sogar diejenigen eine Chance, die die Zahl 49 getippt haben.

Gruß Hawkeye