4D v12.4
ARRAY TO STRING LIST
- Manual de lenguaje 4D
-
- Recursos
-
- Recursos
- ARRAY TO STRING LIST
- CLOSE RESOURCE FILE
- Create resource file
- DELETE RESOURCE
- Get component resource ID
- GET ICON RESOURCE
- Get indexed string
- GET PICTURE RESOURCE
- GET RESOURCE
- Get resource name
- Get resource properties
- Get string resource
- Get text resource
- Open resource file
- RESOURCE LIST
- RESOURCE TYPE LIST
- SET PICTURE RESOURCE
- SET RESOURCE
- SET RESOURCE NAME
- SET RESOURCE PROPERTIES
- SET STRING RESOURCE
- SET TEXT RESOURCE
- STRING LIST TO ARRAY
ARRAY TO STRING LIST
| ARRAY TO STRING LIST ( cadenas ; resNum {; resArchivo} ) | ||||||||
| Parámetro | Tipo | Descripción | ||||||
| cadenas | Array cadena |
|
Array alfa o texto (nuevo contenido del recurso STR#) | |||||
| resNum | Entero largo |
|
Número de recurso | |||||
| resArchivo | DocRef |
|
Número de referencia del archivo de recursos o archivo de recursos actual, si se omite | |||||
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.
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 ifEn 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 ifLa variable sistema OK toma el valor 1 si se ha escrito el recurso, de lo contrario toma el valor 0 (cero).
Producto: 4D
Tema: Recursos
Número
512
Creado por: 4D v6
SET STRING RESOURCE
SET TEXT RESOURCE
STRING LIST TO ARRAY
