Сравнение 2х файлов

[Sibedir]

Это продолжение не моей темы: http://www.programmersforum.ru/showthread.php?t=273606
Суть:

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

Суть программы в том, чтобы она брала из 1 файла список строк и проверяла строки на совпадение с 2ым файлом. Если строка из первого файла не встречается во втором то вывести на листбокс.

Программирую сейчас редко, вот и стало интересно.

Сравнение 2х файлов.zip - релиз #1

Вобщем, качаем, смотрим, ругаем ... подсказываем.

Для модераторов: Возможно это нужно в обсуждение или в алгоритмы, но я только по Delphi, так что не решил куда. Перенесите, пожалуйста, если нужно

[Sibedir]

О-о-о!!!
Сделал из блохи слона и всё получилось

[Stilet]

Шож так сложно? Двумя TStringList это делается для текстовиков и сверкой CRC для бинарок.

[Sibedir]

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

Шож так сложно? Двумя TStringList это делается для текстовиков и сверкой CRC для бинарок.

Ну... При больших объемах TStringList значительно отстает.

[Stilet]

Ниче не знаю. Я им 2GB обрабатывал (логи такие были) - полет норм, посадка тоже.

[Sibedir]

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

Ниче не знаю. Я им 2GB обрабатывал (логи такие были) - полет норм, посадка тоже.

Покажи код Пожа-а-алуйста

Сравнение 2х файлов v4.0.zip
Гибрид рулит

[Sibedir]

Допёрло.
Удаление не нужно. Завтра отпишусь.

[Stilet]

Покажи код Пожа-а-алуйста

Увы. Он остался на старой работе... Так то при желании могу новый написать, но смысл...

[Аватар]

И отстает?

  xList1:=TStringList.Create;
  xList2:=TStringList.Create;
  xList3:=TStringList.Create;
  xList1.Sorted:=True;
  xList1.LoadFromFile(ExtractFilePath (Application.ExeName) + '1.txt');
  xList2.LoadFromFile(ExtractFilePath (Application.ExeName) + '2.txt');
  for i:=0 to xList2.Count-1 do
    if not xList1.Find(xList2.Strings[i],j) then xList3.Add(xList2.Strings[i]);

[Luuzuk]

Я им 2GB обрабатывал (логи такие были) - полет норм, посадка тоже

У мсье безлимитная оперативная память?