ARRAY TO STRING LIST

4D - Documentation   Français   English   German   Español   English   4D v11 SQL, Comandos por temas   4D v11 SQL, Lista alfabética de comandos   4D v11 SQL, Constantes por temas   Regresar   Anterior   Siguiente

versión 6.0


ARRAY TO STRING LIST (cadenas; resNum{; resArchivo})

ParámetroTipoDescripción
cadenasArray alfaArray alfa o texto
(nuevo contenido del recurso STR#)
resNumNuméricoNúmero de recurso
resArchivoDocRefNúmero de referencia del archivo de recursos o
archivo de recursos actual, si se omite

Descripción

El comando ARRAY TO STRING LIST crea o reescribe el recurso lista de cadenas ("STR#") cuyo número se pasa en resNum. El contenido del recurso se crea a partir de las cadenas de caracteres que se pasan en el array cadenas. El array puede ser de tipo alfa o texto.

Si no es posible añadir el recurso, la variable OK toma el valor 0 (cero).

Si pasa un número de referencia de archivo de recursos válido en resArchivo, el recurso se añade a ese archivo. Si no pasa resArchivo, el recurso se añade al primer archivo de la cadena de archivos de recursos (el último archivo de recursos abierto).

Nota: Cada cadena de un recurso lista de cadenas puede contener hasta 255 caracteres.

Tip: Cuando utilice los recursos listas de cadenas, limítese a recursos de 32K, y a un máximo de unas centenas de cadenas por recurso.

Ejemplo

Su base de datos se basa en un conjunto de fuentes dado.

En el On Exit Database Method, escribe:

      ` Método de base On Exit
   If (<>vbFuentesEstanOK)
      FONT LIST($atFuente)
      $vhResArchivo:=Open resource file("FontSet")
      If (OK=1)
         ARRAY TO STRING LIST($atFuente;15000;$vhResArchivo)
         CLOSE RESOURCE FILE($vhResArchivo)
      End if
   End if

En el Método de base On Startup, escribe:

      ` Método de base On Startup
   <>vbFuentesEstanOK:=False
   FONT LIST($atNuevaFuente)
   If (Test path name("FontSet")#Is a document)
      $vhResArchivo:=Create resource file("FontSet")
   Else
      $vhResArchivo:=Open resource file("FontSet")
   End if
   If (OK=1)
      STRING LIST TO ARRAY(15000;$atOldFuente;$vhResArchivo)
      If (OK=1)
         <>vbFuentesEstanOK:=True
         For($vlElem;1;Size of array($atNuevaFuente))
            If ($atNewFont{$vlElem}#($atOldFuente{$vlElem}))
               $vlElem:=MAXLONG
               <>vbFuentesEstanOK:=False
            End if
         End for
      Else
         <>vbFuentesEstanOK:=True
      End if
      CLOSE RESOURCE FILE($vhResFile)
   End if
   If(Not(<>vbFuentesEstanOK))
      CONFIRM("Usted no está utilizando el mismo conjunto de fuentes, ¿OK?")
      If(OK=1)
         <>vbFuentesEstanOK:=True
      Else
         QUIT 4D
      End if
   End if

Ver también

SET STRING RESOURCE, SET TEXT RESOURCE, STRING LIST TO ARRAY.

Variables y conjuntos sistema

La variable sistema OK toma el valor 1 si se ha escrito el recurso, de lo contrario toma el valor 0 (cero).


4D - Documentation   Français   English   German   Español   English   4D v11 SQL, Comandos por temas   4D v11 SQL, Lista alfabética de comandos   4D v11 SQL, Constantes por temas   Regresar   Anterior   Siguiente