FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#9
|
|||
|
|||
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 |
|
|
|