Komplettlösungen sind ja hier zurecht unerwünscht. Da du aber nicht weiter kommst und bevor Du nun demnächst vom Dach springst
, habe ich mal in meinem Nähkästchen gesucht :
Delphi-Quellcode:
FUNCTION ErmittleFeldName (st : string) : string;
VAR i : integer;
HilfSt : string;
ende : boolean;
BEGIN
ende := false;
i := 2;
HilfSt := '';
WHILE NOT ende DO BEGIN
HilfSt := HilfSt + st [i];
i := i + 1;
ende := st [i] = '>';
END;
ErmittleFeldName := HilfSt;
END;
FUNCTION ErmittleFeldInhalt (st : string) : string;
VAR i : integer;
HilfSt : string;
ende : boolean;
BEGIN
ende := false;
i := 2;
HilfSt := '';
WHILE st [i] <> '>' DO
i := i + 1;
i := i + 1;
WHILE NOT ende DO BEGIN
HilfSt := HilfSt + st [i];
i := i + 1;
ende := st [i] = '<';
END;
ErmittleFeldInhalt := HilfSt;
END;
So, versuche nun mal zeilenweise die
XML-Datei zu lesen und lasse dir in einer Listbox, Memo o.a. den Feldnamen und den Feldinhalt anzuzeigen. Und zwar ohne <>/ usw. Sofern dir dies gelingt ist ca. 80 % der Arbeit zumindest auf der
XML-Seite gemacht.