[XMLLib] - Strucktur erstellen

[Roachford]

Na, die habe ich doch noch vom letzten Problem rumliegen. Du weisst schon, dass der Author diese nicht mehr weiter pflegt?

Delphi-Quellcode:

function CreateXML(const AFilename: string): boolean;
var
  lLib: TXMLLib;
  lNode: TXMLNode;
begin
  lLib := TXMLLib.Create;
  try
    if lLib.CreatePathAndNode('filter/rule', lNode) then
    begin
      lNode.Attributes.SimpleAdd('id', '1');
      lNode.Attributes.SimpleAdd('points', '1,0');
      lNode.Attributes.SimpleAdd('command', '+Message-ID');
      lNode.Attributes.SimpleAdd('regex', '\.\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\@');
      lNode.Attributes.SimpleAdd('info', 'Dotted IP in Message-ID');
      lNode.Attributes.SimpleAdd('result', '');
    end;

    result := lLib.SaveToFile(AFilename);
  finally
    lLib.Free;
  end;
end;