рандом

[benjaminfran]

обесните пожалуйсто как работает функция рандом? в дельфий

[AlDelta]

random+F1 - там даже примеры есть.

[Alar]

билдер был запущен, скопировал код

procedure       _RandInt;
asm
{     ->EAX     Range   }
{     <-EAX     Result  }
        PUSH    EBX
{$IFDEF PIC}
        PUSH    EAX
        CALL    GetGOT
        MOV     EBX,EAX
        POP     EAX
        MOV     ECX,[EBX].OFFSET RandSeed
        IMUL    EDX,[ECX],08088405H
        INC     EDX
        MOV     [ECX],EDX
{$ELSE}
        XOR     EBX, EBX
        IMUL    EDX,[EBX].RandSeed,08088405H
        INC     EDX
        MOV     [EBX].RandSeed,EDX
{$ENDIF}
        MUL     EDX
        MOV     EAX,EDX
        POP     EBX
end;

AlDelta, вот это?

[AlDelta]

Да. Думаю автору темы именно это и нужно было. Здесь даже понятней чем в справке.