Zitat:
... irgendwo musste dir halt noch merken, welcher chat zu welcher stringlist gehört ...
oder du ergänzt den vorstehenden Code
Delphi-Quellcode:
type
TChatliste = record
Username: String;
Liste: TStringList;
end;
TChatlisten: array of TChatliste;
var
Chatlisten: TChatlisten;
...
SetLength(Chatlisten, DieAnzahl); //Anzahl der Chatlisten, wie schon im Beitrag oben
Chatlisten[i].Username := 'Ein Name'; //Der Name des Chatpartners
Chatlisten[i].Liste := TStringlist.Create; //Erzeugen der Stringliste
Das ist jetzt eine einfache Variante. Du kannst das natürlich alles in eine Klasse verpacken und die passenden Methoden zum Anfügen, Auslesen, Löschen, Suchen usw. der einzelnen Chats mit einbauen.