雖然提問結束,我還是給妳寫了壹個轉換函數
function TForm1.AsciiToHex(str: string): string;
var
i:integer;
changestr:string;
begin
changestr:='';
for i:=1 to length(str) do
changestr:=changestr+inttohex(ord(str[i]),2);
end;
AsciiToHex:=changestr;