Hi.
Das könnte dir weiterhelfen:
Delphi-Quellcode:
function ChildByProperty(
eParent: TJvSimpleXmlElem; // parent element
const
sElement, // element name
sProperty, // attribute name
sPropValue: String; // attribute value
var
eChild: TJvSimpleXmlElem // first matching element
): Boolean; // true if element exists
var
i: Integer;
begin
Result := true;
for i := 0 to Pred(eParent.Items.Count) do
begin
eChild := eParent.Items.Item[i];
if (eChild.Name = sElement)
and (eChild.Properties.Value(sProperty) = sPropValue) then
Exit;
end;
eChild := nil;
Result := false;
end;
Benutzen kannst du die Funktion so:
Delphi-Quellcode:
var
e: TJvSimpleXmlElem;
begin
if ChildByProperty(SimpleXml.Root, 'Folder', 'Name', 'Sonstiges', e) then
ShowMessage('folder already exists');
end;
Grüße vom marabu