выделение строк цветом в StringGrid

[kate158]

Помогите,пожалуйста решить такую задачу.
На форме есть stringgrid и кнопка "вставить".копирую из экселя несколько строк с числами,причем числа могут быть одинаковые.как сделать так,что если числа одинаковые в stringgride будет выделение одинаковых строк одним цветом.

[Stilet]

Ну например можно применить ченить типа:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private  ColorBox1:TColorBox;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var c,i:integer;
begin
 ColorBox1:=TColorBox.Create(nil);
 ColorBox1.Parent:=Form1;
 ColorBox1.Hide;
for c :=0  to StringGrid1.ColCount-1  do
begin
 for i :=0  to StringGrid1.RowCount-1  do
 begin
  StringGrid1.Cells[c,i]:=inttostr(random(10));
 end;
end;

end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var i:integer;c:Tcolor;
begin

 i:=StrToIntDef(StringGrid1.Cells[0,arow],0);
 if i<=ColorBox1.Items.Count-1 then
  c:=StringToColor(ColorBox1.Items[i]) else c:=clwhite;
  StringGrid1.Canvas.Brush.Color:=c;
  StringGrid1.Canvas.FillRect(rect);
  StringGrid1.Canvas.TextOut(rect.Left,rect.Top,StringGrid1.Cells[acol,arow]);

end;

end.

Конечно это не единственный способ.