var
bathtedit:array of tedit;
begin
setlength(bathtedit,3);
bathtedit[0]:=Tedit(cmbcono);
bathtedit[1]:=edodt;
bathTedit[2]:=edoman;
//在这么初始化数组bathtedit成为high(bathTedit)=0不知怎么写呢?
showmessage(inttostr(high(bathTedit)));
end;
bathtedit:array of tedit;
begin
setlength(bathtedit,3);
bathtedit[0]:=Tedit(cmbcono);
bathtedit[1]:=edodt;
bathTedit[2]:=edoman;
//在这么初始化数组bathtedit成为high(bathTedit)=0不知怎么写呢?
showmessage(inttostr(high(bathTedit)));
end;
还是Setlength(bathTedit,0);