델파이

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

띠리 2007. 8. 16. 18:02

인터넷에서 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