Не работает цикл проверки на наличие неверных символов

[DomiNick]

Может так?: if (ACol <> 2)
Откуда ACol2 взялося?))

[eoln]

Ну да. Просто накладываем условия на координаты ячеек, например, так

procedure TForm1.RzStringGrid2DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
 c, q: integer;
 k: double;
begin
  if (ARow < 1) or (RzStringGrid2.Cells[ACol, ARow] = '') then exit;
  RzStringGrid2.canvas.brush.Color := clWhite;

  val(RzStringGrid2.Cells[ACol, ARow], k, q);
  if q <> 0 then begin//если ошибка
    if ACol = 1 then//цвет для первого столбца
      RzStringGrid2.Canvas.Brush.color := clRed;
    if ACol = 2 then//для второго
      RzStringGrid2.Canvas.Brush.color := clGreen;
    RzStringGrid2.canvas.fillRect(Rect);
    RzStringGrid2.canvas.TextOut(Rect.Left,Rect.Top,RzStringGrid2.Cells[ACol,ARow]);
  end;
end;

[artemavd]

Все, спасибо понял). А такой, немного левый вопрос. Возможно ли организовать по нажатию какой-либо клавиши переход от одной закрашенной ячейки к другой?

[eoln]

Ну, наверное, если только завести массив в котором будут хранится координаты "неправильных" ячеек.

[artemavd]

А условие проверки цвета ячейки нельзя записать? Что-то типа:

 if Form1.RzStringGrid1.Color = clRed then 
 begin
  ???
 end;

и как сделать поиск "не белых" ячеек в StringGrid по нажатию на клавишу, чтобы происходил поиск?

[_Engine_]

Кстати, проверку на фиксированные строки FixedRows, лучше делать так:

if (ARow < RzStringGrid2.FixedRows) or (RzStringGrid2.Cells[ACol, ARow] = '') then exit;

Проверку на цвет можно так организовать:

if RzStringGrid2.Canvas.Pixels[RzStringGrid2.CellRect[ACol, ARow].left + 1, RzStringGrid2.CellRect[ACol, ARow].Top + 1] = clRed then

[artemavd]

О, спасибо! Я вот пытаюсь сделать, чтобы по нажатию на Enter происходила проверка:

procedure TForm1.RzStringGrid2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
 ACol,ARow: integer;
begin
 if Key = 13 then
 begin
  if RzStringGrid2.Canvas.Pixels[RzStringGrid2.CellRect[ACol, ARow].left + 1,
                                 RzStringGrid2.CellRect[ACol, ARow].Top + 1]
                                 = clRed then
  begin
   ShowMessage('Есть красные ячейки!');
  end;
end;

но компилятор ругается и говорит: "[Error] Unit1.pas(1654): Not enough actual parameters". А какие еще параметры надо ему?

[DomiNick]

Эм... Какой-то, извиняюсь, варварский способ.....
А если окно перекрыто другим? Или свёрнуто? Или не всё ячейки отображаются (скроллбары)?

Сделать массив (возможно даже добавить как поле класса) и хранить информацию в нём...

[artemavd]

А если окно перекрыто другим? Или свёрнуто? Или не всё ячейки отображаются (скроллбары)?

В смысле? Что значит "перекрыто другим" и "свернуто"?

[_Engine_]

Видимо DomiNick намекает, на то, что в этот момент не все ячейки будут отрисовываться и проверка через канвас может дать неверный ответ.
Он предлагает при закрашивании запоминать цвета, тут в принципе даже новое поле у грида не надо создавать, цвета можно запоминать в StringGrid.Rows[ARow].Objects[ACol]