Hola...
Yo te aconsejaría una lista de
TStrings:
Código Delphi
[-]
var
StringLists: TList;
var
I: Integer;
Strings: TStringList;
begin
if not Assigned(StringLists) then
StringLists := TList.Create;
for I := 0 to Pred(Memo1.Lines.Count) do
begin
Strings := TStringList.Create;
StringLists.Add(Strings)
end
end;
Ya con esto cuando quieras acceder a uno de los
StringLists solo tienes que hacer algo como:
Código Delphi
[-]
ShowMessage(TStringList(StringLists[0])[0])
Y al destruir la forma o clase que contiene a
StringLists haces:
Código Delphi
[-]
if Assigned(StringLists) then
begin
for I := 0 to Pred(StringLists.Count) do
TStringList(StringLists[i]).Free;
StringLists.Clear;
StringLists.Free
end;
Saludos...