Das lässt sich doch ganz einfach mit einer kleinen Pos() und Copy() Bastelei parsen.
Delphi-Quellcode:
function GetValue(const XMLData: String; ValName: String): String;
var
StartPos, EndPos: Integer;
begin
StartPos := Pos('<' + ValName + '>', XMLData) + 2 + Length(ValName);
EndPos := PosEx('</' + ValName +' >', XMLData, StartPos);
Result := Trim(Copy(XMLData, StartPos, EndPos - StartPos));
end;
So ungefähr. Ist jetzt nicht getestet, ist leicht abgewandelter Code aus einem meiner Projekte, sollte aber wunderbar für einfache
XML-Daten funktionieren.
Wegen PosEx musst du hier die
Unit StrUtils noch einbinden.