и опять TStringGrid Опции

[marwell]

Доброго времени суток
Само задание звучит так: Дана таблица целых чисел ai, bi. Выделить цветом все совпадающие пары и максимальную из них, указать позиции.
Нашел в инете как выделять цветом только отдельные ячейки, но не уверен что правильно ее применяю. Еще выдает ошибку "Project Projectl.exe raised exception class EConvertError with message'" Is not a valid integer value1. Process stopped. Use Step or Run to continue." Смысл ошибки понимаю, но не вижу в каком месте она появляется, вроде везде правильно работаю с ячейками

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    SG: TStringGrid;
    Edit1: TEdit;
    procedure FormPaint(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
      State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var i:integer;
begin
with SG do begin
cells[0,0]:='N';
cells[0,1]:='ai';
cells[0,2]:='bi';
for i:=1 to ColCount do
cells[i,0]:=IntToStr(i);
end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var i:integer;
begin
  SG.ColCount := StrToInt((Sender as TEdit).Text);
for i:=1 to SG.ColCount do
SG.cells[i,0]:=IntToStr(i);
end;

procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var i,j,max:integer;
begin
max:=0;
j:=0;
for i:=1 to sg.ColCount-1 do begin
if StrToInt(sg.Cells[i,j+1])=StrToInt(sg.Cells[i,j+2]) then sg.Canvas.Brush.Color:=clRed;
if StrToInt(sg.Cells[i,j])>max then
  begin max:=StrToInt(sg.Cells[i,j]);
        sg.Canvas.Brush.Color:=clBlue;
        end;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2, Rect.Top+2, sg.Cells[i, j]);
sg.Canvas.Brush.Color:=clBlack;
end;
end;

end. 

[volvo]

Я в твоем коде вижу несколько недочетов:

1. Ветка else, где выводится MessageDlg, относится к самому первому If-у, так? То есть, она отрабатывает каждый раз, когда рисуются серые клетки (ARow = 0 или ACol = 0). Оно тебе надо, чтоб при каждой перерисовке грида выводилось несколько диалоговых сообщений. А вдруг какое-то из них перекроет собственно ячейку, и часть грида снова станет невалидной, опять начнет перерисовываться, и тогда что? Кандидатура на вечный цикл? Не надо этого счастья. Зачем тебе понадобилось сообщать при перерисовке, что "введено не число"? Просто не обрабатывай, если не число, и всего делов.
2. Как реализована проверка. Я бы сделал ровно так же, как делал в OnSetEditText:
   
   

     if (ACol > 0) and (ARow > 0) then
       with Sender as TStringGrid do
       begin
         if (Cells[ACol, ARow] <> '') and (Cells[ACol, ARow] = Cells[ACol, 3 - ARow]) and 
               TryStrToInt(Cells[ACol, ARow], IntValue) then
         begin
           Canvas.Brush.Color := clRed;
           Canvas.Font.Color := clWhite;
         end
         else
         begin
           Canvas.Brush.Color := clWhite;
           Canvas.Font.Color := clBlack;
         end;
         if (ACol = max_index) then // <--- Максимум?
         begin
           Canvas.Brush.Color := clGreen;
           Canvas.Font.Color := clWhite;
         end;
         Canvas.FillRect(Rect);
         Canvas.TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow]);
       end;
   

   То есть, я даже не проверяю, чему равно содержимое клетки Cells[ARow, ACol]. Мне достаточно того, что содержимое верхней и нижней ячеек одинаковое, не пустое, и одно из них - число. Раз ячейки содержат одинаковые значения - значит, и второе число. Логично? Раз оба - одинаковых числа, то их надо что? Правильно, подсветить другим цветом... Вот и устанавливаем красную подсветку. А потом проверяем (это было и раньше в коде), "не максимальное ли значение"? Максимальное отмечаем зеленым цветом...