Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#7

Re: Anführungszeichen werden als ASCII eingetragen.

  Alt 18. Feb 2006, 16:39
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
  Mit Zitat antworten Zitat