ik wil de volgende regels omzetten van java naar delphi hoe doe ik dit?
long vari10;
long h;
while( i < s1.length( ) ) {
h = ( (long) s1.charAt( i ) );
h = ( h & 256L );
h = ( h ^ vari10 );
}
long vari10;
long h;
while( i < s1.length( ) ) {
h = ( (long) s1.charAt( i ) );
h = ( h & 256L );
h = ( h ^ vari10 );
}