Subversion Repositories checksum-tools

Rev

Rev 8 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8 Rev 10
Line 169... Line 169...
169 
      TestFileName := existingFiles[i];
 169 
      TestFileName := existingFiles[i];
170 
      if not SameText(ExtractFileExt(TestFileName), '.sfv') and
 170 
      if not SameText(ExtractFileExt(TestFileName), '.sfv') and
171 
         not SameText(ExtractFileExt(TestFileName), '.md5') and
 171 
         not SameText(ExtractFileExt(TestFileName), '.md5') and
172 
         not SameText(TestFileName, 'Thumbs.db') then
 172 
         not SameText(TestFileName, 'Thumbs.db') then
173 
      begin
 173 
      begin
174 
        IstChecksum  := CalcFileCRC32(IncludeTrailingPathDelimiter(ADirectory) + TestFilename);
 174 
        IstChecksum  := csman.SingleFileChecksum(IncludeTrailingPathDelimiter(ADirectory) + TestFilename);
175 
        Memo4.Lines.Add(csman.MergeLine(TestFileName, IstChecksum));
 175 
        Memo4.Lines.Add(csman.MergeLine(TestFileName, IstChecksum));
176 
      end;
 176 
      end;
177 
    end;
 177 
    end;
178 
 
 178 
 
179 
    if (Memo2.Text = '') and (Memo3.Text = '') and (Memo4.Text = '') then
 179 
    if (Memo2.Text = '') and (Memo3.Text = '') and (Memo4.Text = '') then