向高手求助！！！！！！！！！！！！

Question

var x:integer;x:=StrToInt('$aa');
这个x中就是$aa了，或176

Answer 1

对了，这样也行
try
  x := StrToInt('$'+'aa');
except
  Showmessage('not HEX');
end;

Answer 2

function ch(var s:AnsiString):integer
begin
     ch:=StrToInt('$'+s);
end

Answer 3

BCB,最后一段程序会出错的，如果s='WE'　　就出错了
还是加上try except end比较好

Answer 4

fuction SHexTODec(const sHex: String;var iDec:Integer): Boolean;
begin
  Result := true;
  iDec := 0;
  try
    iDec := StrToInt('$'+sHex);
  except
    Result := false;
  end;
end;