Как ускорить прорисовку таблицы? (затяжная проверка условий)

[Ship_1]

Этот код очень сильно тормозит прорисовку. Тормозит не сама работа с канвой, а то, что до неё. Вынес вообще за процедуру определение булевой переменной, которая связывалась с чекбоксом; вынес присвоения значений DatStrtSel и DatFinSel. Вроде стало чуть-чуть побыстрее. Но всё равно оочень медленно. Как ещё можно "убыстрить" проверку условия и ускорить прорисовку?

  if ((ACol=1) or (ACol=2)) and (GetSel) and (ARow>0) then
  begin
    If StringGrid1.Cells[3,ARow]<>'' then DatStr:=StrToInt(SongDates.Values[StringGrid1.Cells[3,ARow]]) 
    else DatStr:=StrToInt(SongDates.Values[StringGrid1.Cells[4,ARow]]);
    if (DatStr>=DatStrtSel) and (DatStr<=DatFinSel) then
    begin
      StringGrid1.Canvas.Font.Color:=clRed;
      StringGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,StringGrid1.Cells[ACol,ARow]);
    End;
  End;

[Stilet]

Ну можно DatStr влить в StringGrid1.Objects[3,ARow] и уже его тут проверять.

[Ship_1]

Влить - что-то типа

StringGrid1.Objects[3,ARow]=StringGrid1.Objects[3,ARow]+DatStr

?
Недопонял, как тогда упростится проверка и плюс тогда при прорисовке таблицы появляется новая процедура по выделению и отрисовке нужного значения в ячейку.
Или недопонял фразу целиком

[Stilet]

Влить - что-то типа

Да. Проверка на Integer всетки быстрее чем на строку плюс поиск в списке SongDates.
Кстати, а что вообще это за программа такая? Зачем в отрисовке понадобилась такая динамическая проверка?

[Ship_1]

Есть база данных, я значения из неё переношу в таблицу.
В базу добавляются ежемесячно данные.
Мне нужно в таблице выделить то, что добавлялось с такого-то по такое-то время.
============

> Проверка на Integer всетки быстрее чем на строку плюс поиск в списке SongDates.

Но тогда при самой отрисовке добавляется процедура выделения параметра и выведения его на канву. Да и принцип работы с таблицей меняется (в значении ячейки уже начинает содержаться не то, что должно отрисовываться). У меня есть в планах переход к этому типу работы с таблицей, но до этого нужно разобраться с другими вещами. Так что за информацию спасибо, возьму на заметку.
Только не совсем понял про проверку на Integer в этих условиях.

[Аватар]

SongDates - TStringList? Если так, то Values тупо перебором ищет и все это медленно для достаточно большого набора строк

[Stilet]

Но тогда при самой отрисовке добавляется процедура выделения параметра и выведения его на канву

Всмысле?

Мне нужно в таблице выделить то, что добавлялось с такого-то по такое-то время.

А зачем тогда тут нужен SongDates?

Только не совсем понял про проверку на Integer в этих условиях.

var i:integer;

  if ((ACol=1) or (ACol=2)) and (GetSel) and (ARow>0) then
  begin
    i:=integer(StringGrid1.Objects[3,ARow]); 
    if (i>=DatStrtSel) and (i<=DatFinSel) then
    begin
      StringGrid1.Canvas.Font.Color:=clRed;
      StringGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,StringGrid1.Cells[ACol,ARow]);
    End;
  End;

Так понятнее?

[Ship_1]

Да, так понятнее. Думал, что-то более мудрёное...

Сообщение от Stilet

А зачем тогда тут нужен SongDates?

Это и есть список дат записей. "Ключ" - заголовок записи, значение - дата записи.

Сообщение от Аватар

SongDates - TStringList? Если так, то Values тупо перебором ищет и все это медленно для достаточно большого набора строк

Перебором??? Т.е. значение не определяется как значение строки с индексом ключа? Или IndexOf('N') - тоже перебором?
А тогда как быстрее найти значение, соответствующее параметру?..

[Stilet]

А тогда как быстрее найти значение, соответствующее параметру?..

Ну быстрее будет наверное если сделать этот СтрингЛист отсортированным. Есть у него такое свойство.
Все равно мне кажется что ты слона нагородил...

[Ship_1]

Сообщение от Stilet

Все равно мне кажется что ты слона нагородил...

)) Очень даже возможно.
Если не сложно - можно пояснить: как это "отрисованный СтрингЛист"?
В результате я заметно повысил отрисовку, формируя в SongDates не изначально весь список по принципу "параметр=значение" и просматривая при отрисовке значение, в котором параметр - это ячейка, а при выборе границ формируя список из параметров, значение которых входит в нужный диапазон.
Другими словами, теперь это

  if ((ACol=1) or (ACol=2)) and (GetSel) and (ARow>0) then
  begin
    If ((StringGrid1.Cells[3,ARow]<>'') and (SongDates.IndexOf(StringGrid1.Cells[3,ARow])>0)) or
	   ((StringGrid1.Cells[4,ARow]<>'') and (SongDates.IndexOf(StringGrid1.Cells[4,ARow])>0)) then
    begin
      StringGrid1.Canvas.Font.Color:=clRed;
      StringGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,StringGrid1.Cells[ACol,ARow]);
    End;
  End;

Если границы соответствуют всему диапазону, то разницы, конечно, никакой. Но в случае если диапазон короче, то список меньше и прорисовка быстрее Особенно если это последние пара месяцев из четырёх лет - вообще почти незаметно.