по таймеру обновляю один из журналов в окне. Из других потоков скидывают в TList строки для добавления.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
if SysJournalUpdateList.Count > 0 then
begin
StealthForm.SystemJournalMemo.Lines.BeginUpdate;
k := SysJournalUpdateList.Count;
// if k > 100 then
// k := 50;
if StealthForm.SystemJournalMemo.Lines.Count > 100 then
for n := 1 to k do
StealthForm.SystemJournalMemo.Lines.Delete(0);
StealthForm.SystemJournalMemo.Lines.AddStrings(SysJournalUpdateList.ToArray);
SysJournalUpdateList.Clear;
StealthForm.SystemJournalMemo.Lines.EndUpdate;
{Перетягиваем ползунок сисжурнала в самый низ}
mes.Msg := WM_VSCROLL; // WM_HSCROLL
mes.ScrollCode := SB_BOTTOM;
mes.Pos := 0;
mes.ScrollBar := 0;
if AppTerminated then
Exit;
StealthForm.SystemJournalMemo.Dispatch(mes);
if StealthForm.SystemJournalMemo.Lines[StealthForm.SystemJournalMemo.Lines.Count] = '' then
begin
StealthForm.SystemJournalMemo.ReadOnly := False;
PostMessage(StealthForm.SystemJournalMemo.handle, WM_KEYDOWN, 8, 1);
StealthForm.SystemJournalMemo.ReadOnly := True;
end;
end;
множественное построчное удаление - это как бы полный тупик, ибо ОЧЕНЬ медленно - каждое удаление это несколько отсылов сообщений. И если в списке на добавку больше 20-30 строк - то по факту главный поток виснет на этом всем.
Пока что из пришедшего в голову - брать первую из строк на удаление, брать Memo.Text, находить в нем эту строку (каждая строка за счет timestamp уникальна, так что накладок не будет), удалять ее и все что после нее, а потом добавлять всё новое, опять же в виде одной строки с #10#13.
Может кто-то еще сталкивался, как решали вопрос?
