Самое быстрое сравнение текстовых файлов

[blblbl-org]

Товарищи, есть вопрос:

есть 2 текстовых файла, по 10 мегабайт
как максимально быстро сравнить строки этих файлов с выводом результата в третий файл?

т.е.

"файл 1":

а1
б1
в1

"файл 2":
а1
б2
в1

в "файл 3" тогда будет записано
б2

на данный момент делаю так:

procedure TForm1.Button1Click(Sender: TObject);
begin
List1 := TStringList.Create;
List2 := TStringList.Create;
ListOut := TStringList.Create;

List1.LoadFromFile('c:\1.txt');
List2.LoadFromFile( 'c:\2.txt');

 for i := 0 to List1.Count - 1 do
 begin
  if pos(List1[ i ], List2.Text) = 0 then
    ListOut.Add(List1[ i ]);
 end;
 ListOut.SaveToFile('c:\3.txt');
  showmessage('OK');
  end;

но это как то нереально долго...
если "файл 1" = 8мб, а "файл 2" = 1мб, то обработка занимает больше часа... На intel core i3 с 4гб

[s-andriano]

Загрузить оба файла как бинарные, сравнить в памяти, сформировать образ выходного файла в памяти, вывести файл на диск как бинарный.
Это все займет менее секунды.

[blblbl-org]

а поподробнее ??

[Пепел Феникса]

раз уже есть привязка к тому что он текстовый(строки), то кроме как построчно не получится никак.

[Человек_Борща]

Почему? Любые данные можно рассмотреть как набор байт.
Главное привести TXT к одной кодировке, иначе побайтное стравнение будет бессмысленно и беспощадно.

Если не хотите хардкора, то TFileStream,TMemoryStream вам в помощь.
Если же хотите дейтвительно разобраться, и даже сделать быстрее, то начинка выше упомянутых классов вам в помощь.

[Пепел Феникса]

Человек_Борща, придется искать границы строк, из низ образуя блоки для сравнения.

[Человек_Борща]

зачем? Это же байты!

[Serge_Bliznykov]

Сообщение от Человек_Борща

зачем? Это же байты!

вот именно, что БАЙТЫ. А в исходной задачи нужно сравнивать СТРОКИ!
Вы исходное условие внимательно читали?
например, первый файл:
sss
dd
bb

второй файл
sss
ggggggggggggg
bb

программа сравнения должна (по мнению TC) выдать в третий файл
ggggggggggggg

А что выдаст ваше побайтовое сравнение?!

p.s. я бы взял обычные TStringList, загрузил туда исходные файлы и банально в цикле сравнивал! 10Мб - это детский сад!

Правда, в задачах нахождения отличия между текстовыми файлами есть ряд нюансов, учитывать их или нет зависит от TC (точнее от задачи, которую он решает).

[Пепел Феникса]

не всяк байт символом является.

[BDA]

Если задачка "для себя", то можно попробовать воспользоваться программой comp (win+r -> cmd -> comp /? для просмотра синтаксиса).