Einträge gleicher name

[Tigermoon]

Delphi-Quellcode:

procedure datei_laden;
var
name:String;
begin

  { datei wird ausgelessen }
  if(FileExists('Mitspieler.xml'))
  then begin
    //Anlegen eines Objektes
    XML_File := newXMLDocument;
    // Laden der Datei
    XML_File.LoadFromFile('Mitspieler.xml');

    name := XML_File.ChildNodes['MITSPIELER'].ChildNodes['MAENNER'].ChildNodes['NAME'].Text;
    Mitspieler.FMitspieler.CBNamen.Items.Add(name);
    name := XML_File.ChildNodes['MITSPIELER'].ChildNodes['FRAUEN'].ChildNodes['NAME'].Text;
    Mitspieler.FMitspieler.CBNamen.Items.Add(name);
end;
end;