Вот, собралась процедурня, проверить только не смог, запутался в ссылках
"исходные" файлы должны лежать в папке "input" рядом с екзешником, а результат прилетит в output.txt
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
srch: TSearchRec;
sl1, sl2, sl3: TStrings;
i, b, c, d: integer;
cnt: array of integer;
begin
sl1:= TStringList.Create;
sl2:= TStringList.Create;
sl3:= TStringList.Create;
d:= 0;
if FindFirst(ExtractFileDir(ParamSTR(0)) + '\input\*.*',
faAnyFile-faDirectory, srch)=0 then
repeat
sl2.LoadFromFile(ExtractFileDir(ParamSTR(0)) + '\input\'+ srch.Name);
sl1.AddStrings(sl2);
inc(d);
until FindNext(srch) <> 0;
FindClose(srch);
sl2.Clear;
sl2.Add(sl1[0]);
for i := 1 to sl1.Count-1 do
begin
c:= 0;
for b := 0 to sl2.Count-1 do
if sl1[i] = sl2[b] then c:=1;
if c = 0 then sl2.Add(sl1[i]);
end;
SetLength(cnt, sl2.Count);
if FindFirst(ExtractFileDir(ParamSTR(0)) + '\input\*.*',
faAnyFile-faDirectory, srch)=0 then
repeat
sl1.LoadFromFile(ExtractFileDir(ParamSTR(0)) + '\input\'+ srch.name);
sl3.Clear;
sl3.Add(sl1[0]);
for i := 1 to sl1.Count-1 do
begin
c:= 0;
for b := 0 to sl3.Count-1 do
if sl1[i] = sl3[b] then c:=1;
if c = 0 then sl3.Add(sl1[i]);
end;
for i := 0 to sl2.Count-1 do
begin
c:= 0;
for b := 0 to sl3.Count-1 do
if sl3[b] = sl2[i] then c:=1;
if c = 1 then inc(cnt[i]);
end;
until FindNext(srch) <> 0;
FindClose(srch);
sl3.Clear;
for i := 0 to sl2.Count-1 do
if cnt[i] = d then sl3.Add(sl2[i]);
sl3.SaveToFile('output.txt');
sl1.Free;
sl2.Free;
sl3.Free;
end;
алгоритм предположительно, такой: сначало в общий список собираются все уникальные строки из всех файлов, по-одной, и заодно подсчитывается кол-во файлов, а затем ещё раз просматриваются опять же, по-одному файлы на предмет наличия в них уникальных строк из общего списка и если, такие в этом файле попадаются, то увеличивается счетчик данной ссылки, а в конце тупо просматривается счётный массив и если, сносок = кол-ву файлов, то занести в отдельный список эту строку. Так задумано, не знаю правда, работает ли, проверьте :-)