怎样把串直接转换成十六进制的数
比如我把123F这字符串直接转换成十六进制的数是$123F 问题点数：20、回复次数：3Top
1 楼xybh97102（冰点）回复于 2003-08-02 13:02:34 得分 8
function StrToHex(sNum:string;iBit:integer):string;
var
i:integer;
begin
i:=StrToInt(sNum);
result:=IntToHex(i,iBit);
end;Top
2 楼Little2000（rainy）回复于 2003-08-02 14:12:09 得分 4
Function CharToHex(cNum:Char;iBit:integer):string;
var
i:integer;
begin
i:=ord(cNum);
result:=IntToHex(i,iBit);
end;
Top
3 楼sunmiky（奔腾的大海）回复于 2003-08-02 14:29:15 得分 8
直接转化就可以了：
Function StrToHex(AStr: string):string;
begin
if AStr[1] <> '$' then
Result := '$'+AStr
else
Result := AStr;
end;Top
