Permalink
Browse files

typo: remove var LongPathOveride and use LongPathOverride

  • Loading branch information...
darealshinji committed Jan 21, 2019
1 parent 82adefc commit 8b8f2cdce37dfcaa06b3f433059c7517f8a849d1
Showing with 3 additions and 3 deletions.
  1. +3 −3 unit2.pas
@@ -547,7 +547,7 @@ TMainForm = class(TForm)
tmp : integer;

{$IFDEF WINDOWS}
// For coping better with 260 MAX_PATH limits of Windows. Instead we invoke Unicode
// For copying better with 260 MAX_PATH limits of Windows. Instead we invoke Unicode
// variant of FindAllFiles by using '\\?\' and '\\?\UNC\' prefixes. LongPathOverride
// will always either be '\\?\' or '\\?\UNC\'

@@ -2531,7 +2531,7 @@ function TMainForm.ComputeWhatHashesAreMissing(aHashList1, aHashList2 : TFPHashL
procedure TMainForm.btnCompareClick(Sender: TObject);

var
FolderA, FolderB, LongPathOveride, HashVal, StringToWrite, RogueHash : string;
FolderA, FolderB, HashVal, StringToWrite, RogueHash : string;

slFileListA, slFileListB, slMissingHashes : TStringList;

@@ -2600,7 +2600,7 @@ procedure TMainForm.btnCompareClick(Sender: TObject);
// If so, adjust LongPathOverride for UNC mode and append the UNC prefix to
// ensure that the 32K path length limit and the UNC rules are adhered to

LongPathOveride := '\\?\';
LongPathOverride := '\\?\';

if (Pos('\\', FolderA) > 0) or (Pos('\\', FolderB) > 0) then
begin

0 comments on commit 8b8f2cd

Please sign in to comment.