Сравнить строки StringGrid1 и StringGrid2

[San22Rus]

Сейчас придумаю что нибудь

[San22Rus]

можете выложить архив с тестовыми табличками (на которых проверяли работу) и сам проект с программой?
я посмотрю, что у Вас не работает!

Готово:

[evg_m]

он выводит только первые 5 записей которых нет в одной из таблиц,

ровно столько сколько есть строк ДЛЯ ПОКАЗА (RowCount).
Хотите больше, меняйте (задавайте) значение для RowСount

if (j>=StringGrid1.RowCount-1) then begin
			inc(k);
if Form2.StringGrid1.Rowcount<k+1 then form2.StringGrid1.RowCount:=k+1;
			form2.StringGrid1.Rows[k].Text:=StringGrid2.Rows[i].Text;
    end;

[Serge_Bliznykov]

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

ровно столько сколько есть строк ДЛЯ ПОКАЗА (RowCount).
Хотите больше, меняйте (задавайте) значение для RowСount

Точно! Вы правы!
Забыл я про увеличение RowCount

[San22Rus]

Всем спасибо, сделал вот так и всё работает:

var
    aSg : TStringGrid;
    i, k : integer;
begin
	form3.show;
  asg:=form3.StringGrid1;
  k := 0;
for i := StringGrid2.FixedRows to StringGrid2.RowCount - 1 do
  if StringGrid1.Cols[1].IndexOf(StringGrid2.Cells[1, i]) = -1
   then begin
         form3.StringGrid1.Rows[k] := StringGrid2.Rows[i];
         form3.StringGrid1.RowCount := form3.StringGrid1.RowCount + 1;
         inc(k);
        end;
  // настраиваем ширину столбцов
  for i := 0 to asg.ColCount - 1 do ColumnWidthAlign(asg, i);
end;

[San22Rus]

Ой а можете подсказать почему у меня последние строки таблиц не загружаются в StringGrid'ы????? Только сейчас заметил
Вот код импорта из файла Word в StringGrid:

var
  aSg : TStringGrid;
  MSWord,Table: OLEVariant;
  iRows,iCols,iGridRows,jGridCols,iNumTables,iTableChosen: integer;
  CellText:string;
  InputString:string;
  i,a,b,j,k : Integer;
begin
for a:= 1 to 2000  do  // раставляем цифры
StringGrid1.Cells[0, a]:= IntToStr(a);     // вертикальной области заголовка
for b:= 1 to 2000  do  // раставляем цифры
StringGrid1.Cells[b, 0]:= IntToStr(b);     // горизонтальной области заголовка
asg:=StringGrid1;
  try
    MSWord:=CreateOleObject('Word.Application');
  except
    ShowMessage('Ошибка открытия файла .docx!');
    Exit;
  end;
  try
    MSWord.Visible:=false;
    OpenDialog1.Filter := 'Документы MS Word|*.doc;*.docx';
    if not OpenDialog1.Execute then Exit;
 MSWord.Documents.Open(OpenDialog1.FileName);
    // Узнаём количество таблиц в документе
    iNumTables:=MSWord.ActiveDocument.Tables.Count;
    InputString:=InputBox('Таблиц в документе: '+IntToStr(iNumTables),'Пожалуйста введите номер таблицы','1');
    // Проверка строки на число, диапазон...
    iTableChosen:= StrToInt(InputString);
    Table:=MSWord.ActiveDocument.Tables.Item(iTableChosen);
    // размер таблицы
    iCols:=Table.Rows.Count;
    iRows:=Table.Columns.Count;
    // настройка столбцов StringGrid
    StringGrid1.RowCount:=iCols;
    StringGrid1.ColCount:=iRows + 1;
    // цикл по ячейкам
    for iGridRows:=1 to iRows do
    for jGridCols:=1 to iCols do
    Begin
      CellText:=Table.Cell(jGridCols, iGridRows).Range.FormattedText;
      if not VarisEmpty(CellText) then
      Begin
        // Удаляем из строки все символы переноса
        CellText:=StringReplace(CellText,#$D,'', [rfReplaceAll]);
        CellText := StringReplace(CellText,#$7,'', [rfReplaceAll]);
        // Заполняем Stringgrid
          Stringgrid1.Cells[iGridRows, jGridCols] := CellText;
          for i := 0 to asg.ColCount - 1 do ColumnWidthAlign(asg, i);
      End;
    End;
    finally
      MSWord.Quit;
      ShowMessage('Таблица №1 успешно загружена!');
end;

[evg_m]

почему у меня последние строки таблиц не загружаются в StringGrid'ы?????

Вы в этом уверены? Ситуация именно такова:
последняя строка в исходном 'яяяяяяяяя' и при загрузке ЕЕ нет.

потому что на мой взгляд ситуация такова:
при загрузке ПОСЛЕ строки 'яяяяяяяяяяя' добавляется еще одна пустая, которую вы "ошибочно" воспринимаете(интерпретируете) как недостающую.

  iRows:=Table.Columns.Count;
   StringGrid1.ColCount:=iRows + 1;//вот эта "лишняя" строка

[Serge_Bliznykov]

San22Rus
что то вы rows и cols местами перепутали.
я постарался вернуть логический смысл переменным.
Ну и главное, плюс +1 я добавил в RowCount

проверьте

    // размер таблицы
    iCols:=Table.Columns.Count;
    iRows:=Table.Rows.Count;
    // настройка столбцов StringGrid
    StringGrid1.RowCount:=iRows + 1;
    StringGrid1.ColCount:=iCols + 1;
    // цикл по ячейкам
    for iGridRows:=1 to iRows do
    for jGridCols:=1 to iCols do
    Begin
      CellText:=Table.Cell(iGridRows, jGridCols).Range.FormattedText;
      if not VarisEmpty(CellText) then
      Begin
        // Удаляем из строки все символы переноса
        CellText:=StringReplace(CellText,#$D,'', [rfReplaceAll]);
        CellText := StringReplace(CellText,#$7,'', [rfReplaceAll]);
        // Заполняем Stringgrid
          Stringgrid1.Cells[jGridCols, iGridRows] := CellText;
      End;
    End;
    finally

[San22Rus]

Спасибо вам большое, очень помогли, теперь всё работает хорошо, буду рад если подскажите как мне организовать статус импорта таблиц в StringGrid через компонент ProgressBar, т.к. у меня есть одна таблица где почти 1000 записей, и импорт длится примерно 1 минуту и в этот момент программа как бы зависает и не каждый пользователь догадается, что нужно ждать некое кол-во времени, я и раньше не работал с ProgressBar'ом, а тут ещё и нефиксированный ProgressMax, т.е. размеры таблиц могут быть разные и я не знаю как это реализовать

[San22Rus]

что то вы rows и cols местами перепутали.

точно, и не думал, что мог так написать, поэтому даже не предал значению, очень глупая ошибка