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

[betirsolt]

я уже писал прогу которая берет данные из экзеля в стринг грид потом ищет совпадения и все одинаковые записи перебрасывает в другой стринг грид вот процедура

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
index:=1;
progressform.Show;
progressform.Caption:='Поиск совпадений';
progressform.ProgressBar1.Max:=setchik;
 for k := 1 to setchik  do
   begin
       for j := k+1 to  setchik do
         begin
         if stringgrid1.Cells[3,k]=stringgrid1.Cells[3,j] then
           begin

           for I := 1 to 12 do
         begin
           stringgrid2.Cells[i,index]:=stringgrid1.Cells[i,k];
         end;
         index:=index+1;
         for I := 1 to 12 do
         begin
         stringgrid2.Cells[i,index]:=stringgrid1.Cells[i,j];
         end;
         index:=index+1;
       end;
 end;
        progressform.ProgressBar1.Position:=progressform.ProgressBar1.Position+1;
   end;
   progressform.ProgressBar1.Position:=0;
   progressform.Close;
end;

[DIgorevich]

betirsolt Это-то мы уже давно написали... Проблема не только в сравнении, но также выведении доп.полей и еще многое чего. Но всё равно спасибо!

[betirsolt]

есть у меня еще один проект который тоже ищет совпадения и не совпадения,есть два столбца А и Б и они сравниваются между собой
вот поиск совпадений

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
  index:=1;
  progress.Show;
  progress.Caption:='Поиск совпадений в А и Б';

  progress.ProgressBar1.Max:= setchik;
 for k := 1 to setchik  do
   begin

    for j := 1 to  setchik do
       if stringgrid1.Cells[1,k]=stringgrid1.Cells[2,j] then
       begin
          stringgrid1.Cells[3,index]:=stringgrid1.Cells[1,k];
        index:=index+1;
       end;
     progress.ProgressBar1.Position:=progress.ProgressBar1.Position+1;
   end;
 progress.ProgressBar1.Position:=0;
 progress.Close;
end;

вот есть в А но нет в Б

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
index:=1;
res:=0;
  progress.Show;
  progress.Caption:='Есть в А но нет в Б';

  progress.ProgressBar1.Max:= setchik;
 for k:=1 to setchik  do
   begin
     for j:=1 to  setchik do
          begin
             if stringgrid1.Cells[1,k]=stringgrid1.Cells[4,j] then
             res:=res+1;
          end;

    if res=0 then
    begin
    stringgrid1.Cells[4,index]:=stringgrid1.Cells[1,k];
    index:=index+1;
    end;
    progress.ProgressBar1.Position:=progress.ProgressBar1.Position+1;
    res:=0;
   end;
 progress.ProgressBar1.Position:=0;
 progress.Close;
end;

вот есть в Б но нет в А

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
index:=1;
res:=0;
  progress.Show;
  progress.Caption:='Есть в Б но нет в А';
  progress.ProgressBar1.Max:= setchik;
 for k:=1 to setchik  do
   begin
     for j:=1 to  setchik do
          begin
             if stringgrid1.Cells[2,k]=stringgrid1.Cells[1,j] then
             res:=res+1;
          end;
    if res=0 then
    begin
    stringgrid1.Cells[5,index]:=stringgrid1.Cells[2,k];
    index:=index+1;
    end;
    progress.ProgressBar1.Position:=progress.ProgressBar1.Position+1;
    res:=0;
   end;
    progress.ProgressBar1.Position:=0;
 progress.Close;
end;

ну вот и все.надеюсь ниче не попутал.и надеюсь хоть как то поможет,могу оба готовых проекта дать если надо

[betirsolt]

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

betirsolt Это-то мы уже давно написали... Проблема не только в сравнении, но также выведении доп.полей и еще многое чего. Но всё равно спасибо!

что еще я не пойму?какие поля?че конкретно надо?

[DIgorevich]

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

что еще я не пойму?какие поля?че конкретно надо?

Та уже всё написано завтра ТС отпишется.

artemavd Лови, проверяй. Убедительно прошу, сначала экзешник проверь, а потом уже код смотри

Копия 79979.rar

[psycho-coder]

алгоритм сравнения пишется за пять минут. Единственная проблема на мой взгляд - это раскраска. Ни когда ею не занимался.

P.S. Просто не вижу смысла расписывать тему на семь страниц из-за пустяка.

[DIgorevich]

Сообщение от psycho-coder

Просто не вижу смысла расписывать тему на семь страниц из-за пустяка.

В таком случае, почитайте ВСЕ посты в теме. Раз уж вам места жалко...

[psycho-coder]

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

В таком случае, почитайте ВСЕ посты в теме. Раз уж вам места жалко...

Мне места не жалко. Мне лень это все читать и вникать.
Беглый просмотр показал, что несколько разных вариантов есть.

[artemavd]

DIgorevich, респект! . Вот сейчас работает вроде правильно. Только есть пара маленьких нюансов-уточнения.
1. Почему происхожит задержка при выводе результата? Возможно ли как-тот ускорить?
2. Не получается сохранить в Excel файл. Сейчас ищу другую процедуру сохранения..
В твоем коде сохранения выдается ошибка:
"OLE error 800A03EC". Мне кажется, что это из за того, что столбцов слишком много.

[DIgorevich]

1. Почему происхожит задержка при выводе результата? Возможно ли как-тот ускорить?

У меня задержки вообще нет... Может дело в размере файла, т.к. она сначала заполняет результатом 3-ю сетку, а потом ее уже отображает.

2. Не получается сохранить в Excel файл. Сейчас ищу другую процедуру сохранения..
В твоем коде сохранения выдается ошибка:
"OLE error 800A03EC". Мне кажется, что это из за того, что столбцов слишком много.

У меня данная процедура также работала (хотя она заточена под обычный StringGrid). Ошибку может выдавать из-за версии Офиса также.