ord()不能多次出现？

[yhp1234]

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
i:integer;
rbuf:pchar;
lights: IntegerArray;
lightArrayTemp: array[0..3] of byte;
byteTemp: byte;
crct: Integer;
intTemp,intTemp1:Integer;
begin
viewstring:='' ;
move(buffer^,rbuf^,bufferlength);

for i:=1 to bufferlength do
viewstring:=viewstring+inttohex(ord(rbuf[i]),2)+'';
viewstring:='接收'+viewstring;
memo1.lines.add(viewstring);
memo1.lines.add('');

if (bufferlength<>7) or (inttohex(ord(rbuf[0]),2)<>'FF') then
begin
end
else
begin
/////////////////////////////////////////////////
intTemp:=ord(rbuf[1]) + ord(rbuf[2]);
intTemp1:=ord(rbuf[3]) + ord(rbuf[4]);
////上两句单独写都没问题，一起写就出错，怎么回事？
/////////////////////////////////////////////////
end;
end;

[kfcoffe]

还有这样的问题，mark。建议把错误提示贴出来

[yhp1234]

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00AA0EEB. Write of address 00000000'. Process stopped. Use Step or Run to continue.

[bdmh]

应该是你的rbuf[i]的某个索引值为空所致，检查索引是否越界

[kfcoffe]

rbuf越界

[yhp1234]

1到7全都有值，没有越界

[kfcoffe]

Comm1ReceiveData 你这个过程应该不止调用1此吧。

[yhp1234]

Comm1ReceiveData这是一个控件触发的事件

[wzwcn]

晕，你rbuf没分配内存也Move过去了，不出错才怪

[wzwcn]

要么把你的move(buffer^,rbuf^,bufferlength); 这句改成rbuf:=Pchar(Buffer);要么先用GetMem分配内存再move