关于出错access violation at 的(100)

我在运行DELPHI程序时，出了access violation at 0x372e3031:read of address 0x372e3031的错 有哪位大侠会改错不，我提供代码。联系QQ:602960076，或者邮件kangzg19@126.comProcedure TMainForm.excutedcommand;Var nNewEvent, i, YKtype: integer; event: TDxEvent; EventArr: Array Of PDxEvent; Vid: Array Of Integer; aVid: Array Of PVarID; HostPort, ret: Integer;BeginFillChar(event, SizeOf(event), 0); nNewEvent := psiGetNewEvents(@event, 1); If nNewEvent >= 1 Then Begin ret := PFI_Connect(PChar('192.168.100.3'), HostPort, 0, 0); If ret > 0 Then BeginsetLength(EventARR, nNewEvent); setLength(vid, nNewEvent); zeroMemory(EventARR, nNewEvent * sizeof(PDxEvent)); copyMemory(EventARR, @event, sizeof(PDxEvent)); psiGetNewEvents(@event, nNewEvent); copyMemory(eventARR[nNewEvent - 1], @Event, sizeof(PDxEvent)); [red] 跟踪到的错的行[/red]

等待你的结果。

改成copyMemory(eventARR[nNewEvent - 1], @Event, sizeof(PDxEvent)+1);行不行呢？我是乱来的，呵呵，不行的话请不要介意！