Procedimiento que compara dos ficheros del disco

function CompararFicheros(const a : string; const b : string) : boolean;
var
f,g : file;
buf1,buf2 : array[1..2000] of byte;
i,leidof,leidog : integer;
todobien : boolean;
begin
        result:=true;
        assignfile(f,a);
        reset(f,1);
        assignfile(g,b);
        reset(g,1);
        if filesize(f)filesize(g)
        then result:=false
        else
        begin
                todobien:=true;
                leidof:=0;
                leidog:=0;
                while todobien do
                begin
                        blockread(f,buf1,sizeof(buf1),leidof);
                        blockread(g,buf2,sizeof(buf2),leidog);
                        if (leidof=0) or (leidog=0) or (leidofleidog)
                        then todobien:=false
                        else
                        for i:=1 to leidof do
                        if buf1[i]buf2[i] then
                        begin
                                result:=false;
                                todobien:=false;
                        end;
                end;
        end;
        closefile(g);
        closefile(f);
end;

Subiendo el valor que define el tamaño de los buffers de lectura se puede acelerar el proceso, pero prefiero dejarlo asi para ahorrar memoria... pero claro todo va en gustos, para los que tengan prisa, subid el valor :D .

El codigo en si no tiene gran cosa, es abrir dos ficheros simultaneamente y leerlos en bloques de tamaño igual al tamaño de los buffers. Primero comparo el tamaño para asegurar que son iguales, ya que si no es asi, no tiene sentido compararlos: seran diferentes.

A destacar un par de cosas: no tiene chequeo de si los ficheros existen o no, y que a efectos de comparacion solo usa el contenido de los ficheros, pero no las fechas,atributos, etc

Otras entradas de la web que podrian interesarte:

• (498)  Nov 30   DELPHI   Salida de numeros decimales limitada, al estilo de los dos puntos (:) en los writeln del turbo pascal
• (891)  Sep 26  LINUX AWK  Saber cuanto ocupan en el disco determinado tipo de ficheros
• (594)  Nov 10   DELPHI   Distancia entre dos numeros
• (495)  Nov 30   DELPHI   Procedimiento que ordena una lista de cadenas (los lines de los richedit, meno, listbox, ...) usando el algoritmo de la burbuja
• (500)  Nov 30   DELPHI   Sumar ficheros (copiar uno al final de otro existente)