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

[artemavd]

Решил вернуться к этой задачке . Возникли новые условия задачи, а именно:
1. Занесение в SG3 результатов сранения;
2. Возможность вручную указывать с какой и по какую колонку заносить в результирующую таблицу. Например, сраниваем SG1 и SG2 по столбцам 2 и 4. 2ой столбец в SG1, а 4ый в SG2. А значению в таблицу с результатом нужно занести в SG3. Пробовал делать так:

(после занесения в Memo1)
procedure TForm1.RzCheckBox5Click(Sender: TObject);
var
 i,j,i1,j2,col,row: integer;
 ravno:boolean;
begin
 if Form1.RzCheckBox5.Checked = True then
 begin
   Form1.RzCheckBox4.Checked:=False;
   Form1.Memo1.Lines.Clear;
   for i1:=1 to Form1.SG1.RowCount - 1 do //проверяем значения первой таблицы
   begin
   ravno:=false;
   for i:=1 to Form1.SG2.RowCount - 1 do   // проверяем значения второй таблицы
       begin
         if Form1.SG2.Cells[StrToInt(Form1.Edit2.Text) - 1,i] = Form1.SG1.Cells[StrToInt(Form1.Edit1.Text) - 1,i1] then //здесь я вручную указываю какие столбцы сравнивать между собой
         begin
            ravno:=true; // если совпадения есть то ничего не будет в мемо
         end;
       end;
    if ravno=false then //если нет совпадений
    for j:=StrToInt(Form1.Edit3.Text)  to StrToInt(Form1.Edit4.Text)  do //здесь я вручную пытаюсь указать с какой и по какую колонку записывать в Memo1 к результату значения. Жалко, что в Memo нельзя в виде колонок записывать.
      memo1.Lines.Add(Form1.SG1.Cells[StrToInt(Form1.Edit1.Text) - 1 + j - 2,i1]); //записываем отсутствующее
      Form1.ProgressBar1.StepBy(i);
  //здесь я пытался записать тоже самое, что записывается в Memo1, но в StringGrid,  //т.к. значения в Memo1 записываются из SG1, то я и хотел в SG3 записать колонки из //этого SG1
   end;
 end;
end;

Но, не получается. В SG3 ничего не заносится. Мне это нужно, чтобы я потом мог сохранить результат в XLS.

[DIgorevich]

Вот это, наверное лучше сделать так:

  if ravno=false then //если нет совпадений
  Begin 
  for j:=StrToInt(Form1.Edit3.Text)  to StrToInt(Form1.Edit4.Text)  do //здесь я вручную пытаюсь указать с какой и по какую колонку записывать в Memo1 к результату значения. Жалко, что в Memo нельзя в виде колонок записывать.
      memo1.Lines.Add(Form1.SG1.Cells[StrToInt(Form1.Edit1.Text) - 1 + j - 2,i1]); //записываем отсутствующее
      Form1.ProgressBar1.StepBy(i);
  //здесь я пытался записать тоже самое, что записывается в Memo1, но в StringGrid,  //т.к. значения в Memo1 записываются из SG1, то я и хотел в SG3 записать колонки из //этого SG1
   end;

Плюс, я не совсем понял строку

memo1.Lines.Add(Form1.SG1.Cells[StrToInt(Form1.Edit1.Text) - 1 + j - 2,i1]);

А что если я выберу первый столбец, а он тут будет нулевым получаться?

[DIgorevich]

В общем второй вопрос не совсем мне понятен... попробуй подробнее расписать. А с занесением в SG3 сложности нет:

var
 i,i1: integer;
 ravno:boolean;
