var
tmpstr:string;
i,Istr:Integer;//Editsend里面输入十六进制的字符,转换成ASCII码发出去
For i:=1 To (ROUND(Length(Editsend.Text)/2)) Do
begin
str:=Copy(Editsend.Text,(i-1)*2,2);
str:=IntToStr(strtoint('$'+str));
Istr:=StrToInt(str);
tmpstr[i]:=Char(Istr); //这句话出错了,为什么错了呢?
end;
tmpstr:string;
i,Istr:Integer;//Editsend里面输入十六进制的字符,转换成ASCII码发出去
For i:=1 To (ROUND(Length(Editsend.Text)/2)) Do
begin
str:=Copy(Editsend.Text,(i-1)*2,2);
str:=IntToStr(strtoint('$'+str));
Istr:=StrToInt(str);
tmpstr[i]:=Char(Istr); //这句话出错了,为什么错了呢?
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货