BotonMenu
BotonIndice

Visita : http://www.conoce3000.com
Paypal : https://www.paypal.me/conoce3000/1

PASCAL CON FREE PASCAL

PASCAL CON FREE PASCAL

PASCAL CON FREE PASCAL


14. LISTA DE CADENAS TSTRINGLIST.
14.4. VALORES ASOCIADOS A OBJETOS.
14. LISTA DE CADENAS TSTRINGLIST.
14.4. VALORES ASOCIADOS A OBJETOS.
14. LISTA DE CADENAS TSTRINGLIST.
14.4. VALORES ASOCIADOS A OBJETOS.

SIGUIENTE

SIGUIENTE

SIGUIENTE


‒ Valores asociados a objetos.

Los valores asociados, no solamente pueden ser pares nombre-valor, también pueden ser objetos asociados a una cadena de caracteres de la lista. Esto se puede hacer con el método AddObject, en donde el primer parámetro es la cadena de caracteres que vamos añadir a la lista, y el segundo parámetro el objeto asociado a la cadena de caracteres. Para recuperar el objeto asociado a un elemento de la lista de caracteres se usa la propiedad Objects, si el elemento de la lista no tiene un objeto o instancia asociado este devolverá nil. Esto es importante ya que un TStringList puede estar compuesta de cadenas de caracteres asociados con objetos o sin ningún objeto.


Descargar
{$codepage utf8}
{$mode objfpc}
Uses sysutils, classes
{$ifdef Linux},cwstring{$endif};
Type TEntero=class
       n:integer;
     End;

Var ListaCadenas:TStringList;
    i:integer;
    m:TEntero;
Begin

  ListaCadenas:=TStringList.create;
  for i:=0 to 10 do
   Begin
      m:=TEntero.create;
      m.n:=i;
      ListaCadenas.AddObject('Var-'+intToStr(i),m);
   End;

  ListaCadenas.Add('Una cadena de caracteres simple');

  for i:=11 to 15 do
   Begin
      m:=TEntero.create;
      m.n:=i;
      ListaCadenas.AddObject('Var-'+intToStr(i),m);
   End;

  for i:=0 to ListaCadenas.Count-1 do
    Begin
      m:=TEntero(ListaCadenas.Objects[i]);
      if m<>nil then
         Writeln(ListaCadenas[i],' ',m.n)
      else Writeln(ListaCadenas[i])
    End;
End.
Código fuente 19: Uso de valores asociados a objetos.
Descargar

El método AddObject permite añadir objetos asociados a la lista, pero este no nos permite insertarlo en una posición determinado, para ello usamos el método insertObject. Este método tiene como primer parámetro la posición en donde se ha de insertar la cadena de caracteres, el segundo parámetro la cadena de caracteres y él último el objeto asociado a la cadena de caracteres.


Descargar
{$codepage utf8}
{$mode objfpc}
Uses sysutils, classes
{$ifdef Linux},cwstring{$endif};
Type TEntero=class
       n:integer;
     End;

Var ListaCadenas:TStringList;
    i:integer;
    m:TEntero;
Begin

  ListaCadenas:=TStringList.create;
  for i:=0 to 10 do
   Begin
      m:=TEntero.create;
      m.n:=i;
      ListaCadenas.AddObject('Var-'+intToStr(i),m);
   End;

  ListaCadenas.Add('Una cadena de caracteres simple');

  for i:=11 to 15 do
   Begin
      m:=TEntero.create;
      m.n:=i;
      ListaCadenas.AddObject('Var-'+intToStr(i),m);
   End;

  m:=TEntero.create;
  m.n:=58;
  ListaCadenas.InsertObject(5,'Algo diferente',m);


  for i:=0 to ListaCadenas.Count-1 do
    Begin
      m:=TEntero(ListaCadenas.Objects[i]);
      if m<>nil then
         Writeln(ListaCadenas[i],' ',m.n)
      else Writeln(ListaCadenas[i])
    End;

End.
Código fuente 20: Uso de valores asociados a objetos con insertObject.
Descargar




SIGUIENTE
SIGUIENTE
SIGUIENTE



 
‒ Comentarios y sugerencias.

Agradezco de antemano, todo comentario, sugerencia, y donativo (a través de Paypal me), que ayude a mejorar los contenidos educativos de Conoce 3000. Además, cualquier pregunta o duda que tengas lo puedes hacer por este medio. Pero, todo contenido que pueda resultar ofensivo, malicioso, racista, sexista, discriminatorio, obsceno, vulgar será eliminado.


Comments System WIDGET PACK






PORTADA |  INTERESANTE |  APUNTES |  LIBROS |  GALERIA


Creative Commons License


Todos los textos, imágenes y videos de Conoce3000 estan colocados bajo una licencia : Creative Commons Reconocimiento-NoComercial 3.0 Unported License.