delph:
1.
  for J := 0 to 7 do
    StrResult := StrResult + Chr(OutByte[J]);2.
  StrResult := '';
  for I := 0 to Length(TempResult) - 1 do
  begin
    Temp := Format('%x', [Ord(TempResult[I + 1])]);
    if Length(Temp) = 1 then Temp := '0' + Temp;
    StrResult := StrResult + Temp;
  end;用java来写应该怎么写呀?
请给予援手~~谢谢。。