Как ускорить загрузку текста в memo?

[zver777]

Если в memo загружать текст из файла размером например 1мб, то на это уходит больше секунды. Можно ли как-нибудь ускорить загрузку и отображение текста в мемо? Или может посоветуете другой компонент более шустрый. Мне только надо, чтобы текст быстрее отображался.

[mihali4]

Наипростейший вариант - грузите в Мемо первые 20 КБ - они сразу отобразятся.
Остальное грузите в TStrings и потом разом добавите в Мемо (Lines.AddStrings())

[zver777]

Спс. Не скажете как можно сделать прогрессбар, чтобы показывалось сколько % текста загрузилось?

[maxionans]

Для ускорения загрузки текста в TMemo необходимо временно отключить отображение изменений компонента. Это делается так:

  Memo1.Lines.BeginUpdate; // отключаем отображение изменений
  try
    // здесь производим загрузку текста
  finally
    Memo1.Lines.EndUpdate; // включаем отображение
  end;

Для отображения прогресса загрузки текста можно сделать следующее:

  // допустим, источником текста для загрузки у нас является переменная Text : TStrings, тогда пишем такой код:
var
  I : Integer;
begin
  Memo1.Lines.BeginUpdate; // отключаем отображение изменений
  try
    // в цикле по одной строке добавляем содержимое Text в наш Memo
    for I := 0 to Text.Count - 1 do
    begin
      Memo1.Lines.Add( Text[ I ] );
      ProgressBar1.Position := I * 100 div Text.Count; // пересчитываем прогресс выполнения
      Application.ProgressMessages; // чтобы приложение не зависало, обрабатываем поступившие ему оконные сообщения
    end;
  finally
    Memo1.Lines.EndUpdate; // включаем отображение изменений
  end;
end;