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

Converter: Remove old items from config if they are removed from StringTree.

Browse Source 
git-svn-id: trunk@25966 -
This commit is contained in:
juha 2010-06-08 12:53:48 +00:00
parent 9a1b70b22a
commit 666532d672
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
converter/convertsettings.pas
View File

@ -159,7 +159,7 @@ procedure SaveStringToStringTree(Config: TConfigStorage; const Path: string;
var var
Node: TAVLTreeNode; Node: TAVLTreeNode;
Item: PStringToStringTreeItem; Item: PStringToStringTreeItem;
i: Integer; i, j: Integer;
SubPath: String; SubPath: String;
begin begin
Config.SetDeleteValue(Path+'Count',Tree.Tree.Count,0); Config.SetDeleteValue(Path+'Count',Tree.Tree.Count,0);
@ -173,6 +173,10 @@ begin
Node:=Tree.Tree.FindSuccessor(Node); Node:=Tree.Tree.FindSuccessor(Node);
inc(i); inc(i);
end; end;
for j:=i to i+10 do begin
SubPath:=Path+'Item'+IntToStr(j)+'/';
Config.DeletePath(SubPath);
end;
end; end;
constructor TConvertSettings.Create(const ATitle: string); constructor TConvertSettings.Create(const ATitle: string);