[Alegun]

Вот, собралась процедурня, проверить только не смог, запутался в ссылках "исходные" файлы должны лежать в папке "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;

алгоритм предположительно, такой: сначало в общий список собираются все уникальные строки из всех файлов, по-одной, и заодно подсчитывается кол-во файлов, а затем ещё раз просматриваются опять же, по-одному файлы на предмет наличия в них уникальных строк из общего списка и если, такие в этом файле попадаются, то увеличивается счетчик данной ссылки, а в конце тупо просматривается счётный массив и если, сносок = кол-ву файлов, то занести в отдельный список эту строку. Так задумано, не знаю правда, работает ли, проверьте :-)

[corzh]

Спасибо огромное!!!
Все работает на ура!!!