Delphi的动态数组，以及在复旦天翼学生收费管理软件的基础运用

由于复旦天翼学生收费软件的表是按学年存放的，即2008学年相关数据存储与类似×××2008的表内，因此在查询数据时，不可避免牵涉到不确定表查询，即可能查询A学生时仅涉及2005，2006，2007，2008其中的数据，而查询B学生时涉及到为2006，2007，2008，2009年数据等，更由于学生在校时期的不确定，因此在处理这类表时如何查询是一个比较棘手的问题，我的方法是遍历全部的表或者遍历该生入学后到现在的数据，因为采用Delphi（复旦天翼也是采用Delphi开发，可以做成天翼的一个小插件）开发时，用Delphi的动态数组能较好处理此类问题；

复旦天翼学生收费系统的使用年度（指学生缴费年度，区别会计年度）都存放在数据库表内（表名为：××××××），因此可以先查询到学生收费使用的所有年度并存储与动态数组内；动态数组定义方式如下：

 Var nTerm:Array Of Integer; Begin SetLength(nTerm,0); End;

 

定义后，根据表中的数据，确定表年度（一条记录对应一个学年，确定动态数组的上限），假设为 5 条，则可以重新定义数组并依次将学年赋值于数组：

N=5 Setlength(nTerm,N); For I = 0 to N-1 do Begin nTerm(i)=ADOQuery1.FieldByName('Term').AsInteger; ADOQuery1.MoveNext; End;