А почему так долго?

← →
Феликс © (2002-10-08 21:07) [0]

procedure TForm1.Button1Click(Sender: TObject);
var SL : TStringList;
i : Integer;
begin
SL := TStringList.Create;
try
for i := 0 to ComboBox1.Items.Count - 1 do
begin
SL.LoadFromFile(ComboBox1.Items[i]);
RichEdit1.Lines.AddStrings(SL);
end;
finally
SL.Free;
end;
end;

Этот код грузит в richedit список txt файлов, что указаны в combobox. Общий размер этих файлов 276 кб. Загрузка этих файлов идет 40-45 сек. Почему так долго? Или это нормально?

← →
Jeer © (2002-10-08 21:20) [1]

Попробуй BeginUpdate и EndUpdate.

← →
Феликс © (2002-10-08 21:22) [2]

Е-мое! А куда это сувать, а?

← →
Jeer © (2002-10-08 21:25) [3]

F1 TCombobox.Strings и их методы

Сорри TCombobox.Items.BeginUpdate и тп.

>Загрузка этих файлов идет 40-45 сек

Похоже тут проблема в самом RichEdit...
В Memo файлы общим весом 410К грузятся за пару сек, а в RichEdit действительно очень долго... я так и не дождался...

А почему так долго? Найти похожие ветки