и опять 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]

переменную im я описал так, как ты сказал?

Я имел в виду другое.

Смотри: (Показать/Скрыть)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    SG: TStringGrid;
    Edit1: TEdit;
    procedure SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
      State: TGridDrawState);
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SGSetEditText(Sender: TObject; ACol, ARow: Integer;
      const Value: string);
  private
    { Private declarations }
  public
    { Public declarations }
    max_index : Integer; // <--- Вот тут описывается индекс макс. элемента
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

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.FormCreate(Sender: TObject);
begin
  max_index := -1;
  Edit1.Text := '5'; // Можно вместо этого изменить содержимое Эдита в Object Inspector-е

  with SG do
  begin
    RowCount := 3; // 
    cells[0,0]:='N';
    cells[0,1]:='ai';
    cells[0,2]:='bi';
  end;
end;

procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
begin
  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]) 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;
end;

procedure TForm1.SGSetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
var i : integer;
begin
   max_index := -1;
   with Sender as TStringGrid do
   begin

     // Проходим по всем ячейкам, и смотрим, равные ли значения в [, 1] и [, 2],
     // и не пустые ли они. В общем, все, как и выше. 
     for i := 1 to ColCount do
       if (Cells[i, 1] <> '') and (Cells[i, 1] = Cells[i, 2]) then
       begin
         if max_index = -1 then // Если это первое непустое значение - то начинаем отсчет с него
           max_index := i
         else
           // Если нет - то сравнваем с предыдущим максимумом...
           if StrToInt(Cells[i, 1]) > StrToInt(Cells[max_index, 1]) then
             max_index := i;
       end; // if Cells ...

     Invalidate; // <--- Ну, и перерисовываем...
   end;
end;

end.

Опять же, я не проверяю, введено ли число, если введешь строку - будет вылет программы, добавь проверку все-таки на численное значение, лучше использовать TryStrToInt вместо StrToInt...

В результате получается вот что:

[marwell]

Я имел в виду другое.

Смотри: (Показать/Скрыть)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    SG: TStringGrid;
    Edit1: TEdit;
    procedure SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
      State: TGridDrawState);
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SGSetEditText(Sender: TObject; ACol, ARow: Integer;
      const Value: string);
  private
    { Private declarations }
  public
    { Public declarations }
    max_index : Integer; // <--- Вот тут описывается индекс макс. элемента
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

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.FormCreate(Sender: TObject);
begin
  max_index := -1;
  Edit1.Text := '5'; // Можно вместо этого изменить содержимое Эдита в Object Inspector-е

  with SG do
  begin
    RowCount := 3; // 
    cells[0,0]:='N';
    cells[0,1]:='ai';
    cells[0,2]:='bi';
  end;
end;

procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
begin
  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]) 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;
end;

procedure TForm1.SGSetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
var i : integer;
begin
   max_index := -1;
   with Sender as TStringGrid do
   begin

     // Проходим по всем ячейкам, и смотрим, равные ли значения в [, 1] и [, 2],
     // и не пустые ли они. В общем, все, как и выше. 
     for i := 1 to ColCount do
       if (Cells[i, 1] <> '') and (Cells[i, 1] = Cells[i, 2]) then
       begin
         if max_index = -1 then // Если это первое непустое значение - то начинаем отсчет с него
           max_index := i
         else
           // Если нет - то сравнваем с предыдущим максимумом...
           if StrToInt(Cells[i, 1]) > StrToInt(Cells[max_index, 1]) then
             max_index := i;
       end; // if Cells ...

     Invalidate; // <--- Ну, и перерисовываем...
   end;
end;

end.

Опять же, я не проверяю, введено ли число, если введешь строку - будет вылет программы, добавь проверку все-таки на численное значение, лучше использовать TryStrToInt вместо StrToInt...

В результате получается вот что:

А как работает TryStrToInt? (никогда прежде не сталкивался с ним)