Tema: TStringList
Ver Mensaje Individual
  #6  
Antiguo 16-01-2004
Avatar de marto
marto marto is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona, Catalunya
Posts: 882
Reputación: 21
marto Va por buen camino
Efectivamente, si no instancias La TStringList, te dará error. A parte de eso, ese código o único que va a hacer es ir dejando tus AList en memoria y sin nadi que apunte a ellos. Lo que quería decir Cadetill era algo así:

Código:
type
TForm1 = class(TForm)
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
end;


implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  Temp: TStringList;
  ObjList: TObjectList;
  i, j: integer;
begin
  ObjList := TObjectList.Create;
try
  Temp := TStringList.Create;
  Temp.Add('1'); 
  Temp.Add('2');
  Temp.Add('3');
  Temp.Add('4');
  Temp.Add('5');
  ObjList.Add(Temp);

  Temp := TStringList.Create;
  Temp.Add('11'); 
  Temp.Add('12');
  Temp.Add('13');
  Temp.Add('14');
  Temp.Add('15');
  ObjList.Add(Temp);
  
  for i := 0 to ObjList.Count - 1 do
    for j := 0 to TStringList(ObjList[i]).Count - 1 do
      ShowMessage(TStringList(ObjList[i]).Items[j]);
finally
  ObjList.Free;  
end;


end;

end.
__________________
E pur si muove
Responder Con Cita