// 将含字符串转换为十六进制
function GBStrToHex(aStr: string): AnsiString;
var
i: integer;
DataStr, ReturnStr: AnsiString;
begin
DataStr := aStr;
ReturnStr := '';
for i := 1 to length(DataStr) do
if ReturnStr = '' then
ReturnStr := IntToHex(Ord(DataStr[i]), 2)
else
ReturnStr := ReturnStr + IntToHex(Ord(DataStr[i]), 2);
Result := ReturnStr;
end;c
function GBStrToHex(aStr: string): AnsiString;
var
i: integer;
DataStr, ReturnStr: AnsiString;
begin
DataStr := aStr;
ReturnStr := '';
for i := 1 to length(DataStr) do
if ReturnStr = '' then
ReturnStr := IntToHex(Ord(DataStr[i]), 2)
else
ReturnStr := ReturnStr + IntToHex(Ord(DataStr[i]), 2);
Result := ReturnStr;
end;c