Random

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
  function moj_random(interval,nahodilost:integer):integer;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  pole:array of integer;
  prvok:integer;

implementation

{$R *.dfm}

function Tform1.moj_random(interval,nahodilost:integer):integer;
var i,pom,rand,rand2:integer;
begin
if high(pole)=-1 then begin
  setlength(pole,interval);  //vytvorím si pole
  for I:=0 to high(pole)-1 do begin  //naplnim
    pole[i]:=i;
  end;
  for I:=0 to nahodilost do begin
    rand:=random(high(pole));  //nahodne cislo
    rand2:=random(high(pole));  //druhé náhodne číslo
    pom:=pole[rand];             //vymením tieto prvky
    pole[rand]:=pole[rand2];
    pole[rand2]:=pom;
  end;
end;
  inc(prvok);                    //skocim na dalsi prvok
  if prvok>high(pole) then begin     //ak som uz pouzil vsetky
    showmessage('pole vycerpane');
    result:=9999999;                 //dam o tom vediet
    end else result:=pole[prvok];    //inak vratim hodnotu
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(inttostr(moj_random(10,6) )); //chcem 10 rôznych hodnôt
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  prvok:=-1;       //na začiatku resetnem hodnotu prvok
end;

end.