Экспериментирую с размещением многострочного текста в TStringGrid; пока, увы, неудачно. Сетка у меня простая, из двух столбцов - один фиксированный, другой нет (сетка ReadOnly). Количество рядов постоянное; текст в них периодически меняется. Периодически программа падает с сообщением: List index (-1) out of bounds. Вот фрагмент кода файла Grids.pas:
- Код: Выделить всё
//начало со строки 5538
if (OffEnd-Y)<(Y-OffIni) then
Offset := OffEnd
else begin
Offset := OffIni;
Dec(Index);
ColRowToOffset(False, True, Index, OffIni, OffEnd); //на этой строке
//идет падение
end;
Добавление проверки переменной Index на отрицательное значение с выходом из процедуры решает проблему. Работаю в Win64. Встречался ли кто-нить еще с таким багом? Если да - прошу запостить в трекер для исправления, а то меня там никак не зарегистрируют.