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

Converter: Improve saving and loading StringToStringTree to/from config.

Browse Source 
git-svn-id: trunk@26230 -
This commit is contained in:
juha 2010-06-21 11:08:24 +00:00
parent 52bf35cbe2
commit 88536343f0
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
converter/convertsettings.pas
View File

@ -146,9 +146,9 @@ var
i: Integer;
begin
Tree.Clear;
Cnt:=Config.GetValue(Path+'Count',0);
Cnt:=Config.GetValue(Path+'/'+'Count',0);
for i:=0 to Cnt-1 do begin
SubPath:=Path+'Item'+IntToStr(i)+'/';
SubPath:=Path+'/'+'Item'+IntToStr(i)+'/';
CurName:=Config.GetValue(SubPath+'Name','');
CurValue:=Config.GetValue(SubPath+'Value','');
Tree[CurName]:=CurValue;
@ -163,19 +163,20 @@ var
i, j: Integer;
SubPath: String;
begin
Config.SetDeleteValue(Path+'Count',Tree.Tree.Count,0);
Config.SetDeleteValue(Path+'/'+'Count',Tree.Tree.Count,0);
Node:=Tree.Tree.FindLowest;
i:=0;
while Node<>nil do begin
Item:=PStringToStringTreeItem(Node.Data);
SubPath:=Path+'Item'+IntToStr(i)+'/';
SubPath:=Path+'/'+'Item'+IntToStr(i)+'/';
Config.SetDeleteValue(SubPath+'Name',Item^.Name,'');
Config.SetDeleteValue(SubPath+'Value',Item^.Value,'');
Node:=Tree.Tree.FindSuccessor(Node);
inc(i);
end;
// Remove leftover items in case the list has become shorter.
for j:=i to i+10 do begin
SubPath:=Path+'Item'+IntToStr(j)+'/';
SubPath:=Path+'/'+'Item'+IntToStr(j)+'/';
Config.DeletePath(SubPath);
end;
end;