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]