卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-23 #2 var aa :array of integer; b :Integer; begin .... b :=High(aa)-Low(aa)+1; end;
E Easylee Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-23 #5 a: array of integer; s:integer; s:=length(a);
J jrq Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-23 #6 var aa :array of integer; i:Integer; begin ........... i:=0; for i:=Low(aa) to High(aa) do inc(i); showmessage(inttostr(i)) ////////////////// i的值便是 ........................... end;
var aa :array of integer; i:Integer; begin ........... i:=0; for i:=Low(aa) to High(aa) do inc(i); showmessage(inttostr(i)) ////////////////// i的值便是 ........................... end;
Z zw963 Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-24 #10 用length(s)最快捷也最方便。不是吗? 其它的方法原理都是一样的。 总之,知道数组的个数不就完了?