paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 08:20:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

cody: dictionary: zip

Browse Source 
git-svn-id: trunk@33501 -
This commit is contained in:
mattias 2011-11-13 01:02:01 +00:00
parent a3046ac01d
commit 260f012bb3
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/codetools/ide/unitdictionary.pas
View File

@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, AVL_Tree, BasicCodeTools, FileProcs, CodeToolsStructs,
FindDeclarationCache, CodeToolManager, CodeCache;
FindDeclarationCache, CodeToolManager, CodeCache, zstream;
const
UDFileVersion = 1;
@ -442,15 +442,23 @@ end;
procedure TUnitDictionary.SaveToFile(Filename: string);
var
ms: TMemoryStream;
UncompressedMS: TMemoryStream;
cs: Tcompressionstream;
CompressedMS: TMemoryStream;
begin
ms:=TMemoryStream.Create;
UncompressedMS:=TMemoryStream.Create;
CompressedMS:=TMemoryStream.Create;
cs:=Tcompressionstream.create(cldefault,CompressedMS);
try
SaveToStream(ms);
ms.Position:=0;
ms.SaveToFile(Filename);
SaveToStream(UncompressedMS);
UncompressedMS.Position:=0;
cs.CopyFrom(UncompressedMS,UncompressedMS.Size);
CompressedMS.Position:=0;
CompressedMS.SaveToFile(Filename);
finally
ms.Free;
cs.Free;
UncompressedMS.Free;
CompressedMS.Free;
end;
end;
@ -544,7 +552,6 @@ begin
AVLNode:=FUnitsByFilename.FindSuccessor(AVLNode);
end;
finally
UnitID.Free;
end;