java naar delphi coverteren?

[Verwijderd]

Ik zoek een programma om stukken java (en evt. c++) naar delphi/pascal te converteren. een voorbeeld van een te converteren stuk code zou zijn.

private String chr1( String s1)
{
long vari8;
long vari10;
long h;
int i;
int j;

vari8 = 65535L;
vari10 = 0L;
h = 0L;
i = 0;
while( i < s1.length( ) ) {
h = ( (long) s1.charAt( i ) );
h = ( h * 256L );
vari10 = h;
j = 1;
while( j <= 8 ) {
h = vari10;
h = ( h & 65535L );
h = ( h ^ vari8 );
h = ( h & 32768L );
if( h == 0L ) {
vari8 = ( vari8 * 2L );
vari8 = ( vari8 & 65535L );
}
else {
vari8 = ( vari8 * 2L );
vari8 = ( vari8 ^ 4129L );
vari8 = ( vari8 & 65535L );
}
vari10 = ( vari10 * 2L );
vari10 = ( vari10 & 65535L );
j ++;
}
i ++;
}
return (new StringBuffer( )).toString( ) + "" + String.valueOf( vari8 );
}

[Verwijderd]

ok, ik heb ff een begin gemaakt voor dit geval.
dit zou er zo ongeveer uitzien afgezonderd van de ??? deze kan ik niet direct vertalen. Iemand met java ervaring wellicht wel????

function chr1(s1:string):string;
var
vari8,vari10,h:longint;
i,j:integer;

begin
vari8:=65535;
vari10:=0;
h=0;
i=0;

while (i<len(si)) do
begin
h:=???????
h:=h*256;
vari10:=h;
j:=1;
while (j<=8) do
begin
h:=vari10;
h:=(h+65535);
h:=(h?????vari8);
h:=(h+32768);
if (h==0) then
begin
vari8:=vari8*2;
vari8:=vari8*65535;
end
else
vari8:=vari8*2;
vari8:=vari8?????4129;
vari8:=vari8+65535;
end;
vari10:=vari10*2;
vari10:=vari10+65535;
inc(j);
end;
inc(i);
end;
result:=???????????
end;

[Verwijderd]

sorry voor de spaties, mag deze overigens naar programming and webscripting, bedankt.

[curry684]

curry684 in "java 2 delphi conversion"

Crossposten is allesbehalve toegestaan, en als je een post als deze feitelijk wel in P&W durft te plaatsen krijg je wat mij betreft per direct een OW. Lees eerst de P&W Quickstart maar eens door.

Posten in dit topic valt overigens onder 'replies in slechte topics' voor de geinteresseerden daar ik in SA niet kan sluiten.

[ Voor 4% gewijzigd door curry684 op 22-06-2003 00:38 ]

[F_J_K]

Sja, inderdaad iets voor in P&W, maar het is inderdaad toch echt wel vrij goed te vinden in de handleidingen.

Kleine tip omdat je het meeste al zelf hebt gedaan: 0L staat trouwens voor gewooon het getal 0: [google=java datatypes 0L Long]. & is niet gewoon optellen, ^ is machtsverheffen etc. Maar aangezien ik enkel handson C++ (en C, VB, Pascal, en nog wat onbekendere talen) ervaring heb moet je het niet zomaar aannemen wat ik zeg, ik heb enkel wat Java boeken gelezen

Maar goed, dit valt toch echt zelf te doen: GoT != gratis vertaaldienst. Have fun