Hatte einen test gemacht mit einem Memo.
Delphi-Quellcode:
OpenDialog1.Execute();
if OpenDialog1.FileName <> '' then
begin
JvSimpleXml1.FileName := OpenDialog1.FileName;
for I := 0 to JvSimpleXML1.Root.Items.Item[0].Items.Count - 1 do
Memo1.Lines.Add(JvSimpleXML1.Root.Items.Item[0].Items.Item[I].Value)
end;
Nur bleibt das Memo leer
Edit:
Er findet auf jeden Fall Items da I > 0 ist
Hab ich grad noch mal im Debug gecheckt.
Noch mal Edit:
Nu passiert was
Aber die ausgelesenen Strings sind leer
Haha rate mal ein Edit:
So gehts:
Delphi-Quellcode:
var
I: Integer;
begin
OpenDialog1.Execute();
if OpenDialog1.FileName <> '' then
begin
JvSimpleXML1.LoadFromFile(OpenDialog1.FileName);
for I := 0 to JvSimpleXML1.Root.Items.Item[0].Items.Count - 1 do
Memo1.Lines.Add(JvSimpleXML1.Root.Items.Item[0].Items.Item[I].Properties.Value('value'));
end;
end;