Question

将DELPHI代码改成C#

function HexToInt1(s:string):integer;
begin
s:=uppercase(s); //将S中的小写字母转换为大写。
if s>'9' then result:=ord(s[1])-ord('A')+10 else result:=ord(s[1])-ord('0');
end;

function TFunctions.HexToBytes(s: OleVariant): OleVariant;
var ss:TStringStream; t,u:string;
begin
try
u:=s;
t:='';
while length(u)>0 do begin
t:=t + char(HexToInt1(copy(u,1,1))*16+HexToInt1(copy(u,2,1)));
delete(u,1,2);
end;
ss:=TStringStream.Create(t);
result:=StreamToVariant(ss);
except
result:='';
end;
end;
是不是取S的长度大于9？

Answer 1

int HexToInt1(string s)
{
int result;
s=s.ToUpper();
if(s[1]>'9') result=s[1]-'A'+10;
//开始没有太注意，后边总是截取1个长度的字符串来转换，这里就直接用s[1]了。
else result=s[1]-'0';
return result;
}

Object HexToBytes(Object s)
{
object result;
string t,u;//那ss没什么用，我也不知道TStringStream类能干什么。
try{
u=s;
t='';
while(u.Length>0)
{
t=t+(char)HexToInt1(u.SubString(1,1))*16+HexToInt1(u.SubString(2,1));
u=u.SubString(3);//u=u.SubString(3,u.Length-3);
}
result=(object)t;
}
catch(Exception ex){result='';}
return result;
}

variant = object
OleVariant = object
copy() = SubString()
delete() = SubString()

Answer 2

chinekm 回答的if(s>'9')肯定不对 ，字符串怎么能和字符比较呢