FIX: Cloning TFile properties.

This commit is contained in:
cobines 2009-07-17 12:18:38 +00:00
commit d130ccf387
2 changed files with 1 additions and 1 deletions

View file

@ -166,7 +166,6 @@ begin
AFile.FPath := FPath;
AFile.FExtension := FExtension;
AFile.FNameNoExt := FNameNoExt;
AFile.FProperties := FProperties;
end;
end;

View file

@ -189,6 +189,7 @@ begin
FSize := Self.FSize.Clone;
FAttributes := Self.FAttributes.Clone;
FModificationTime := Self.FModificationTime.Clone;
AssignProperties;
end;
end;
end;