CODE
program compare;
uses
SysUtils;
{$APPTYPE CONSOLE}
var i : longint;
f1,f2 : file of char;
c,d : char;
begin
assign(f1,'C:\file1.avi');
reset(f1);
assign(f2,'C:\file2.avi');
reset(f2);
while not eof(f1) do
begin
i:=i+1;
read(f1,c);
read(f2,d);
if c<>d then
begin
writeln(ошибка в байте: ',i,'.');
readln;
halt
end
end;
if (filesize(f1)<>filesize(f2)) or (NOT (eof(f1))) or (NOT (eof(f2))) then
begin
writeln('ошибка в размерах фалов.');
readln;
halt
end;
close(f1);
close(f2);
write('файлы идентичны.')
readln;
end.
uses
SysUtils;
{$APPTYPE CONSOLE}
var i : longint;
f1,f2 : file of char;
c,d : char;
begin
assign(f1,'C:\file1.avi');
reset(f1);
assign(f2,'C:\file2.avi');
reset(f2);
while not eof(f1) do
begin
i:=i+1;
read(f1,c);
read(f2,d);
if c<>d then
begin
writeln(ошибка в байте: ',i,'.');
readln;
halt
end
end;
if (filesize(f1)<>filesize(f2)) or (NOT (eof(f1))) or (NOT (eof(f2))) then
begin
writeln('ошибка в размерах фалов.');
readln;
halt
end;
close(f1);
close(f2);
write('файлы идентичны.')
readln;
end.
Но это тупое сравнение, по-моему оно длилось около 1.5 часа! Ясно дело есть быстрее, так как если копировать файл размером 100 Мб из одной папки в другую, то это занимает секунды. Пожалуйста скажите как написать программу сравнивающую два файла быстрее. Или функцию, если такая есть!
