Вставьте данные DBGrid в многомерный массив

Прежде всего, если есть тысячи строк, вам нужно назначить поля переменным перед чтением, чтобы избавиться от ненужного времени поиска текста при использовании FieldByName.

У меня нет под рукой Delphi, но это должно сработать или, по крайней мере, помочь вам начать работу.

uses Math;

procedure ProcessArray(ADataSet: TDataSet);
var
  field1: TField;
  field2: TField;
  len: Integer;
  a: array of array[2] of double;
begin
  len := 0;
  SetLength(a, 0);
  field1 := ADataSet.FieldByName('field1');
  field2 := ADataSet.FieldByName('field2');
  ADataSet.First;
  while not ADataSet.Eof do
  begin
    Inc(len);
    if len > Length(a) then
      SetLength(a, len + Min(len, 16384));
    a[len - 1][0] := field1.Value;
    a[len - 1][1] := field2.Value;
    ADataSet.Next;
  end;
  SetLength(a, len);
  // Process the results in the a array
end;

AlexSC предлагает использовать свойство TADODataSet.RecordCount для первоначальной установки размера массива. Обратите внимание, что если TDataSet загружается из базы данных не полностью (например, использует серверный курсор), RecordCount не обязательно будет содержать количество всех записей, и оригинальное решение, приведенное выше, сможет справиться с этим. Я внес в него поправку, чтобы он не увеличивал более 16 000 элементов одновременно, а накладные расходы составляли не более 16 000 – 1 элементов массива. Для получения информации о «ленивой загрузке» TDataSet см. DBGrid с возможностью упреждающего чтения с использованием ADO< /а>

procedure ProcessArray(ADataSet: TDataSet);
var
  field1: TField;
  field2: TField;
  len: Integer;
  a: array of array[2] of double;
begin
  len := 0;
  SetLength(a, ADataSet.RecordCount);
  field1 := ADataSet.FieldByName('field1');
  field2 := ADataSet.FieldByName('field2');
  ADataSet.First;
  while not ADataSet.Eof do
  begin
    a[len][0] := field1.Value;
    a[len][1] := field2.Value;
    Inc(len);
    ADataSet.Next;
  end;
  // Process the results in the a array here
end;