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.