Question

DELPHI运行的内存地址问题

procedure TfrmMain.CheckListBox1ClickCheck(Sender: TObject);
var
selectcount:array of integer;
itemcount,aa,sbegin:integer;
begin
aa:=0;
sbegin:=0;
itemcount:=checklistbox1.Count ;
while sbegin<itemcount do begin
if checklistbox1.Checked[sbegin] then begin
selectcount[aa]:=sbegin;
inc(aa);
end;
inc(sbegin);
end;
end;

运行时出错：Access violation at 004665DC in module 'Monitor.exe'.Write of address 00000000.

Monitor.exe是程序名

Answer 1

selectcount:array of integer;
//这是动态数组呢。使用前需要
setlength(selectcount,length(selectcount)+1);