OpenDialog Mehrfachauswahl, Filename

[Freyr77]

Nochmal gleiches Thema:

Ich habe jetzt folgende Prozedur um die XML-Datei rekursiv zu durchsuchen:

Delphi-Quellcode:

var
  i: integer;

begin
  if pParentNode.NodeName = 'VerInfo_Keys' then
  begin
    fVersionInfo := pParentNode;

  end
  else
  begin
    for i := 0 to pParentNode.ChildNodes.Count - 1 do
    begin
      GetVersionInfo(pParentNode.ChildNodes[i]);
    end;
  end;

Damit möchte ich jetzt bei Button-Klick auslesen lassen, das sieht so aus:

Delphi-Quellcode:

var
  lFileName: string;
  iZaehler: integer;

begin
  OpenDialog1.Execute();
  // InternalName = FileName


  for iZaehler := 0 to MaxAnzahl -1 do
  begin

    // XML-Dokument laden

    CurrentXML := NewXMLDocument;
    CurrentXML.LoadFromFile(String(OpenDialog1.FileName));
    CurrentXML.Active := True;

    // XML-Dokument auslesen
    GetVersionInfo(CurrentXML.DocumentElement);
    GetFileName(CurrentXML.DocumentElement);

    if fVersionInfo <> nil then
    begin

    end;

    if fFileInfo <> nil then
    begin

    end;

    // Überschriften StringGrid
    StringGrid1.Cells[0, 0] := 'Projekt';
    StringGrid1.Cells[1, 0] := 'Version';

    // Eintragungen StringGrid
    begin
      StringGrid1.Cells[0, iZaehler] := '';
      StringGrid1.Cells[1, iZaehler] := '';
    end;

    // Aktualisieren sichtbar
    Button1.Visible := True;
  end;

... funktioniert aber nicht. Mir ist auch bewusst das die Eintragungen ins StringGrid gerade leere Strings sind. Weiß einer von euch wie ich die Prozedur jetzt richtig aufrufe?