Ok. Das macht Sinn.
So bekomme ich generierte Zahlen:
Delphi-Quellcode:
procedure TFmMain.btnGenClick(Sender: TObject);
var
rZahl: array[0..15] of integer;
LastIndex, temp, i: integer;
begin
// Generate randoms
for i := Low(rZahl)+1 to High(rZahl) do
begin
temp := Random(16);
rZahl[i] := temp;
txtRandoms.Text := txtRandoms.Text + IntToStr(rZahl[i]) + '; ';
end;
end;
Aber so kommen einige Zahlen mehrfach vor und das will ich unterbinden.
Gibt es noch einen besseren Ansatz, als meinen Quark?