paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 22:18:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

aarre: stream pkg list

Browse Source 
git-svn-id: trunk@38482 -
This commit is contained in:
mattias 2012-09-02 14:17:56 +00:00
parent 4bac432c75
commit 0219524026
2 changed files with 47 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
components/aarre/src/aarrepkglist.pas
View File

@ -34,7 +34,7 @@ unit AarrePkgList;
interface
uses
Classes, SysUtils, Laz2_XMLCfg, laz2_DOM, LazLogger;
Classes, SysUtils, Laz2_XMLCfg, laz2_DOM, LazLogger, laz2_XMLWrite;
type
TAPackageType = (
@ -159,6 +159,9 @@ type
procedure Clear;
procedure Load(XML: TXMLConfig; Path: string); virtual;
procedure Save(XML: TXMLConfig; Path: string); virtual;
procedure SaveToStream(s: TStream);
procedure LoadFromStream(s: TStream);
function AsString: string;
procedure Add(Item: TAarrePkgListItem);
procedure Insert(Index: integer; Item: TAarrePkgListItem);
procedure Remove(Item: TAarrePkgListItem);
@ -453,6 +456,47 @@ begin
end;
end;
procedure TAarrePkgList.SaveToStream(s: TStream);
var
xml: TXMLConfig;
begin
xml:=TXMLConfig.Create(nil);
try
Save(XML,'aarre');
xml.WriteToStream(s);
finally
xml.Free;
end;
end;
procedure TAarrePkgList.LoadFromStream(s: TStream);
var
xml: TXMLConfig;
begin
xml:=TXMLConfig.Create(nil);
try
xml.ReadFromStream(s);
Load(XML,'aarre');
finally
xml.Free;
end;
end;
function TAarrePkgList.AsString: string;
var
ms: TMemoryStream;
begin
ms:=TMemoryStream.Create;
try
SaveToStream(ms);
SetLength(Result,ms.Size);
if Result<>'' then
Move(ms.Memory^,Result[1],length(Result));
finally
ms.Free;
end;
end;
procedure TAarrePkgList.Add(Item: TAarrePkgListItem);
begin
if Item=nil then
@ -472,9 +516,7 @@ end;
procedure TAarrePkgList.Delete(Index: integer);
begin
debugln(['TAarrePkgList.Delete AAA1 ',Index,' ',dbgs(fItems[Index])]);
TObject(fItems[Index]).Free;
debugln(['TAarrePkgList.Delete AAA2 ',Index]);
fItems.Delete(Index);
end;

2
components/aarre/tools/aarreupdatelist.lpr
View File

@ -101,6 +101,8 @@ begin
ScanDirectory(Directory);
WriteLn(List.AsString);
// stop program loop
Terminate;
end;