Listbox aus den Namen von Nodes erzeugen

[SirThornberry]

das ganze z.B.: in ne TStringlist einlesen und dann

Delphi-Quellcode:

var count: Integer;
    doadd: Boolean;
begin
  doadd := False;
  for count := 0 to liste.count - 1 do
  begin
   if liste.strings[count] = '<bilderdatenbank>' then doadd := True else
    if liste.strings[count] = '</bilderdatenbank>' then doadd := False else
     if doadd then Listbox1.items.add(liste.strings[count]); 
  end;
end;