|
hola Me prodriais ayudar a analizar esta linea?
ShowMessage(TStringList(ObjList[i]).strings[j]);
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]).strings[j]);
finally
ObjList.Free;
end;
end;
end.
Es que no logro entenderla.
En principio seria linea tendria de ser:
ShowMessage(ObjList[1].strings[1]); Comentarmela por favor
|