(delphi)如何将文本表示的16进制转成实际的16进制数

来源:百度知道 编辑:UC知道 时间:2024/06/28 17:45:53
(delphi)如何将下面一段文本表示的16进制字符串转成一个实际的16进制变量或者数组,简化一下就是如果将'F0'(string类型)转化为$F0的问题!多谢,盼回答。
47494638396113001300E60000FFFFFFFFFFF7FFFFEFFFF7E6FFEFC5FFEFA5FFE6CEFFE6A5FFE69CFFE68CFFE684FFDEB5FFDEADFFDE9CFFDE84FFDE63FFDE21FFDE19FFD66BFFD652FFD64AFFD63AFFD631FFD629FFD621FFCC66FFCE52FFCE42FFCE3AFFCE29FFC573FFCC33FFCE21FFC56BFFC542FFC53AFFC531FFBD7BFFC529

var
s,v: string;
i: Integer;
v2s: string;
begin
s := 'F0';
for i:=1 to Length(s) do
v := v + format('%.2x ',[Byte(s[i])]);
showmessage(v);
for i:=1 to Length(v) div 3 do
v2s := v2s + Char(StrToInt('$'+Copy(v, (i-1)*3+1, 2)));

showmessage(v2s);
end;

我也想知道呢,delphi中怎么把字符串转换为16进制数值。

i:=longword(strtoint('$123ABC'));
//'$'符要自已加