FPC: Für XML-Document-Eintrag die Zeile in XML-Datei finden

[Harry Stahl]

Habe kürzlich bei einem Programm von mir die Ergänzung eingebaut, eine XML-Datei (die Delphi-Projekt-Datei oder DeployProj-Datei) einzulesen und daraus eine strukturierte Ansicht in einem TTreeView zu machen.

Den Code den ich dafür verwende (FPC, Lazarus) sieht so aus (stammt aus dem mitgelieferten XML-Beispiel):

Code:

var
FDoc: TXMLDocument; 

procedure Tchild_Source.ParseDoc (TV: TTreeView);

  procedure DoFill(AOwner:TTreeNode; Node:TDOMNode);
  var
    i: integer;
    AItem:TTreeNode;
  begin
    if not Assigned(Node) then exit;
    for i:=0 to Node.ChildNodes.Count - 1 do
    begin
      AItem:=TV.Items.AddChild(AOwner, Node.ChildNodes[i].NodeName);
      AItem.Data:=Node.ChildNodes[i];
      if not Assigned(TV.Selected) then
        TV.Selected:=AItem;
      DoFill(AItem, Node.ChildNodes[i]);
    end;
  end;

begin
  TV.Selected:=nil;
  TV.Items.BeginUpdate;
  TV.Items.Clear;
  DoFill(nil, FDoc);
  TV.Items.EndUpdate;
end;


procedure Tchild_Source.XMLDocToTree (TV: TTreeView; fn: string);
begin
  if Assigned(FDoc) then
    FreeAndNil(FDoc);

  if FileExistsUTF8(fn) then
    ReadXMLFile(FDoc, UTF8ToSys(fn));
  if Assigned(FDoc) then
    ParseDoc (TV);

  if TV.Items.Count > 2 then begin
    TV.Items[0].Expand(false);
    TV.Items[2].Expand(false);
  end;

  TV.FullExpand;
end;

Anscheinend gibt es keinen Bezug mehr im TXMLDocument zu der Zeile aus der Datei, wo ein Eintrag herstammt.

Oder sehe ich das falsch, bzw. gibt es eine Methode, welche mir die Zeilen-Nummer zurück liefert, wo der Eintrag / Wert in der Datei steht?

Hintergrund ist, dass ich gerne bei Doppelklick auf einen Eintrag im TreeView dann im Editor den Cursor zu der Zeile im Editortext (eingelesene XML-Datei) bewegen würde.

Momentan erreiche ich das zwar mit einer Suche nach Werten; da die aber alle doppelt und dreifach in der Datei vorkommen können, funktioniert das nicht immer zuverlässig.

[haentschman]

Hallöle...:P

Zitat:

Anscheinend gibt es keinen Bezug mehr im TXMLDocument zu der Zeile aus der Datei, wo ein Eintrag herstammt.

So ist das...Es sind ja keine Zeilen mehr sondern Objekte. 8-)

Zitat:

Hintergrund ist, dass ich gerne im Editor den Cursor zu der Zeile im Editortext (eingelesene XML-Datei) bewegen würde.

Warum nutzt du denn TXMLDocument? Eine TStringlist hätte es für dein Vorhaben auch getan? :gruebel:

PS: TXMLDocument hat reichlich Overhead. Da gibt es Leichtgewichtigere. :wink:

[Harry Stahl]

Weil ich ja eine (halbwegs) strukturierte Liste im TreeView haben möchte (und so auch die Werte im Eigenschafts-Grid anzeigen kann, siehe anlg. Screenshot, farblich markierter Bereich links).

Eine Stringliste würde ja nur den Inhalt aus dem Editor doppeln.

[haentschman]

Zitat:

Eine Stringliste würde ja nur den Inhalt aus dem Editor doppeln.

..na logisch. Ich hatte es falsch verstanden. :oops:

Spontan hätte ich auch keine Idee. :?

[HolgerX]

Hmm..

Hab mir deinen Screenshot angeschaut:

Wenn Du bei der Erstellung die #Text TreeItems weglassen würdest, dann würde der

Delphi-Quellcode:

TreeView1.Selected.AbsoluteIndex +1

im z.B. OnCLick der Zeilennummer des rechts dargestellten XML-Dokumentes entsprechen.

Vielleicht könnte das verwendet werden?

[haentschman]

Hallöle...:P
Das funktioniert nur wenn die Nodes im XML ohne Leerzeilen untereinander stehen... Das kannst aber nicht garantieren. :wink:

[HolgerX]

Hmm..

sollten Leerzeilen nicht als 'Whitespaces' entfernt werden, bzw überlesen werden ?

Oder er müsste auch für Leerzeilen einen TreeItem erzeugen ;)

[Harry Stahl]

Ja, mit AbsoluteIndex hatte ich auch schon gearbeitet. Bei meiner dann anschließenden Suche nach den passenden Einträgen aber pos statt "wordpos" verwendet, das habe ich jetzt korrigiert. Sieht jetzt eigentlich ganz gut aus. Man muss also links unten nur auf den gewünschten Eintrag klicken (oder im Tree) und dann wird die entsprechend Zeile im Editor angesprungen.

Habe gerade Version 2.11 des PPME hochgeladen (dort kann man nun auch info.plist und .entitlements Dateien öffnen, bzw. die werden in das Projekt eingebunden (unter dem 2. blauen P), siehe anl. Screenshot.