Ideen für spezielle Stringbearbeitung

[marabu]

Moin,

kennst du keine Möglichkeiten einen Fehler einzugrenzen?

Versuche es mal so:

Delphi-Quellcode:

function CreateDocument(var doc: IXMLDOMDocument2; const markup: string): Boolean;
begin
  doc := ComsDOMDocument.Create;
  doc.async := False;
  Result := doc.loadXML(markup);
end; 

procedure ShowParseError(pe: IXMLDOMParseError);
const
  FMT = 'line %d, linepos %d'#13'%s'#13#13'%s';
begin
  with pe do
    ShowMessage(Format(FMT, [line, linepos, reason, Copy(srctext, 1, linepos)]));
end;

procedure Tfrmxml.Button1Click(Sender: TObject);
const
  XPATH = '//Basket[%d]/@path';
var
  doc: IXMLDOMDocument2;
  n: IXMLDOMNode;
begin
  if CreateDocument(doc, Memo1.Text) then
  begin
    n := doc.selectSingleNode(Format(XPATH, [1]));
    ShowMessage(VarToStr(n.nodeValue));
  end else ShowParseError(doc.parseError);
end;

Freundliche Grüße