Замена TMemo

← →
kiber-pilot © (2008-03-08 13:41) [0]

Проблема в скорости заполнения мемо. Например, занесение 10000 строк

var
i: Integer;
vList: TStringList;
t: Integer;
begin
t := GetTickCount;
vList := TStringList.Create;
try
for i := 0 to 10000 do
vList.Add("проверка связи проверка связи проверка связи");
memo1.Lines.Assign(vList);
vList.Clear;
finally
vList.Free;
end;
ShowMessage(IntToStr(GetTickCount - t));
end;

выполняется 1,2 сек.
Вопрос: Как ускорить заполнение или какой другой компонент можно использовать вместо TMemo с той же функциональностью?

← →
Leonid Troyanovsky © (2008-03-08 14:31) [1]

> kiber-pilot © (08.03.08 13:41)

> Вопрос: Как ускорить заполнение или какой другой компонент
> можно использовать вместо TMemo с той же функциональностью?

Lines.BeginUpdate/EndUpdate.

А, воо-ще, надо смотреть в сторону контролов, отображающих данные.
F.e., TDrawGrid, virtual controls &etc.

--
Regards, LVT.

← →
sniknik © (2008-03-08 15:45) [2]

Leonid Troyanovsky © (08.03.08 14:31) [1]
> Lines.BeginUpdate/EndUpdate.
не поможет, в Assign оно есть, т.е. никакой разницы, а TStringList он не визуальный т.е. толку там от этого будет мало (хотя не помешает).

> kiber-pilot © (08.03.08 13:41)
вместо
memo1.Lines.Assign(vList);
->
memo1.Lines.Text:= vList.Text;

?

← →
kiber-pilot © (2008-03-08 16:03) [3]

Супер! Спасибо!

> kiber-pilot (08.03.2008 13:41:00) [0]

Ну например установить Capacity до цикла

--

Замена TMemo Найти похожие ветки