Cita:
Empezado por roman
Una pregunta: ¿cómo se hace esta inicialización? Porque la respuesta inmediata sería: aleatoriamente, pero supongo que si así fuera entonces también podrían generarse verdaderos números aleatorios sin necesidad de randomize.
// Saludos
|
En el caso de delphi utiliza el valor de los contadores de alta precisión, o en su defecto el valor de Gettickcount.
Código Delphi
[-]
procedure Randomize;
{$IFDEF LINUX}
begin
RandSeed := _time(nil);
end;
{$ENDIF}
{$IFDEF MSWINDOWS}
var
Counter: Int64;
begin
if QueryPerformanceCounter(Counter) then
RandSeed := Counter
else
RandSeed := GetTickCount;
end;
{$ENDIF}