Como comparar 2 arquivos se são iguais via delphi

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Código

Procedure TForm1.Button1Click(Sender: TObject);
var
filename1 : string;
filename2 : string;
begin
filename1 := Edit1.Text;
filename2 := Edit2.Text;
compfile(filename1, filename2);
showmessage('Veja o resultado no arquivo c:Tempdiff.txt');
end;

procedure tform1.compfile(filename1, filename2 : string);

var
f1 : system.textfile;
f2 : system.textfile;
diff : system.textfile;
buf1 : string;
buf2 : string;
l : integer;
begin
assignfile(f1, filename1);
assignfile(f2, filename2);
assignfile(diff, 'c:Tempdiff.txt');
reset(f1);
reset(f2);
rewrite(diff);
l := 1;
while not eof(f1) do
begin
readln(f1, buf1);
readln(f2, buf2);
if not (compstr(buf1, buf2) )then
begin
writeln(diff, 'line: '+ inttostr(l) + '-' + buf1);
writeln(diff, 'line: '+ inttostr(l) + '-' + buf2);
writeln(diff, ' ');
end;
inc(l);
end;
closefile(f1);
closefile(f2);
closefile(diff);
end;

function tform1.compstr(s1, s2 : string) : boolean;

var
i : integer;
btemp : boolean;
begin
btemp := true;
if (length(s1) <> length(s2)) then begin
btemp := false;
end{if}
else begin
for i:= 1 to length(s1) do begin
if (s1[i] <> s2[i]) then begin
btemp := false;
exit;
end;{if}
end;{for}
end;{else} result := btemp;

end;

Visualizar / inserir comentários

Beyond Compare é um utilitário de gerenciamento de dados que permite aos usuários comparar e reconciliar documentos, arquivos, pastas e até unidades de sistema inteiras de forma rápida e fácil. É um recurso extremamente útil, desenvolvido e desenvolvido pela Delphi. De acordo com o site Beyond Compare “Você pode comparar unidades e pastas inteiras em alta velocidade, verificando apenas os tamanhos e tempos modificados. Ou, verificar completamente cada arquivo com comparações byte a byte. Sites FTP, armazenamento em nuvem e arquivos zip são integrados perfeitamente, e filtros poderosos permitem que você limite o que vê apenas ao que está interessado. ” Além disso, oferece mesclagem de três maneiras, explicada como “A visualização de mesclagem do Beyond Compare permite combinar alterações de duas versões de um arquivo ou pasta em uma única saída. Sua abordagem inteligente permite aceitar rapidamente a maioria das alterações enquanto examina cuidadosamente os conflitos.” E oferece sincronização de pastas que é descrito como “Interface intuitiva de sincronização de pastas do Beyond Compare permite reconciliar diferenças em seus dados automaticamente.“