Subversion Repositories checksum-tools

Compare Revisions

Regard whitespace Rev 16 → Rev 17

/trunk/Windows/Unit1.pas
88,6 → 88,8
ADirectory: string;
originalFilenameFull: string;
begin
if Copy(aChecksumFile, 2, 1) = ':' then aChecksumFile := '\\?\' + aChecksumFile; // To allow long filenames
 
if ExtractFileName(aChecksumFile) <> DUMMY_FILE then
begin
Inc(CheckSumFileCount);
95,7 → 97,7
 
if cbVerbose.Checked then
begin
Form1.Memo1.Lines.Add('Check: ' + aChecksumFile);
Form1.Memo1.Lines.Add('Check: ' + StringReplace(aChecksumFile,'\\?\','',[]));
end;
 
Result := seOK;
121,12 → 123,11
expectedChecksum := TChecksum(slFile.Objects[i]).checksum;
 
originalFilenameFull := ADirectory + originalFilename;
 
if not FileExists(originalFilenameFull) then
begin
if cbWarnVanishedFile.Checked then
begin
Form1.Memo1.Lines.Add('FILE VANISHED: ' + originalFilenameFull);
Form1.Memo1.Lines.Add('FILE VANISHED: ' + StringReplace(originalFilenameFull,'\\?\','',[]));
Result := SevMax(Result, seCritical);
end;
end
135,7 → 136,7
begin
if cbVerbose.Checked then
begin
Form1.Memo1.Lines.Add('OK: ' + originalFilenameFull + ' = ' +
Form1.Memo1.Lines.Add('OK: ' + StringReplace(originalFilenameFull,'\\?\','',[]) + ' = ' +
expectedChecksum);
end;
Result := SevMax(Result, seOK);
144,7 → 145,7
begin
if cbWarnChecksumMismatch.Checked then
begin
Form1.Memo1.Lines.Add('CHECKSUM MISMATCH: ' + originalFilenameFull +
Form1.Memo1.Lines.Add('CHECKSUM MISMATCH: ' + StringReplace(originalFilenameFull,'\\?\','',[]) +
' <> ' + expectedChecksum);
Result := SevMax(Result, seCritical);
end;
168,7 → 169,7
if cbWarnChecksumFileMissing.Checked then
begin
Form1.Memo1.Lines.Add('NEW FILE WITHOUT CHECKSUM FILE: ' +
fullfilename);
StringReplace(fullfilename,'\\?\','',[]));
Result := SevMax(Result, seWarning);
end;
end
177,7 → 178,7
if cbWarningMissingChecksumFileEntry.Checked then
begin
Form1.Memo1.Lines.Add('NEW FILE WITHOUT CHECKSUM ENTRY: ' +
fullfilename);
StringReplace(fullfilename,'\\?\','',[]));
Result := SevMax(Result, seWarning);
end;
end;