paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-19 15:05:57 +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; FCount: Integer;
FFileName: String; FFileName: String;
FXML: TPropStorageXMLConfig; FXML: TPropStorageXMLConfig;
FRootNode: String;
FRootNodePath: String; FRootNodePath: String;
protected protected
Function GetXMLFileName: string; virtual; Function GetXMLFileName: string; virtual;
@ -51,7 +50,7 @@ type
Procedure DoEraseSections(const ARootSection: String);override; Procedure DoEraseSections(const ARootSection: String);override;
public public
property FileName: String Read FFileName Write FFileName; property FileName: String Read FFileName Write FFileName;
property RootNodePath: String Read FRootNode Write FRootNodePath; property RootNodePath: String Read FRootNodePath Write FRootNodePath;
end; end;
TXMLPropStorage = class(TCustomXMLPropStorage) TXMLPropStorage = class(TCustomXMLPropStorage)
@ -122,8 +121,8 @@ end;
function TCustomXMLPropStorage.RootSection: String; function TCustomXMLPropStorage.RootSection: String;
begin begin
If (FRootNode<>'') then If (FRootNodePath<>'') then
Result:=FRootNode Result:=FRootNodePath
else else
Result:=inherited RootSection; Result:=inherited RootSection;
Result:=FixPath(Result); Result:=FixPath(Result);