RandSeed
jakubkrol
RandSeed
Moduł: System
program Foo;
{$APPTYPE CONSOLE}
begin
RandSeed := Trunc(time) mod 123; //Przykładowe dane
//Kod aplikacji ...
end.
Można także skorzystać z funkcji Randomize, która dokonuje automatycznego przypisania do zmiennej RandSeed liczby, która wybierana jest na podstawie wielu czynników (m. in. czas).
program Foo;
{$APPTYPE CONSOLE}
begin
Randomize; //Automatyczna inicjalizacja zmiennej RandSeed przez Delphi
//Kod aplikacji ...
end.
Zobacz też: