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

[jkpro]

Здраствуйте программисты, меня интересует как в делфи сделать программу которая:
1. Сравнивала файлы по содержимому (2 тхт файла)
2. Если небыло разницы просто должна запустить другую программу.
3. В случае разницы в файлах, она начала запустить другую прогу.

[Мэс]

можно просто тупо сравнить, считывая строки из файлов - например так:

function CompareFiles() : boolean;
var
  f1, f2 : TextFile;
  s1, s2 : string;
  res : boolean;
begin
  AssignFile(f1, 'a.txt');
  AssignFile(f2, 'b.txt');
  Reset(f1);
  Reset(f2);
  res := true;
  while (not(EoF(f1))) do
  begin
    ReadLn(f1, s1);
    ReadLn(f2, s2);
    if (s1 <> s2) then
    begin
      res := false;
      break;
    end;
  end;
  if (res) then
  begin
    Reset(f1);
    Reset(f2);
    while (not(EoF(f2))) do
    begin
      ReadLn(f1, s1);
      ReadLn(f2, s2);
      if (s1 <> s2) then
      begin
        res := false;
        break;
      end;
    end;
  end;
  CloseFile(f1);
  CloseFile(f2);
  Result := res;
end;

[jkpro]

Мэс покажи где я должен нписать условие

[Мэс]

Ну например при нажатии кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (CompareFiles()) then
     .... {файлы совпадают}
  else
     ....{файлы не совпадают}
end;

или при создании формы:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if (CompareFiles()) then
     .... {файлы совпадают}
  else
     ....{файлы не совпадают}
end;

все зависит от логики работы твоей проги.Удачи

[Serge_Bliznykov]

я бы ещё перед проверкой в цикле добавил проверку на совпадение размеров файлов:

  Reset(f1);
  Reset(f2);
  if (FileSize(f1)=0) or (FileSize(f1)<>FileSize(f2)) then
  begin
     CloseFile(f1);
     CloseFile(f2);
     Result := false;
     Exit;
  end;
  res := true;

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

А вот проверка на совпадение размера может РЕЗКО ускорить выполнение процедуры сравнения! особенно для больших файлов...

[SNUPY]

И обощая это типо вот так:

Function CompareFiles(File1Name, File2Name:string):boolean;
var
  f1,f2:textFile;\
  s1,s2:string;
begin
  If not (FileExists(File1Name) and FileExists(File1Name)) then
  begin
    result:=false;
    exit;
  end;
  Try
     AssignFile(f1, File1Name);
     reset(f1);
     Try
       AssignFile(f2, File2Name);
       reset(f2);
       If (FileSize(f1)=0) or (FileSize(f1)<>FileSize(f2)) then
       begin
         Result:=false;
         exit;//скока помню по любому должны сработать Finally =)))
       end;
       While not(Eof(f1) or Eof(f1)) Do
       begin
         Readln(f1,s1);
         Readln(f2,s2);
         if s1<>s2 then
         begin
           result:=false;
           exit;
         end;
       end;
       result:=true;
     Finally//будем извращенцами =))))
       FileClose(F2);
     end;
   Finally
     FileClose(F1);
   end;  
end;

[Stilet]

Если господа не против предложу свой вариант сравнения файлов по содержимому, как мне думается наиболее быстрый:

var q,w:String;a,s:file of byte;
begin
 assignfile(a,'file1.txt');reset(a);
 assignfile(s,'file2.txt');reset(s);
 SetLength(q,FileSize(a));
 SetLength(w,FileSize(s));
 blockread(a,q[1],length(q));
 blockread(s,w[1],length(w));
 if q=w then write('ok') else write('no');
 CloseFile(a);CloseFile(s);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Если смысл неясен могу пояснить.