Funkcja losowa

Funkcja na podstawie aktualnych informacji pobranych z daty generuje liczby pseudolosowe.
Pobiera z systemu: liczbę milisekund, numer dnia tygodnia, aktualna liczbę sekund oraz aktualną godzinę i z zadanego wzoru oblicza liczbę pseudolosową.
Funkcja ta ma nad funkcją random() taką przewagę, że można podać zakres z którego ma zostać zwrócona wartość.
Funkcję wywołujemy poleceniem:

losowa(min:integer,max:integer)

Jako wynik zwraca wartość z przedziału pomiędzy min i max włącznie (wynik jest typu integer).

UWAGA: Aby funkcja zadziałała prawidłowo należy do sekcji USES dołączyć moduł DateUtils.

function losowa(min:integer;max:integer):integer;
var ms,ms2,ms3,ms4:word;
temp:integer;
begin
if min>max then
  begin;
  temp:=min;
  min:=max;
  max:=temp;
  end;
ms:=MilliSecondOf(Now);
ms2:=WeekOf(Now) div 3;
ms3:=SecondOf(Now) mod 8;
ms4:=HourOf(Now) div 3 mod 5;
result:=((ms*2+ms2*8+ms3*5+ms4*3) mod (max+1-min))+min;
end; 

Poniżej przedstawiam przykład zastosowania. W przykładzie tym po kliknięciu na przycisk Button1 w polu Edit1 pojawi się losowa wartość od 1-6 (tak jak w kostce do gry).

unit generator_losowy;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
function losowa(min:integer;max:integer):integer;
var ms,ms2,ms3,ms4:word;
temp:integer;
begin
if min>max then
  begin;
  temp:=min;
  min:=max;
  max:=temp;
  end;ms:=MilliSecondOf(Now);
ms2:=WeekOf(Now) div 3;
ms3:=SecondOf(Now) mod 8;
ms4:=HourOf(Now) div 3 mod 5;
result:=((ms*2+ms2*8+ms3*5+ms4*3) mod (max+1-min))+min;
end;
begin
edit1.text:=inttostr(losowa(1,6));
end;

end.