Attribute in XML suchen und ausgeben...Wie?

[marabu]

Hallo Tom,

wenn MatchStats das Root-Element darstellt, dann könnte eine Lösung so aussehen:

Delphi-Quellcode:

function GetAttributeValue(const sElement, sAttribute: string): string;
begin
  with CoDOMDocument.Create do
  begin
    async := False;
    if LoadXML(sElement)
      then Result := VarToStr(DocumentElement.getAttribute(sAttribute))
      else raise Exception.Create(ParseError.Reason);
  end;
end;

const
  XMP = '<MatchStats id="MS004" matchid="ATP2008WG MS004" seq="118" msg="Return"/>';

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  ShowMessage(GetAttributeValue(XMP, 'msg'));
end;

Freundliche Grüße