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