D. P. Mitchell & J. A. Reeds - ayuda para portar este SRC a delphi

[ecfisa]

Hola mastersolid.

espero que alguien me ayude a portar de lenguaje c a delphi este pequeño código.llego a portar una parte.

Así, a primera vista, la función isrand tiene indefinido el valor de retorno.

lo declare rng_vec: array [1..LEN] of Integer; en delphi, no se si estoy desclarando bien

Yo lo declararía:

Código Delphi [-]
 rng_vec : array [0..LEN] of Cardinal;

pero me esta dando lucha rng_feed = rng_vec+LEN-TAP; no logro hacer funcionar.

En C un nombre de array sin especificar índice, hace referencia a la posición cero ([0]) del mismo, creo entonces, que el equivalente Delphi podría ser:

Código Delphi [-]
   rng_feed := @rng_vec[LEN - TAP];

Saludos.