1program tbyte; 2 3{$mode delphi} 4 5uses 6 {$ifdef java}jdk15{$else}androidr14{$endif}; 7 8function test: longint; 9var 10 a : longword; 11begin 12 a := 123456789; 13 result := JLInteger.Create(Byte(a)).intValue; 14end; 15 16begin 17 if test<>21 then 18 raise JLException.create('boe!'); 19end. 20