[델파이] 16진수를 10진수로 10진수를 16진수로 바꾸기

인터넷에서 16진수 문자열을 10진수 수치값으로 바꾸는 것을 찾아봐도 별로 안나왔다.
너무 쉬워서 그런건가? -.-;;
열심히 찾았는데 알고보니 너무 허무함
VB랑 16진수를 10진수로 바꾸는게 똑같네
VB에서는 "&H"를 문자열에 붙이면 되는데
delphi에서는 '$'만 문자열에 분이면 된다.

function HexToInt(sHex:String):Integer; var   i:Integer;   sWork:String; begin   Result := 0;   sWork := UpperCase(sHex);   for i := 1 to Length(sWork) do    begin     // 16진수의 문자열인가 체크      if (Ord(sWork[i]) in [0..47, 58..64, 71..255]) then       begin           Result := -1;           Break;       end;   end;   // 16진수 문자열을 정수형으로 변환   if (Result = 0) then Result := StrToInt('$' + sHex); end;

10진수를 16진수로 바꾸는 것은 간단하게 한 함수로 끝난다.
intToHex