[mastersolid]

buenos dias, espero que alguien me ayude a portar de lenguaje c a delphi este pequeño código. llego a portar una parte pero me esta dando lucha rng_feed = rng_vec+LEN-TAP; no logro hacer funcionar.

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

#define LEN 607
#define TAP 273
#define MASK 0x7fffffffL
#define A 48271
#define M 2147483647
#define Q 44488
#define R 3399

unsigned int rng_vec[LEN];
unsigned int * rng_tap = rng_vec;
unsigned int * rng_feed = 0;

unsigned int isrand(unsigned int _seed)
{
unsigned int result;
unsigned int seed;
unsigned int lo, hi, x;
signed int i;

seed=(long)_seed;
rng_tap = rng_vec;
rng_feed = rng_vec+LEN-TAP;
seed = seed%M;
if(seed < 0)
seed += M;
if(seed == 0)
seed = 89482311;
x = seed;
/*
* Initialize by x[n+1] = 48271 * x[n] mod (2**31 - 1)
*/
for(i = -20; i < LEN; i++) {
hi = (long) ( x / Q );
lo = (long) ( x % Q );
x = (long) ( A*lo - R*hi );
if(x < 0)
x += M;
if(i >= 0)
rng_vec[i] = x;
}
}


unsigned int lrand()
{
int x,v0;
unsigned int result;

rng_tap--;
if(rng_tap < rng_vec) {
if(rng_feed == 0) {
isrand(1);
rng_tap--;
}
rng_tap += LEN;
}

rng_feed--;
if(rng_feed < rng_vec)
rng_feed += LEN;

x = (unsigned long) (*rng_feed + *rng_tap) & MASK;
*rng_feed = x;

return x;
}