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

combined use of FRootNode and FRootNodePath (fixes #1947)

Browse Source 
git-svn-id: trunk@9053 -
This commit is contained in:
vincents 2006-03-30 12:38:01 +00:00
parent 187be8e445
commit f1760e1ed2
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/xmlpropstorage.pas
View File

@ -36,7 +36,6 @@ type
FCount: Integer;
FFileName: String;
FXML: TPropStorageXMLConfig;
FRootNode: String;
FRootNodePath: String;
protected
Function GetXMLFileName: string; virtual;
@ -51,7 +50,7 @@ type
Procedure DoEraseSections(const ARootSection: String);override;
public
property FileName: String Read FFileName Write FFileName;
property RootNodePath: String Read FRootNode Write FRootNodePath;
property RootNodePath: String Read FRootNodePath Write FRootNodePath;
end;
TXMLPropStorage = class(TCustomXMLPropStorage)
@ -122,8 +121,8 @@ end;
function TCustomXMLPropStorage.RootSection: String;
begin
If (FRootNode<>'') then
Result:=FRootNode
If (FRootNodePath<>'') then
Result:=FRootNodePath
else
Result:=inherited RootSection;
Result:=FixPath(Result);