call by addres 로 부른 동적배열을 setlength 할 때 에러가 발생합니다.

어떻게 해야되죠????....맨날맨날 질문만 올리는군요 -_-;;

그럼...허졉은.이만...



나 쏘쓰

procedure TLogProcess.MessageReport(var AnalRecord : Array of TAnalRecord; var MsgMaxnum : Integer; MsgFlag : Boolean; Kind : Integer);

var

j : integer;

begin

MsgFlag := False;

For j:=0 to MsgMaxNum-1 do

begin

if AnalRecord[j].Subject = LogProcess.LogRecord.reson then

begin

MsgFlag := True;

break;

end;

end;

if MsgFlag = True then

inc(AnalRecord[j].Sendnum, 1) //!!!!!!!!여기여기에러에러

else

begin

SetLength(AnalRecord, MsgMaxNum+1);

AnalRecord[MsgMaxNum].Subject := LogProcess.LogRecord.reson;

AnalRecord[MsgMaxNum].Sendnum := 1;

inc(MsgMaxNum,1);

end;

end;