Сверка значений в 2-х StringGrid-ах

[artemavd]

Вот проект.

Я так и не понял ты от закраски ячеек отказался? Если да то почему?

Потому что я не знаю как это сделать сейчас, поэтому и не стал время терять, т.к. и так его в обрез, потому что я сегодня начальнице обещал, что переделаю. У начальников же всегда семь пятниц на неделе и аппетит приходит во время еды. Сделал сначала как надо было, а они меня еще попросили про выбор колонок добавить

[Stilet]

Вот полный ответ на твой главный вопрос:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var j,i:integer;
begin
 with StringGrid1 do
  for i:=1 to RowCount-1 do
   for j:=1 to ColCount-1 do Cells[i,j]:=IntToStr(Random(3));
 with StringGrid2 do
  for i:=1 to RowCount-1 do
   for j:=1 to ColCount-1 do Cells[i,j]:=IntToStr(Random(3));
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if (acol=0)or(arow=0) then exit;
 with TStringGrid(sender).Canvas do begin
  if StringGrid1.Cells[acol,arow]<>StringGrid2.Cells[acol,arow] then
   Brush.Color:=clred
  else
   Brush.Color:=clGreen;
  FillRect(Rect);TextOut(rect.Left,rect.Top,StringGrid1.Cells[acol,arow]);
 end;
end;

end.

[artemavd]

Stilet, спасибо конечно, но, от раскраски вроде бы я отошел уже . Сейчас у нас проблемы с выводом в результирующую таблицу результата + произвольные колонки...

[DIgorevich]

Если срочно, надо, то дай компоненты, которые там идут или ссылку на скачивание (Rz) которые

[artemavd]

Ага, срочно. Да можешь простыми StringGrid-ами заменить и повесить на кнопку все . Все что использует модули Rz... можешь закомментить

Откуда скачивал их не помню, архив с ними тоже кинуть не могу. Весят 33 метра

[DIgorevich]

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

Ага, срочно. Да можешь простыми StringGrid-ами заменить и повесить на кнопку все . Все что использует модули Rz... можешь закомментить

Ладно нашел сам, уже качаю Кстати, в обычном StringGride всё работает.

[artemavd]

Кстати, в обычном StringGride всё работает

Странно. Почему?

[DIgorevich]

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

Странно. Почему?

Объясняю популярно: Райзовый стринггрид первую колонку (нулевую) имеет с данными, а обычный с заголовком - вот и путаница. Потом, если надо, подробнее объясню, сейчас твой код доделываю.

Тебе очень нужна функция xls_to_stringgrid2 ?? Я ее уберу (при открытии документа), т.к. добавляет лишние 2 строки вниз. Поставлю просто xls_to_stringgrid1(SG2,OpenDialog2. FileName);

[artemavd]

Ааа, вон оно что, не знал этого

Тебе очень нужна функция xls_to_stringgrid2 ?? Я ее уберу (при открытии документа), т.к. добавляет лишние 2 строки вниз. Поставлю просто xls_to_stringgrid1(SG2,OpenDialog2. FileName);

Вообще-то мне нужно в программу загружать 2 разных XLS файла. Думаю, что нужна наверное)

[DIgorevich]

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

Ааа, вон оно что, не знал этого


Вообще-то мне нужно в программу загружать 2 разных XLS файла. Думаю, что нужна наверное)

xls_to_stringgrid1 отлично работает на разных файлах, она ведь каждый раз вызывается, с разными параметрами (таблица, файл).

Проверь, и скажи что не так?
Project1.rar