Question

delphi调试出现问题?

我在调试delphi时出现了一个错误,调了大半天都不知道错哪,能不能帮我看下 错误: Project project1.exe raised exception class EaccessViolation with message ‘Access violation at address 0040414EA in module’project1.exe’.Read Of address 50472C43’.Process stopped.Use Step or Run to continre; 程序错误的位置: procedure TForm1.BitBtn2Click(Sender: TObject);//按键2 begin {sbuf[0] :=$53; //534156310D0A sbuf[1] :=$41; sbuf[2] :=$56;//帧头 sbuf[3] :=$31;//命令号 sbuf[4] :=$0D; sbuf[5] :=$0A; senddata;//调用发送函数} StrData:='SAV1';//错在这里 SChar_and_Send(); end; 上面程序是我在接收PIC串口数据后,要再向PIC串口发送数据时出现的错误. 用FT232USB转串口芯片. 下面是代码: procedure SChar_and_Send(); begin SetChar(StrData); senddata; end; procedure SetChar(var x:string); var i,Len:byte; begin Len:=length(x)+2; setlength(sbuf,Len); for i:=0 to len-3 do begin sbuf[i]:=ord(x[i+1]); end; sbuf[i]:=$0D; i:=i+1; sbuf[i]:=$0A; end; procedure senddata; var i:integer; commflg:boolean; begin viewstring:=''; commflg:=true; for i:=0 to length(StrData)+1 do begin if not Form1.comm1.writecommdata(@sbuf[i],1) then begin commflg:=false; break; end; sleep(1);//发送时字节间的延时 viewstring:=viewstring+ inttohex(sbuf[i],2)+' '; end; viewstring:='发送'+ viewstring; Form1.memo1.lines.add(viewstring); Form1.memo1.lines.add(''); if not commflg then messagedlg('发送失败 !' ,mterror,[mbyes],0); //sleep(2000); //if(comrs=false)then senddata; end;

Answer 1

呵呵，我反正闲着，用记事本帮你整理了下代码。
发现你有个StrData变量好像是全局的，是不是你这个变量声明的地方不对呢？你看你下面的几个函数都不是在TFrom类里的方法，没怎么仔细看，你查查看是不是这个问题。
procedure TForm1.BitBtn2Click(Sender: TObject);//按键2
begin
{sbuf[0] :=$53; //534156310D0A
sbuf[1] :=$41;
sbuf[2] :=$56;//帧头
sbuf[3] :=$31;//命令号
sbuf[4] :=$0D;
sbuf[5] :=$0A;
senddata;//调用发送函数}
StrData:='SAV1';//错在这里
SChar_and_Send();
end;
上面程序是我在接收PIC串口数据后,要再向PIC串口发送数据时出现的错误. 用FT232USB转串口芯片. 下面是代码:
procedure SChar_and_Send();
begin
SetChar(StrData);
senddata;
end;
procedure SetChar(var x:string);
var i,Len:byte;
begin
Len:=length(x)+2;
setlength(sbuf,Len);
for i:=0 to len-3 do
begin sbuf[i]:=ord(x[i+1]);
end;
sbuf[i]:=$0D;
i:=i+1;
sbuf[i]:=$0A;
end;
procedure senddata;
var i:integer; commflg:boolean;
begin
viewstring:='';
commflg:=true;
for i:=0 to length(StrData)+1 do
begin
if not Form1.comm1.writecommdata(@sbuf[i],1) then
begin
commflg:=false;
break;
end;
sleep(1);//发送时字节间的延时
viewstring:=viewstring+ inttohex(sbuf[i],2)+' ';
end;
viewstring:='发送'+ viewstring;
Form1.memo1.lines.add(viewstring);
Form1.memo1.lines.add('');
if not commflg then messagedlg('发送失败 !' ,mterror,[mbyes],0); //sleep(2000); //if(comrs=false)then senddata; end;

Answer 2

project1.exe raised exception class EaccessViolation with message ‘Access violation at address 0040414EA in module’project1.exe’.Read Of address 50472C43’.

凡是这样的错误，基本都是内存错误

内存错误大部分都是 对象创建错误或者数组越界，你的问题，应该是数组越界，你自己仔细看看吧

Answer 3

。