小
小菜鸟
Unregistered / Unconfirmed
GUEST, unregistred user!
我做crc校验的一个函数：
Function getcrc(s:string):string;
var
aa:array[0..4] of string;
crc,i,j:integer;
begin
crc:=0;
for i:=0 to 4 do
aa:='$'+s[i*2]+s[i*2+1];{把edit1中的字符分开存放,有没有别的简单办法}
for j:=0 to 4 do
begin
crc:=crc xor strtoint(aa[j]);
crc:=crc_table[crc];{查表}
end;
crc:=crc xor $ff;
result:=inttohex(crc,2);
end;
当我再buttonclick中调用
getcrc(edit1.text);
出现这样的错误：
project project1.exe raised exception class
EconvertError with message''$
各位大侠帮帮我吧！
Function getcrc(s:string):string;
var
aa:array[0..4] of string;
crc,i,j:integer;
begin
crc:=0;
for i:=0 to 4 do
aa:='$'+s[i*2]+s[i*2+1];{把edit1中的字符分开存放,有没有别的简单办法}
for j:=0 to 4 do
begin
crc:=crc xor strtoint(aa[j]);
crc:=crc_table[crc];{查表}
end;
crc:=crc xor $ff;
result:=inttohex(crc,2);
end;
当我再buttonclick中调用
getcrc(edit1.text);
出现这样的错误：
project project1.exe raised exception class
EconvertError with message''$
各位大侠帮帮我吧！