Ideen für spezielle Stringbearbeitung

[toyoman]

Zitat von 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

gruäzi

scheinbar hab ich wieder was missverstanden oder falsch gemacht. denn es passiert gar nix. habe es folgendermassen in einer prozedur verpackt:

Delphi-Quellcode:

procedure Tfrmxml.btnneubClick(Sender: TObject);
var
  doc: IXMLDOMDocument2;
begin
  if CreateDocument(doc, dbMemo1.Text) then
  begin
    AddBasket(doc,edpfad.text,'true','true');
    datamodule2005.ADOQuery3.SQL.Text:=sql_update_xml;
    datamodule2005.ADOQuery3.Parameters.ParamByName('xml').Value:=doc.xml;
    datamodule2005.ADOQuery3.Parameters.ParamByName('benutzername').Value:=edbenutzername.text;
    datamodule2005.ADOQuery3.ExecSQL;
    btnneu.click; // Neu!
  end else ShowParseError(doc.parseError);
end;

wie gesagt, wird leider nichts gespeichert. wahrscheinlich wieder eine kleine sache??