Ver Mensaje Individual
  #4  
Antiguo 19-10-2015
Avatar de BDWONG
BDWONG BDWONG is offline
Miembro
NULL
 
Registrado: nov 2013
Posts: 113
Reputación: 11
BDWONG Va por buen camino
Mira este codigo espero sea lo que buscas


Código Delphi [-]
uses
  SysUtils,  Generics.Collections   ;

var
 listaStrings:TList< string>;
 listaBooleans:TList< boolean>;

 listGenerica:TList< TObject>;
begin
//creamos los objetos
  listaStrings:=TList< string>.create;
  listaBooleans:=TList< boolean>.create;
  listGenerica:=TList< TObject>.create;
  try
     listaStrings.Add('soy un string');
     listaBooleans.Add(true);
     //anadimos las listas a a lista generica
     listGenerica.Add(listaStrings);
     listGenerica.Add(listaBooleans);

     Writeln(TList<string>(listGenerica[0]).First);//imprime  el string
     Writeln(TList< boolean>(listGenerica[1]).First);//imprime el booleano

  finally
  //liberamos los objetos
    listaStrings.Free;
    listaBooleans.Free;
    listGenerica.Free;
  end;
  Readln;
end.

saludos...
Responder Con Cita