JeSiBu
24.04.2002, 17:38
moin
ich bin gerade dabei mit der komponente xmldocument am "rum experementieren".
ihc haben es bereits hinbekommen das die eingabe (in meinem fall ein name) in die xml datei geschrieben wird.
das programm soll die eingaben in einer listbox ausgeben!!
dies funktioniert allerdings nur wenn nur ein name vorhanden ist!! wenn die .xml datei bereit mehrere daten (namen) enthält funktioniert es nicht mehr.
hier noch der source für die ausgabe:
procedure TForm1.FormCreate(Sender: TObject);
var
CurrentName: string;
CurrentStock: IXMLNode;
i: integer;
begin
XML.LoadFromFile(AppPath + ´xmldataname.xml´);
for i := 0 to XML.DocumentElement.ChildNodes.Count - 1 do begin
CurrentStock := XML.DocumentElement.ChildNodes[i];
CurrentName := CurrentStock.ChildNodes[´name´].Text;
namebox.Items.Add(CurrentName);
XML.Active := False;
end;
end;
danke schon mal für jegliche hilfe!!
jesibu
ps: bin noch relativ neu bei delphi!!
ich bin gerade dabei mit der komponente xmldocument am "rum experementieren".
ihc haben es bereits hinbekommen das die eingabe (in meinem fall ein name) in die xml datei geschrieben wird.
das programm soll die eingaben in einer listbox ausgeben!!
dies funktioniert allerdings nur wenn nur ein name vorhanden ist!! wenn die .xml datei bereit mehrere daten (namen) enthält funktioniert es nicht mehr.
hier noch der source für die ausgabe:
procedure TForm1.FormCreate(Sender: TObject);
var
CurrentName: string;
CurrentStock: IXMLNode;
i: integer;
begin
XML.LoadFromFile(AppPath + ´xmldataname.xml´);
for i := 0 to XML.DocumentElement.ChildNodes.Count - 1 do begin
CurrentStock := XML.DocumentElement.ChildNodes[i];
CurrentName := CurrentStock.ChildNodes[´name´].Text;
namebox.Items.Add(CurrentName);
XML.Active := False;
end;
end;
danke schon mal für jegliche hilfe!!
jesibu
ps: bin noch relativ neu bei delphi!!