Hallo Marco,
war wohl noch ein wenig früh heut morgen
Ich schau mal, ob ich heut Abend vieleicht noch eine Lösung zusammenexperimentieren kann.
Die
XML Struktur ist vom Root her wie in deinem Beispiel ?
bis später.
Lösungsvorschlag:
Delphi-Quellcode:
function TForm1.GetXMLValue(NodeName, NodeProperty: String): String;
var I: Integer;
begin
Result:= '';
for I := 1 to JvSimpleXML1.Root.Items.Count-1 do
begin
if (JvSimpleXML1.Root.Items.Item[I].Name = NodeName) and
(JvSimpleXML1.Root.Items.Item[I].Properties.Value('lang') = NodeProperty) then
Result:= JvSimpleXML1.Root.Items.Item[I].Value;
end;
end;
Aufruf z.B.:
GetXMLValue('help','de') ergibt nach deinem Beispiel als Rückgabewert "Deutsche Hilfe"
GetXMLValue('name','de') ergibt nach deinem Beispiel als Rückgabewert "Seite"
GetXMLValue('help','en') ergibt nach deinem Beispiel als Rückgabewert "English help"
hoffe du kommst jetzt weiter.
