Подсчитать количество несовпадений в файлах c выводом в Label

[nikitin.leha-201]

Добрый вечер , всем присутствующим !

В заголовке темы, в принципе суть проблемы описана.
Программа для сравнения файлов, на совпадения, или несовпадения.
Ну и ещё некоторые функции, ну не это главное.
Всё в программе реализована, всё работает как надо.
Но есть один момент, который не удаётся реализовать.
На данный момент программа сверяет файлы и если есть хоть одно несовпадение, программа оповещает пользователя ( что файлы не <>).
Даже, если расхождения в один байт.
Но вот как подсчитать и сделать вывод в Label, или ShowMessage(' '); о количестве несовпадений.
Скажем так : количество несовпадений 2 и.т.д
Прошу помощи зала!
Пример кода :

var
A: array  of Byte;
B: array  of Byte;
f: TFileStream;
j,i:integer;
s,G:string;
D1,D2: Word;
begin

with OpenDialog1 do
if Execute then
begin
F:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead or fmShareDenyNone);
begin
Label1.Caption:=ExtractFileName(OpenDialog1.FileName);
Label2.Caption:= 'Size :'+' ' +IntToStr(f.Size)+ ' ' + ' '+'Byte';
F .Position:=$0;
SetLength(s, F.Size);
F.Read(s[1], length(s));
if Length(s) = 0 then SetLength(s, 1);
SetLength(s, Length(s) + 1);
for j:=0 to F.size do s[1]:=s[j];
end;
begin

.....
.......

end;

begin
.......
end;

begin
if s <> G then
begin
showMessage('Файлы неравны и  есть различия в файлах  ! ');
end
else
begin
showMessage('Файлы равны и различий нет ! ');
end;
end;
end;
end;
end;
F.Free;
end;
end;
end.

[Аватар]

Файл1: Подсчитать количество несовпадений в файлах
Файл2: 1Подсчитать количество несовпадений в файлах
Сколько не совпадений?

[nikitin.leha-201]

Сообщение от Аватар

Файл1: Подсчитать количество несовпадений в файлах
Файл2: 1Подсчитать количество несовпадений в файлах
Сколько не совпадений?

Да, я понял что надо подсчитать циклом, но в том то и дело что не пойму как...

[nikitin.leha-201]

Сообщение от Аватар

Файл1: Подсчитать количество несовпадений в файлах
Файл2: 1Подсчитать количество несовпадений в файлах
Сколько не совпадений?

Да, я понимаю что надо подсчитать количество несовпадений, но вот что то в тупик зашёл, два буфера s и g два файла загружаются в потоке, один за другим, по нажатию кнопки. А вот как реализовать, понимаю что в цикле надо, но вот зашёл в тупик....

[evg_m]

это опять задание от вашего руководителя кружка программирования?

понимаю что в цикле надо, но вот зашёл в тупик....

одним( и даже двумя) циклами не обойдешься.
сначала надо ПРИДУМАТЬ(или понять) алгоритм сравнения и подсчета на русском языке, а уж потом переводить этот алгоритм на другой язык(Pascal).
http://www.gunsmoker.ru/2011/01/blog-post.html
про комментарии и псевдокод.

по поводу "что придумать" можете ознакомиться с возможными вариациями.
http://algolist.manual.ru/search/lcs/index.php

[nikitin.leha-201]

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

это опять задание от вашего руководителя кружка программирования?

одним( и даже двумя) циклами не обойдешься.
сначала надо ПРИДУМАТЬ(или понять) алгоритм сравнения и подсчета на русском языке, а уж потом переводить этот алгоритм на другой язык(Pascal).
http://www.gunsmoker.ru/2011/01/blog-post.html
про комментарии и псевдокод.

по поводу "что придумать" можете ознакомиться с возможными вариациями.
http://algolist.manual.ru/search/lcs/index.php

Всё, вчера разобрались на одном форуме пример был, всё удачно получилось да, согласен задача не из лёгких оказалась, но благо пример удачный нашли и удалось реализовать. Спасибо всем откликнувшимся !

P.S

Нет, это задание не для кружка, это так сказать для саморазвития.
Евгений, Вы не обижайтесь пожалуйста, но я вот что скажу, когда нечего сказать, или нет возможности и знаний показать спрасившему человеку.
Лучше промолчать, ей Богу ! Ваши какие то намёки и ссылки совсем не уместны и к чему они тоже не понятно. А давать ссылки (переводя стрелки ) может и дрессированное шимпанзе в цирке ! Это не показатель профессионализма. Всё просто , в этой жизни, можешь помоги, покажи, не можешь просто промолчи или пройди мимо..... Ещё раз спасибо и прошу не обижаться .

[Alex11223]

Сообщение от nikitin.leha-201

можешь помоги, покажи

Вы неправильно понимаете что значит "помочь".
Если вам просто скажут как решить эту задачу, то вряд ли это сильно продвинет вас в изучении программирования, скорее всего вы снова обратитесь за "помощью" на следующей же задаче, даже если она не сильно сложнее первой.

Или вы предлагаете другим людям все время "ловить рыбу" за вас?