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