Código Delphi [-] var Str:String; begin // recorrer los diferentes Objetos del Item for var I:integer := 0 to (AItem.Objects.Count-1) do // Si son de tipo Texto los Añado if (AItem.Objects[i] is TListItemText) then Str := Str + TListItemText(AItem.Objects[i]).Text + SLineBreak; ShowMessage('Objects:' + Str);
var Str:String; begin // recorrer los diferentes Objetos del Item for var I:integer := 0 to (AItem.Objects.Count-1) do // Si son de tipo Texto los Añado if (AItem.Objects[i] is TListItemText) then Str := Str + TListItemText(AItem.Objects[i]).Text + SLineBreak; ShowMessage('Objects:' + Str);