Traducción de rutina JAVA

[mcs]

Hola,

Imagino que solo tienes problemas con este bloque de codigo:

    int j = 0;
    for (int k = 0; k < 15; ++k)
      j += localObject[k];
    k = j % 23 + 65;
    if (i != 0)
      ++k;

La traducción a Delphi sería:

j:=0;
for k:=0 to 15 do
  j:=j+localObject[k];

k:=(j mod 23) + 65;
if i<>0 then
  Inc(k);