delphi 中字符串與16進制、10進制轉換函數

 

 

 

//字符串轉成16進制代碼
function strToHexStr(str:string):string;
var
c:char;
ss:string;
i:integer;
begin
while str<>'' do begin
    c:=str[1];
    ss:=ss+format('%0x',[ord(c)]);
    delete(str,1,1);
end;
strtohexStr:= ss;
end;

//16進制字符串轉換成字符串
function HexStrToStr(const S:string):string;
var
t:Integer;
ts:string;
M,Code:Integer;
begin
t:=1;
Result:='';
while t<=Length(S) do
begin   //xlh 2006.10.21
    while (t<=Length(S)) and (not (S[t] in ['0'..'9','A'..'F','a'..'f'])) do
      inc(t);
    if (t+1>Length(S))or(not (S[t+1] in ['0'..'9','A'..'F','a'..'f'])) then
      ts:='$'+S[t]
    else
      ts:='$'+S[t]+S[t+1];
    Val(ts,M,Code);
    if Code=0 then
      Result:=Result+Chr(M);
    inc(t,2);
end;
end;

// 16 進制轉換為 10 進制；
//Delphi 中 16 進制數以 $ 為前綴，所以將 16 進制形式的字符串轉換為整數即可：
function HexToDec(const AHexString: String): Integer;
begin
Result := StrToInt('$' + AHexString);
end;