Ideen für spezielle Stringbearbeitung

[marabu]

Sali,

luegsch emal:

Delphi-Quellcode:

procedure AddBasket(doc: IXMLDOMDocument2; const path, opened, isUserAssigned: string);
const
  xpBaskets = '//Baskets';
  tagBasket = 'Basket';
  atPath = 'path';
  atOpened = 'opened';
  atIsUserAssigned = 'isUserAssigned';
var
  e: IXMLDOMElement;
begin
  e := doc.selectSingleNode(xpBaskets) as IXMLDOMElement;
  if Assigned(e) then
    with e.appendChild(doc.createElement(tagBasket))
    as IXMLDOMElement do
    begin
      setAttribute(atPath, path);
      setAttribute(atOpened, opened);
      setAttribute(atIsUserAssigned, isUserAssigned);
    end;
end;

Tschüss