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.8. EXCEPCIONES CON TSTRINGLIST.
14. LISTA DE CADENAS TSTRINGLIST.
14.8. EXCEPCIONES CON TSTRINGLIST.
14. LISTA DE CADENAS TSTRINGLIST.
14.8. EXCEPCIONES CON TSTRINGLIST.

SIGUIENTE

SIGUIENTE

SIGUIENTE


‒ Excepciones con TStringList.

La excepción más usada que se usa con TStringList, es similar a la que se usa con colecciones y listas y es la excepción EStringListError, y esta excepción ocurre, desde el punto de vista del uso de un TStringList, cuando:

  1. No hay memoria para expandir la lista de cadena de caracteres.
  2. Cuando la lista de cadena de caracteres, se intenta aumentar mas halla de su capacidad máxima.
  3. Cuando se hace referencia a un elemento inexistente en la lista de caracteres.
  4. Cuando se intenta mover un elemento de la lista de caracteres fuera de los limites de la misma.
  5. Cuando se intenta añadir una cadena de caracteres existente, en una lista de cadena de caracteres ordenada que no admita duplicados y el valor de la propiedad Duplicates sea igual a dupError.

La única diferencia entre la excepción usada en una lista o colección, con EStringListError es que esta última permite activarse cuando se colocan elementos duplicados en TStringList, siempre y cuando Duplicates tome el valor dupError. Ejemplo:


Descargar
{$codepage utf8}
{$mode objfpc}

Uses sysutils, classes
{$ifdef Linux},cwstring{$endif};

Var Lista:TStringlist;
Begin
  Lista:=TStringlist.create;
  Lista.add('Uno');
  Lista.Sorted:=true;
  Lista.Duplicates:=dupError;
  try
   Lista.Add('Uno');
  except
    on EStringListError do Writeln('El elemento ya existe en la lista')
  end;
  Writeln(Lista.text)
End.
Código fuente 36: Uso de la excepción EStringListError.
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.