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

[DIgorevich]

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

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

А как код твой выглядит? и Какие значения в Edit'ы вводишь?

[artemavd]

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
      Form1.StringGrid1.Cells[StrToInt(Form1.Edit3.Text),i]:=Form1.SG1.Cells[StrToInt(Form1.Edit1.Text),i];
      Form1.StringGrid1.Cells[StrToInt(Form1.Edit3.Text) + 1,i]:=Form1.SG1.Cells[StrToInt(Form1.Edit4.Text),i];
 //     memo1.Lines.Add(Form1.SG1.Cells[StrToInt(Form1.Edit1.Text) - 1,i1]); //записываем отсутствующее
      Form1.ProgressBar1.StepBy(i);
   end;
 end;
end;

В Edit3 вводится колонка "с", а в Edit4 колонка "по", т.е. указывается диапазон колонок, которые выбрал пользователь, чтобы они добавились к результату.

[DIgorevich]

ВНИМАНИЕ ИЗМЕНИЛ (НЕ ЗАМЕТИЛ ОШИБКИ)

    if ravno=false then //если нет совпадений
    begin
      Form1.StringGrid1.Cells[strtoint(edit1.Text),i]:=Form1.SG1.Cells[StrToInt(Form1.Edit1.Text),i];
      for col:=0 to strtoint(edit4.Text)-strtoint(edit3.Text) do//Получаем количество выбранных столбцов.
       begin
        Form1.StringGrid1.Cells[col+2,i]:=Form1.SG1.Cells[strtoint(edit3.Text)+col,i]
        Form1.ProgressBar1.StepBy(i);
       end;
    end;

ВНИМАНИЕ ИЗМЕНИЛ (НЕ ЗАМЕТИЛ ОШИБКИ)
Проверишь, отпишись, плз.

[artemavd]

Все равно SG3 не заполняется. . Да что ж такое-то..

[DIgorevich]

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

Все равно SG3 не заполняется. . Да что ж такое-то..

Код с моими изменениями в студию плз.

[artemavd]

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
      Form1.StringGrid1.Cells[StrToInt(Form1.Edit1.Text),i]:=Form1.SG1.Cells[StrToInt(Form1.Edit1.Text),i];
      for col:=0 to StrToInt(Form1.Edit4.Text) - StrToInt(Form1.Edit3.Text) do
      begin
       Form1.StringGrid1.Cells[col + 1,i]:=Form1.SG1.Cells[col+1,i];
 //     memo1.Lines.Add(Form1.SG1.Cells[StrToInt(Form1.Edit1.Text) - 1,i1]); //записываем отсутствующее
      Form1.ProgressBar1.StepBy(i);
      end;
   end;
 end;
end;

[DIgorevich]

Ты не внес мои изменения (пост выше)

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 //если нет совпадений
    begin
      Form1.StringGrid1.Cells[strtoint(Form1.edit1.Text),i]:=Form1.SG1.Cells[StrToInt(Form1.Edit1.Text),i];
      for col:=0 to strtoint(Form1.edit4.Text)-strtoint(Form1.edit3.Text) do//Получаем количество выбранных столбцов.
       begin
        Form1.StringGrid1.Cells[col+2,i]:=Form1.SG1.Cells[strtoint(Form1.edit3.Text)+col,i]
        Form1.ProgressBar1.StepBy(i);
       end;
    end;
 end;
end;

Вот так проверь.

Form1.StringGrid1.Cells[col+2,i]:=Form1.SG1.Cells[strtoint(Form1.edit3.Text)+col,i]
Здесь надо поставить ";", а в самом конце еще один end;

Извини, был не прав Запутался, т.к. у тебя счетчик другой стоял... Вот твой код полностью рабочий - проверял:

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),i] = Form1.SG1.Cells[StrToInt(Form1.Edit1.Text),i1] then
         begin
            ravno:=true; // если совпадения есть то ничего не будет в мемо
         end;
       end;

    if ravno=false then //если нет совпадений
    begin
      Form1.StringGrid1.Cells[strtoint(Form1.edit1.Text),i1]:=Form1.SG1.Cells[StrToInt(Form1.Edit1.Text),i1];
      for col:=0 to strtoint(Form1.edit4.Text)-strtoint(Form1.edit3.Text) do//Получаем количество выбранных столбцов.
       begin
        Form1.StringGrid1.Cells[col+2,i1]:=Form1.SG1.Cells[strtoint(Form1.edit3.Text)+col,i1];
        Form1.ProgressBar1.StepBy(i);
       end;
    end;
 end;
end;
end;

[artemavd]

Вот хоть убей, но не заполняется SG3

[DIgorevich]

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

Вот хоть убей, но не заполняется SG3

Скинь, плз, .pas и .dfm файлы, ибо у меня всё работает (по коду, который я последний выложил).

[Stilet]

Скинь, плз, .pas и .dfm файлы

Запутаешся. Пусть Архив с проектом кинет.

artemavd

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