with DBGrid2.DataSource.DataSet do begin for I := 0 to DBGrid2.SelectedRows.Count - 1 do // Iterate begin GotoBook(pointer(DBGrid2.SelectedRows.Items[i])); intScore:=IntScore+FieldByName('Totalscore').AsInteger; sdaCourse[I]:=FieldByName('CourseName').asString; darrExamRecordID[I]:=FieldByName('ExamRecordID').AsInteger; end; // for end; // with 我用了三个变量保存三个字段的值,第二个和第三个是动态数组.根据选择的行数决定数组的大小.
begin
for I := 0 to DBGrid2.SelectedRows.Count - 1 do // Iterate
begin
GotoBook(pointer(DBGrid2.SelectedRows.Items[i]));
intScore:=IntScore+FieldByName('Totalscore').AsInteger;
sdaCourse[I]:=FieldByName('CourseName').asString;
darrExamRecordID[I]:=FieldByName('ExamRecordID').AsInteger;
end; // for
end; // with
我用了三个变量保存三个字段的值,第二个和第三个是动态数组.根据选择的行数决定数组的大小.
方法正確
...