DriveSoftware
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: Подскажите пожалуйста кто знает: есть скрипт прикрученный в программе к таблице, для раскраски ячеек при определенном условии, но почему-то работает криво, окрашивает совсем не по условию | ваш скрипты сравнивает строки, необходимо строку взятую из града преобразовать в число, попробуйте так procedure frmPoisk_tablRezultatPoiska_OnChange (Sender: string); var i,c,f,r: integer; begin c := frmPoisk.tablRezultatPoiska.RowCount - 1; for r := 0 to c do begin if (ValidFloat(frmPoisk.tablRezultatPoiska.Cells[2,r])) and (ValidFloat(frmPoisk.tablRezultatPoiska.Cells[3,r])) then // проверяем, действительно ли в ячейках цифры, иначе при преобразовании текста в число (StrToFloat) может возникнуть ошибка if StrToFloat(frmPoisk.tablRezultatPoiska.Cells[2,r]) < StrToFloat(frmPoisk.tablRezultatPoiska.Cells[3,r]) THEN frmPoisk.tablRezultatPoiska.Cell[2,r].Color := clRed; end; end; |