Delphi中从Access数据库填充二维数组的最优方法及报错咨询

原代码报错原因 #

1. 数组索引越界：你创建的二维数组长度为iNumberofRecords，有效索引范围是0到iNumberofRecords-1，但循环写的是for i := 0 to iNumberofRecords do，最后一次循环时i等于数组长度，直接触发索引越界错误。
2. RecordCount可靠性问题：ADO默认游标类型为adOpenForwardOnly，这种情况下RecordCount会返回-1，导致数组初始化失败。

优化的二维数组填充方法 #

方法一：修正基础数组逻辑（解决报错+保证可靠性）

先确保游标支持RecordCount，同时修正循环范围：

with dmSUPREMEDATA do
begin
  // 设置支持RecordCount的静态游标
  ADOComplete.CursorType := ctStatic;
  ADOComplete.Open;

  iNumberofRecords := ADOComplete.RecordCount;
  if iNumberofRecords > 0 then
  begin
    SetLength(ArrSummary, iNumberofRecords, 3);
    ADOComplete.First;
    // 循环上限改为iNumberofRecords-1，匹配数组索引范围
    for i := 0 to iNumberofRecords - 1 do
    begin
      // 明确字段类型转换，避免Variant隐式转换问题
      ArrSummary[i, 0] := ADOComplete.FieldByName('Names').AsString;
      ArrSummary[i, 1] := ADOComplete.FieldByName('Surnames').AsString;
      ArrSummary[i, 2] := ADOComplete.FieldByName('Average').AsFloat;
      ADOComplete.Next;
    end;
  end
  else
    SetLength(ArrSummary, 0, 3); // 空数据集时清空数组
end;

方法二：使用记录类型替代二维数组（更易维护）

用自定义记录存储单条数据，避免二维数组的索引混淆问题，代码可读性更强：

// 先定义记录类型
type
  TPersonSummary = record
    Name: string;
    Surname: string;
    Average: Double; // 根据数据库字段实际类型调整
  end;

// 填充逻辑
var
  SummaryArr: array of TPersonSummary;
  i: Integer;
begin
  with dmSUPREMEDATA.ADOComplete do
  begin
    CursorType := ctStatic;
    Open;
    SetLength(SummaryArr, RecordCount);
    First;
    for i := 0 to High(SummaryArr) do
    begin
      SummaryArr[i].Name := FieldByName('Names').AsString;
      SummaryArr[i].Surname := FieldByName('Surnames').AsString;
      SummaryArr[i].Average := FieldByName('Average').AsFloat;
      Next;
    end;
  end;
end;

方法三：不依赖RecordCount的遍历方式（最高兼容性）

如果必须使用向前型游标，可通过动态扩容数组实现遍历，无需提前统计记录数：

var
  SummaryArr: array of array of Variant;
  i: Integer;
begin
  with dmSUPREMEDATA.ADOComplete do
  begin
    Open;
    i := 0;
    while not Eof do
    begin
      // 动态扩容数组
      SetLength(SummaryArr, i + 1, 3);
      SummaryArr[i, 0] := FieldByName('Names').Value;
      SummaryArr[i, 1] := FieldByName('Surnames').Value;
      SummaryArr[i, 2] := FieldByName('Average').Value;
      Inc(i);
      Next;
    end;
  end;
end;

额外建议 #

• 避免使用ADOComplete['FieldName']的方式访问字段，改用FieldByName('FieldName')，性能更优且类型安全。
• 处理字段值时明确转换类型（如AsString/AsFloat），减少Variant类型的隐式转换风险。
• 若数据量较大，建议使用TClientDataSet缓存数据，或分批处理以降低内存占用。

内容的提问来源于stack exchange，提问作者Kian