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?