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

Zufallszahlen

Zufallszahlen

Forumregeln