paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:59:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

aarre: read required package names

Browse Source 
git-svn-id: trunk@41696 -
This commit is contained in:
mattias 2013-06-12 18:05:06 +00:00
parent 53729efba4
commit e83d398385
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -615,6 +615,7 @@ end;
procedure TAPkgDependency.Load(XML: TXMLConfig; Path: string); procedure TAPkgDependency.Load(XML: TXMLConfig; Path: string);
begin begin
Name:=XML.GetValue(Path+'PackageName/Value','');
MaxVersion.Load(XML,Path+'MaxVersion/'); MaxVersion.Load(XML,Path+'MaxVersion/');
MaxVersionValid:=XML.GetValue(Path+'MaxVersion/Valid',false); MaxVersionValid:=XML.GetValue(Path+'MaxVersion/Valid',false);
MinVersion.Load(XML,Path+'MinVersion/'); MinVersion.Load(XML,Path+'MinVersion/');
@ -625,6 +626,7 @@ end;
procedure TAPkgDependency.Save(XML: TXMLConfig; Path: string); procedure TAPkgDependency.Save(XML: TXMLConfig; Path: string);
begin begin
XML.SetDeleteValue(Path+'PackageName/Value',Name,'');
MaxVersion.Save(XML,Path+'MaxVersion/'); MaxVersion.Save(XML,Path+'MaxVersion/');
XML.SetDeleteValue(Path+'MaxVersion/Valid',MaxVersionValid,false); XML.SetDeleteValue(Path+'MaxVersion/Valid',MaxVersionValid,false);
MinVersion.Save(XML,Path+'MinVersion/'); MinVersion.Save(XML,Path+'MinVersion/');