begin
 for i:=1 to Form1.SG1.RowCount - 1 do   //проверяем значения первой таблицы
   begin
   ravno:=false;
     for i1:=1 to Form1.SG2.RowCount - 1 do //проверяем значения второй таблицы
       begin
         if Form1.SG1.Cells[strtoint(edit1.Text),i] = Form1.SG2.Cells[strtoint(edit2.Text),i1] then
         begin
            ravno:=true; // если совпадения есть то ничего не будет
         end;
       end;
    if ravno=false then //если нет совпадений, заносим в выбранную колонку в SG3
      SG3.Cells[strtoint(edit3.Text),i]:=Form1.SG1.Cells[strtoint(edit1.Text),i];
   end;

[artemavd]

Плюс, я не совсем понял строку

Код:

memo1.Lines.Add(Form1.SG1.Cells[StrToInt(Form1.Edit1.Text) - 1 + j - 2,i1]);

А что если я выберу первый столбец, а он тут будет нулевым получаться?

Этим самым я хотел решить вопрос о записи колонок. То есть к итоговому результату сравнения (если бы это выводилось в SG3) прибавлялись еще диапозон колонок от

StrToInt(Form1.Edit3.Text)

и до

StrToInt(Form1.Edit4.Text)

.

[DIgorevich]

Давай максимально подробнее: есть таблица (SG1) со значениями (это якобы два столбца):

1,11
2,22
3,33
4,44
5,55

таблица (SG2) со значениями (это якобы два столбца):

4,44
5,55
6,66
7,77
8,88

Результатом сравнения по первому столбцу будет запись в SG3 (в нужный столбец):

1
2
3

Что еще должно выбираться и выводиться в SG3 на этом примере?

[artemavd]

Ок, подробно так подробно . Смотри. Есть таблицы как во вложении.

Нужно произвести например сравнение по столбцам 2 и 4 в SG1 (таблица слева) и SG2 (таблица справа), а в SG3 вывести результат (то, что мы вчера с тобой сделали) + прозвольные колонки, например хотя бы из первой таблицы, которые укажет пользователь. Он может указать как третью колонку, так и шестую, а может и захочет с третьей по шестую. Так понятнее получилось?

[DIgorevich]

Не совсем (может я русский язык уже перестаю понимать...). В общем меня интересует результат. А именно, то, что должно получиться в SG3, например, при выборе пользователем сравнения по 2 и 4 столбцам и указанием произвольной колонки №3

[artemavd]

Не совсем (может я русский язык уже перестаю понимать...). В общем меня интересует результат. А именно, то, что должно получиться в SG3, например, при выборе пользователем сравнения по 2 и 4 столбцам и указанием произвольной колонки №3

Ну как не понятно то . Результат: отображение значений, которых нет в первой таблице, но есть во второй, в зависимости от того, какой Checkbox я выбрал. Этот момент на самом деле сделан. Проблема в выводе в StringGrid + произвольно выбранная, т.е. когда указана пользователем номер колонки произвольный, который должен вписываться столбцом в SG3 рядом со столбцом, в котором значения получились при сравнении. А так? ))

[DIgorevich]

В таком случае:

var
 i,i1: integer;
 ravno:boolean;
begin
 for i:=1 to Form1.SG1.RowCount - 1 do   //проверяем значения первой таблицы
   begin
   ravno:=false;
     for i1:=1 to Form1.SG2.RowCount - 1 do //проверяем значения второй таблицы
       begin
         if Form1.SG1.Cells[strtoint(edit1.Text),i] = Form1.SG2.Cells[strtoint(edit2.Text),i1] then
         begin
            ravno:=true; // если совпадения есть то ничего не будет
         end;
       end;
    if ravno=false then //если нет совпадений, заносим в выбранную колонку в SG3
      SG3.Cells[strtoint(edit3.Text),i]:=Form1.SG1.Cells[strtoint(edit1.Text),i];
   SG3.Cells[strtoint(edit3.Text)+1,i]:=Form1.SG1.Cells[strtoint(edit4.Text),i];// здесь заносим в соседний столбец в SG3 тот столбец, который отметил пользователь в Edit4.
   end;

Надеюсь я правильно понял?

[artemavd]

Че-то вообще ничего в SG3 не выводится . Ошибок нет, но и таблица пустая.