Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#10

Re: XML in Master-Detail Tabelle

  Alt 8. Okt 2004, 13:16
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.
Gruß
Hansa
  Mit Zitat antworten Zitat