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

Hallo,

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

markieren

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

ah das mit der ausgabe hab ich geschafft, allerdings mit

markieren

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....

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.

Guten Abend,

noch eine Alternative mit TStringList.

zusammenfalten · markieren

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

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