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

[artemavd]

Не работает почему-то цикл на проверку букв в столбце. Мне нужно: сделать цикл проверки столбца, в котором только цифры, на наличие вдруг в этом столбе букв. Делаю такой цикл:

procedure TForm1.Button10Click(Sender: TObject);
var
 j,k,c: integer;
begin
 for c:=1 to Form1.RzStringGrid2.RowCount - 1 do
 begin
  if Form1.RzStringGrid2.Cells[1,c] = 'a' then
  begin
   ShowMessage(' Обнаружен неверный символ! ');
  end;
 end;
end;

Этот цикл правильно работает для цифр. В связи с этим 2 вопроса:
1. Как сделать, чтобы проверка шла по столбцу и если будет обнаружена буква, русская или английская любая, то выдалось сообщение?
2. Будет ли сделанный цикл работать, если у меня в колонке содержится в ячейках по несколько цифр, например, 384а73? Если такое встречается, то должно выдаться соответствующее сообщение.

[_SERGEYX_]

А может сделать так?

var i: integer;
try
i:= StrToInt(Form1.RzStringGrid2.Cells[1,c]);
except
 ShowMessage(' Это не число! ');
end;

[artemavd]

Спасибо! . С этим разобрались. Можно ли сделать, чтобы ячейки в которых были найдены неверные символы как-то помечались цветом?
Сейчас получился такой код (если кому надо):

procedure TForm1.Button10Click(Sender: TObject);
var
 k,c: integer;
begin
 try
 for c:=1 to Form1.RzStringGrid2.RowCount - 1 do
  k:=StrToInt(Form1.RzStringGrid2.Cells[1,c]);
 except
  on EConvertError do
  begin
   ShowMessage(' Обнаружен неверный символ! ');
  end;
 end;
end;

[eoln]

Можно поместить код в обработчик прорисовки

procedure TForm1.RzStringGrid2DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
 c, q: integer;
 k: double;
begin
  //для первого и непустого столбца
  if (ACol <> 1) or (RzStringGrid2.Cells[ACol, ARow] = '') then exit;
  val(RzStringGrid2.Cells[1, ARow], k, q);
  RzStringGrid2.canvas.brush.Color := clWhite;
  if q <> 0 then begin
    RzStringGrid2.Canvas.Brush.color := clRed;
    RzStringGrid2.canvas.fillRect(Rect);
    RzStringGrid2.canvas.TextOut(Rect.Left,Rect.Top,RzStringGrid2.Cells[ACol,ARow]);
  end
end;

[artemavd]

Спасибо! А можешь пояснить это:

val(RzStringGrid2.Cells[1, ARow], k, q);

и почему-то он у меня в первой колонке выделяет фиксированную ячейку. Как убрать? И тако вопрос: можно ли этот код поместить не в событие DrawCell, а например в ту же кнопку, где проходит проверка на буквы как в посте №3?

[DomiNick]

if Form1.RzStringGrid2.Cells[1,c] = 'a' then

Это же не проверка есть ли в строке такой символ, а проверка равна ли заданной строке содержимое ячейки...
Проверка наличия символа будет так: "If Pos('a', Form1.RzStringGrid2.Cells[1, c])<>0 Then"...

Ну а так-то если только на ввод правильных чисел проверять, то пойдёт и try/except...

можно ли этот код поместить не в событие DrawCell, а например в ту же кнопку, где проходит проверка на буквы как в посте №3?

Для обычного StringGrid1 вроде никак... А возможностей RzStringGrid2 не знаю, не видел такого...

[Marsel737]

Вот этот код помещаеш в DrawCell:

procedure TForm1.RzStringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with RzStringGrid2 do
  begin
    Canvas.Font.Color := clBlack;
    if Integer(Objects[ACol, ARow]) = 0 then
      Canvas.Brush.Color := clWindow;
    if Integer(Objects[ACol, ARow]) = 1 then
      Canvas.Brush.Color := clRed;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 5, Rect.Top + 5, Cells[ACol, ARow]);
  end;
end;

Потом можно написать так:

procedure TForm1.Button10Click(Sender: TObject);
var
 j,k,c: integer;
begin
 for c:=1 to RzStringGrid2.RowCount - 1 do
 begin
  if RzStringGrid2.Cells[1,c] = 'a' then
  begin
   ShowMessage(' Обнаружен неверный символ! ');
   RzStringGrid2.Objects[1, с] := TObject(1); // выделение ячейкм красным цветом
  end;
 end;
end;

А вообще в стринггриде столбцы и строки нумеруются начиная с 0, может поэтому цикл и не работает.

Попробуй так:

procedure TForm1.Button10Click(Sender: TObject);
var
  I: integer;
begin
  for I := 0 to RzStringGrid2.RowCount do
  begin
    if RzStringGrid2.Cells[1, I] = 'a' then
    begin
      ShowMessage(' Обнаружен неверный символ! ');
      RzStringGrid2.Objects[0, I] := TObject(1); // выделение ячейкм красным цветом
    end;
   end;
end;

[artemavd]

Да хотя ладно, не надо заморачиваться с вызовом процедуры, код работает нормально вроде после того, как в грид данные грузятся. Вы мне скажите где подправить в коде, чтобы фиксированная ячейка не закрашивалась? Я про этот код:

procedure TForm1.RzStringGrid2DrawCell(Sender : TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var
c, q: integer;
k: double;
begin
//для первого и непустого столбца
if (ACol <> 1) or (RzStringGrid2.Cells[ACol, ARow] = '') then exit;
val(RzStringGrid2.Cells[1, ARow], k, q);
RzStringGrid2.canvas.brush.Color := clWhite;
if q <> 0 then begin
RzStringGrid2.Canvas.Brush.color := clRed;
RzStringGrid2.canvas.fillRect(Rect) ;
RzStringGrid2.canvas.TextOut(Rect.L eft,Rect.Top,RzStringGrid2.Cells[ACol,ARow]);
end
end;

[eoln]

val(RzStringGrid2.Cells[1, ARow], k, q);

Это старая процедура ещё со времён паскаля, переводит из строки (1 параметр) в число (2 параметр), в случае невозможности перевода генерирует число отличное от нуля (3 параметр)

Чтобы нулевая строка не выделялась, надо чуть изменить условие

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

[artemavd]

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

  if (ACol2 <> 1) or (ARow2 < 1) or (RzStringGrid2.Cells[ACol2, ARow2] = '') then exit;
  val(RzStringGrid2.Cells[2, ARow2], k2, q2);
  RzStringGrid2.canvas.brush.Color := clWhite;
  if q2 <> 0 then begin
    RzStringGrid2.Canvas.Brush.color := clGreen;
    RzStringGrid2.canvas.fillRect(Rect);
    RzStringGrid2.canvas.TextOut(Rect.Left,Rect.Top,RzStringGrid2.Cells[ACol2,ARow2]);
  end;