Herzlich willkommen in der Delphi-PRAXiS, Silence.
Du hast viele Möglichkeiten, aber ich zeige dir jetzt nur eine - basierend auf den
XML-Units von Borland:
Delphi-Quellcode:
procedure TDemoForm.ButtonClick(Sender: TObject);
var
doc: IDOMDocument;
nl: IDOMNodeList;
i, iRows: Integer;
s: TStrings;
begin
with OpenDialog do
if Execute then
begin
doc := LoadXMLDocument(FileName).DOMDocument;
with doc as IDOMNodeSelect do
nl := selectNodes('//teilnehmer[name="Müller"]');
iRows := 0;
for i := 0 to Pred(nl.length) do
begin
s := CreateStrings(nl.item[i] as IDOMElement);
with StringGrid do
begin
RowCount := Succ(iRows);
Rows[iRows].Assign(s);
iRows := RowCount;
end;
s.Free;
end;
end;
end;
Testdaten und ein Demo-Projekt zu deiner Inspiration habe ich angehängt. Du solltest bei Gelegenheit die von dir verwendete Delphi-Version in deinem
DP-Profil ergänzen.
Freundliche Grüße vom marabu