DEL: Remove redundant Path assignments.

This commit is contained in:
cobines 2010-01-25 22:22:24 +00:00
commit 2cfa7fd85f
5 changed files with 0 additions and 15 deletions

View file

@ -163,9 +163,6 @@ begin
FFullFilesTree,
FStatistics.TotalFiles,
FStatistics.TotalBytes); // gets full list of files (recursive)
// Make filenames relative to current directory.
FFullFilesTree.Path := SourceFiles.Path;
end;
procedure TWcxArchiveCopyInOperation.MainExecute;

View file

@ -116,9 +116,6 @@ begin
FStatistics.TotalFiles,
FStatistics.TotalBytes); // gets full list of files (recursive)
// Make filenames relative to current directory.
FFullFilesTreeToCopy.Path := SourceFiles.Path;
if Assigned(FOperationHelper) then
FreeAndNil(FOperationHelper);

View file

@ -114,9 +114,6 @@ begin
FStatistics.TotalBytes); // gets full list of files (recursive)
end;
// Make filenames relative to current directory.
FFullFilesTreeToCopy.Path := SourceFiles.Path;
if Assigned(FOperationHelper) then
FreeAndNil(FOperationHelper);

View file

@ -114,9 +114,6 @@ begin
FStatistics.TotalBytes); // gets full list of files (recursive)
end;
// Make filenames relative to current directory.
FFullFilesTreeToCopy.Path := SourceFiles.Path;
if Assigned(FOperationHelper) then
FreeAndNil(FOperationHelper);

View file

@ -115,9 +115,6 @@ begin
FStatistics.TotalBytes); // gets full list of files (recursive)
end;
// Make filenames relative to current directory.
FFullFilesTreeToCopy.Path := SourceFiles.Path;
if Assigned(FOperationHelper) then
FreeAndNil(FOperationHelper);