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

MG: added clear and deletepath

Browse Source 
git-svn-id: trunk@3383 -
This commit is contained in:
lazarus 2002-10-01 09:09:07 +00:00
parent e104598666
commit f3d8ce7792
1 changed files with 54 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
components/codetools/laz_xmlcfg.pas
View File

@ -53,9 +53,11 @@ type
doc: TXMLDocument;
FModified: Boolean;
procedure Loaded; override;
function FindNode(const APath: String): TDomNode;
public
constructor Create(const AFilename: String);
destructor Destroy; override;
procedure Clear;
procedure Flush; // Writes the XML file
function GetValue(const APath, ADefault: String): String;
function GetValue(const APath: String; ADefault: Integer): Integer;
@ -63,6 +65,7 @@ type
procedure SetValue(const APath, AValue: String);
procedure SetValue(const APath: String; AValue: Integer);
procedure SetValue(const APath: String; AValue: Boolean);
procedure DeletePath(const APath: string);
property Modified: Boolean read FModified;
published
property Filename: String read FFilename write SetFilename;
@ -93,6 +96,21 @@ begin
inherited Destroy;
end;
procedure TXMLConfig.Clear;
var
cfg: TDOMElement;
begin
// free old document
doc.Free;
// create new document
doc := TXMLDocument.Create;
cfg :=TDOMElement(doc.FindNode('CONFIG'));
if not Assigned(cfg) then begin
cfg := doc.CreateElement('CONFIG');
doc.AppendChild(cfg);
end;
end;
procedure TXMLConfig.Flush;
begin
if Modified then
@ -200,6 +218,15 @@ begin
SetValue(APath, 'False');
end;
procedure TXMLConfig.DeletePath(const APath: string);
var
Node: TDomNode;
begin
Node:=FindNode(APath);
if (Node=nil) or (Node.ParentNode=nil) then exit;
Node.ParentNode.RemoveChild(Node);
end;
procedure TXMLConfig.Loaded;
begin
inherited Loaded;
@ -207,6 +234,30 @@ begin
SetFilename(Filename); // Load the XML config file
end;
function TXMLConfig.FindNode(const APath: String): TDomNode;
var
Child: TDOMNode;
i: Integer;
NodePath: String;
begin
if APath='' then begin
Result:=nil;
exit;
end;
Result := doc.DocumentElement;
NodePath := APath;
while Result<>nil do
begin
i := Pos('/', NodePath);
if i = 0 then
i:=length(NodePath)+1;
Child := Result.FindNode(Copy(NodePath, 1, i - 1));
NodePath := Copy(NodePath, i + 1, Length(NodePath));
Result := Child;
if NodePath='' then exit;
end;
end;
procedure TXMLConfig.SetFilename(const AFilename: String);
var
MemStream: TMemoryStream;
@ -256,6 +307,9 @@ end;
end.
{
$Log$
Revision 1.5 2002/10/01 09:09:07 lazarus
MG: added clear and deletepath
Revision 1.4 2002/09/20 09:27:47 lazarus
MG: accelerated xml