Inhalt einer TStringList in einer ListBox anzeigen

[LKutscher]

ACHTUNG: Hier werden Bezeichner und String verwendet, die SCHEINBAR gleich sind aber eigentlich nichts mit einander zu tun haben:

Delphi-Quellcode:

ListBox1.Items.Add('DeineStringList');
 ListBox1.Items.AddStrings(DeineStringList);

So könnte es gehen:

Delphi-Quellcode:

procedure NeueListe(InHauptListe: TStrings; Text: string);
{Erzeugt einen neuen Eintrag in der Hauptliste, und ordnet diesem eine neue StringListe zu}
begin
   InHauptListe.AddObject(Text, TStringList.Create);
end;

procedure HauptEintragAuswählen(AusHauptListe: TStrings; HauptEintragNr: Integer): TStrings;
{gibt die StringListe zurück, die dem angegebenen Eintrag in "AusHauptListe" zugeordnet ist.
 Diese kann dann z.B. einer Listbox zugewiesen werden, oder ihre Einträge können bearbeitet werden.}
begin
   if (AusHauptListe.Count>I))
      and Assigned(AusHauptListe.Objects[I])
      and (AusHauptListe.Objects[I] is TStrings) then
      Result := TStrings(AusHauptListe.Objects[I])
   else
      raise Exception.Create('Fehler beim Auswählen aus der Hauptliste.');
end;

Natürlich könnte man statt der Nummer des Eintrages auch den Text des Haupteintrages als Suchkriterium verwenden ( AusHauptListe[IndexOf(Suchtext)] )

[edit=sakura]Delphi-TAGs gesetzt. Mfg, sakura[/edit]