function StrToHex(AStr:string): string;
var
I:Integer;
begin
Result:='';
For I := 1 to Length(AStr) do
Result:=Result+IntToHex(Ord(AStr[I]), 2);
end;
//or
function StrToHex(AStr:string): string;
var
I:Integer;
begin
Result:='';
For I := 1 to Length(AStr) do
Result:=Result+Format('%.2x', [Ord(AStr[I])]);
end;
var
I:Integer;
begin
Result:='';
For I := 1 to Length(AStr) do
Result:=Result+IntToHex(Ord(AStr[I]), 2);
end;
//or
function StrToHex(AStr:string): string;
var
I:Integer;
begin
Result:='';
For I := 1 to Length(AStr) do
Result:=Result+Format('%.2x', [Ord(AStr[I])]);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货