Раскрашивание отдельных ячеек StringGrid через разные функции

[dubailand]

Итак, добрый вечер!
Появилась новая проблема: есть StringGrid с инфой, и происходит его закрашивание при определенных значениях:

    procedure TForm1.SG1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  const
  clPaleRed = TColor($CCCCFF);
  var cr:TRect;
      i:integer;
begin
    data(a,P);
   if (FindComponent('Stringgrid'+inttostr(a)) as TStringGrid).Cells[ACol, ARow] =IntToStr(k)  then
  StringGrid1.Canvas.Brush.color := clPalered
else
  StringGrid1.canvas.brush.Color := clWhite;

  if (ACol <> 0) and (ARow <> 0) then
  begin
    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
  end;

 for i:=1 to 12 do begin
   with (FindComponent('Stringgrid'+inttostr(i)) as TStringGrid).Canvas do begin
 cr:=(FindComponent('Stringgrid'+inttostr(i)) as TStringGrid).CellRect(acol,arow) ;
 FillRect(cr);
 TextOut(cr.left+((cr.Right-cr.Left) div 2)-(TextWidth((FindComponent('Stringgrid'+inttostr(i)) as TStringGrid).Cells[acol,arow]) div 2),
 cr.Top,(FindComponent('Stringgrid'+inttostr(i)) as TStringGrid).Cells[acol,arow]);
 end;
  end;
   end;

Ругается делфи вот в этом месте:

data(a,P);
   if (FindComponent('Stringgrid'+inttostr(k)) as TStringGrid).Cells[ACol, ARow] =IntToStr(a)

Из функции data получаем значение k и а, но, к сожалению не компилируется.

И еще один вопрос: Значение может быть как во второй, так и в третьей строке, а

   if Stringgrid.Cells[ACol, ARow] ='3' then
  StringGrid1.Canvas.Brush.color := clPalered;

(упращенная версия с функцией) закрашивает только вторую строку. Что можно предпринять?? Мне, в принципе,

else
  StringGrid1.canvas.brush.Color := clWhite

не нужен!

[Stilet]

Ругается делфи

На эльфийском или на граттикапулианском?

[dubailand]

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

На эльфийском или на граттикапулианском?

Юморист нашелся, родственник Задорнова!

[Аватар]

Юморист нашелся, родственник Задорнова!

Мы тут все юмористы. Думаете ваш код кто-то будет компилировать, чтобы узнать текст сообщения об ошибке? Тогда ваш юмор вообще не имеет пределов

[asmodey1]

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

Юморист нашелся, родственник Задорнова!

С "супермодером" нужно поаккуратнее - можно невзначай и бан схлопотать...
А по делу - вам правильно сказали - ежели есть проблема, то опишите ее максимально, со всеми подробностями. Трудно дать совет, когда вы ведете себя как партизан на допросе у фашистов...
И еще...
В правилах форума четко написано - "Одна тема - один вопрос". Вы не удосужились почитать ? Вот ежели вернется Михалыч, он вас живенько "построит"

[dubailand]

Да, немножко я погорячился. Вот какая вылазит ошибка:

[Аватар]

Так это не ошибка компиляции, это при выполнении. Если при вызове data(a,P), то что это за процедура, где её код, где параметры описаны? Где переменная k из следующей строки инициализируется?

[Stilet]

FindComponent возвращает nil если ничего не находит, так что твой код нужно переписать:

Var st:TStringGrid;
...
  st:=FindComponent('Stringgrid'+inttostr(a));
  if st<>nil then begin
    if st.Cells[ACol, ARow] =IntToStr(k)  then
    .....
  end;

Ну и замечания Аватара справедливы.