语法

Question

begin
    for i:=1 to dm.ADQ_department.RecordCount-1 do
    begin
      dm.ADQ_departAchiv.Append;
      dm.ADQ_departAchiv.FieldByName('months').AsString:=month;
      dm.ADQ_departAchiv.FieldByName('departNo').AsInteger:=i;
RecordCount-1是什么意思,这样当没有记录时,不就是为0

Answer 1

for i:=0 to dm.ADQ_department.RecordCount-1 do
//1---->0

Answer 2

for i:=0 to dm.ADQ_department.RecordCount-1 do