Загрузка миллионов записей в список строк может быть очень медленной

в вашем цикле вы получаете поле. Искать поле вне цикла

procedure TForm1.SlowLoadingIntoStringList(StringList: TStringList); 
var
  oField: TField;
begin
  StringList.Clear;   
  with SourceTable do   
  begin     
    Open;     
    DisableControls;     
    try       
      oField:= FieldByName('OriginalData');
      if oField<>Nil then
      begin
        while not EOF do
        begin       
          StringList.Add(oField.AsString);       
          Next;     
        end;   
      end; 
    finally    
      EnableControls;    
      Close;   
    end; 
  end;  
end;

К сожалению, сделать это быстро не получится. Это изначально медленная операция, для достижения которой требуется большое количество процессорного времени и пропускной способности памяти. Вы могли бы использовать больше оборудования, но я подозреваю, что вместо этого вам следует переосмыслить свою задачу.

С «миллионами записей» вы можете рассмотреть: 1/Измените свой запрос с

SELECT * FROM MYTABLE;

in

SELECT OriginalData FROM MYTABLE;

Вы будете использовать меньше памяти и будете более эффективны.

2/ Посмотрите другой компонент, чем TStringList, в зависимости от ваших потребностей.

3/ Посмотрите все хорошие предыдущие советы, в основном:

• не используйте FieldByName
• прямая ссылка на поставщика OleDB

Это отсортировано?

  // Turn off the sort for now
  StringList.Sorted := False;
  // Preallocate the space
  StringList.Capacity := recordCount;
  // Now add the data with Append()
  ...
  // Now turn the sort back on
  StringList.Sorted := True;

Серьезно? Миллионы записей в списке строк?

Хорошо, давайте предположим, что вам действительно нужно использовать этот подход...

Уже есть несколько хороших предложений.

Если вы хотите поэкспериментировать с другим подходом, вы можете рассмотреть возможность объединения отдельных серверных записей (через хранимую процедуру), а затем вернуть объединенные данные в виде большого двоичного объекта (или, возможно, nvarchar (max)), который в основном представляет собой список объединенных строк. разделенные, скажем, возвратом каретки (при условии, что это разумный разделитель для ваших нужд).

Затем вы можете просто присвоить возвращаемое значение свойству Text списка TStringList.

Даже если вы не можете сыграть все струны за один удар, вы можете играть их группами, скажем, по 1000 за раз.

Это сэкономит вам массу времени, зацикливаясь на каждой клиентской стороне записи.

Расширяя ответ @Ravaut123, я бы предложил следующий код:

Убедитесь, что ваш запрос не подключен к какому-либо другому визуальному компоненту и не содержит никаких событий, запускающихся при изменении строки, потому что это приведет к обновлению при каждом изменении в активной записи, что сильно замедлит работу.
Вы можете отключите визуальные элементы управления с помощью disablecontrols, но не события и невизуальные элементы управления.

...
SQLatable:= 'SELECT SingleField FROM atable ORDER BY indexedfield ASC';
AQuery:= TAdoQuery.Create(Form1);
AQuery.Connection:= ....
AQuery.SQL.Text:= SQLatable;  

Использование запроса гарантирует, что вы выберете только 1 поле в нужном вам порядке, что снижает сетевой трафик. Таблица извлекает все поля, вызывая гораздо больше накладных расходов.

function TForm1.LoadingAllIntoStringList(AQuery: TAdoQuery): TStringList;  
var 
  Field1: TField; 
begin 
  Result:= nil;
  try
    if not(AQuery.Active) then begin
      AQuery.Open;
    end else begin
      AQuery.First;
    end;
    AQuery.DisableControls;
    AQuery.Filtered:= false;                    //Filter in the SQL `where` clause
    AQuery.FetchAll;                            //Preload all data into memory
    Result:= TStringlist.Create;
  except
    {ignore error, will return nil}
  end;
  try
    Result.Sorted:= false;                      //Make sure you don't enable sorting
    Result.Capacity:= AQuery.RecordCount;       //Preallocate the needed space     
    Field1:= AQuery.FieldByName('SingleField'); //Never use `fieldbyname` in a loop!
    while not AQuery.EOF do begin
      Result.Add(Field1.AsString);
      AQuery.Next;
    end; {while} 
    AQuery.EnableControls;
  except
    FreeAndNil(Result);
  end;   

Если вы хотите загрузить данные в список строк для выполнения некоторой обработки, рассмотрите возможность вместо этого сделать это в операторе SQL. БД может использовать индексы и другие оптимизации, которые нельзя использовать в списке строк.
Если вы хотите сохранить эти данные в CSV-файле, рассмотрите возможность использования для этого встроенной функции БД.
например. MySQL имеет:

SELECT X FROM table1 INTO OUTFILE 'c:/filename_of_csv_file.txt'

Это создаст для вас файл CSV.
Многие базы данных имеют аналогичные функции.