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

[San22Rus]

Всем доброго времени суток, Чтобы было понятно поясню подробно то что я хочу получить:
Есть 2 таблицы в StringGrid1 и StringGrid2, которые я гружу из фалов MS Word, мне надо чтобы в компонент StringGrid3 выводились те строки, которые есть в StrdingGrid2, но нет в StringGrid1, сравнение идёт по 1 столбцу (и только по нему).
Выложил скриншоты, чтобы было наглядней:
Т.е. у меня в StringGrid3 должны вывестись строки:
4-Г
1.png

2.png

3.png

4.png
вот код, который я нашёл на форуме, но не могу довести его до ума, помогите пожалуйста

procedure TForm1.sBitBtn5Click(Sender: TObject);
var
i,k:integer;
begin
form3.show;
k:=-1;
for i:=0 to StringGrid1.RowCount-1 do
if pos(StringGrid1.Cells[1,i],StringGrid2.Cells[1,i])<>0 then
begin
inc(k);
form3.StringGrid1.Rows[k].Text:=StringGrid2.Rows[i].Text;
end;
end;

[Serge_Bliznykov]

если таблицы не большие, то можно попробовать поиск "в лоб" (перебором)

примерно так:

var
    i,j,k:integer;
begin
	form3.show;
	k:=-1;
	for i:=0 to StringGrid2.RowCount-1 do begin
		j:=0;
		while (j<StringGrid1.RowCount-1) 
			and (StringGrid1.Cells[1,j]<>StringGrid2.Cells[1,i]) 
				do  inc(j);
		if (j>=StringGrid1.RowCount-1) then begin
			inc(k);
			form3.StringGrid1.Rows[k].Text:=StringGrid2.Rows[i].Text;
		 end;
	end;

[San22Rus]

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

если таблицы не большие, то можно попробовать поиск "в лоб" (перебором)

Таблицы будут содержать не больше 1000 записей, пойдёт мне такой вариант? Я проверил, работает

[San22Rus]

Всё равно спасибо вам!

[San22Rus]

Такой вариант мне не подошёл, он выводит только первые 5 записей которых нет в одной из таблиц, а их может быть много

[Serge_Bliznykov]

Такой вариант мне не подошёл

ну, бывает.
хотя странно, в коде нет никаких ограничений.

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

во-первых, при чём здесь " нет в одной из таблиц"
код делает то, что Вы попросили:

в компонент StringGrid3 выводились те строки, которые есть в StrdingGrid2, но нет в StringGrid1

во-вторых, проверьте ваш StringGrid3 (на форме Form3) - сделайте ему вертикальный скроллбар -
может быть, там записей много, а Вы видите только первые 5.
кроме того, Вы уверены, что в гриде2 есть больше 5 строк, которых нет в грид1 ?!

давайте больше конкретики, больше шансов получить помощь.


p.s.

Таблицы будут содержать не больше 1000 записей, пойдёт мне такой вариант?

ну, это не очень большие значения.
ну, такие таблицы будут обрабатываться несколько секунд. Это можно ускорить усложнив код обработки.
Подойдёт ли Вам первый вариант по быстродействию, я не знаю, это же Вам решать, подходит или нет,
можно ожидать несколько секунд или надо быстрее

[San22Rus]

во-вторых, проверьте ваш StringGrid3 (на форме Form3) - сделайте ему вертикальный скроллбар -
может быть, там записей много, а Вы видите только первые 5.

Да нет, StringGrid растянутый (скрин выложу)

кроме того, Вы уверены, что в гриде2 есть больше 5 строк, которых нет в грид1 ?!

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

[San22Rus]

ну, такие таблицы будут обрабатываться несколько секунд. Это можно ускорить усложнив код обработки.

Мне вполне подойдёт, даже если придётся ждать

[Serge_Bliznykov]

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

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

[San22Rus]

Конечно, только вот архив у меня 4.14, а разрешено загружать файлы не более 3.6