4D v12.4
ARRAY TO STRING LIST
- Manual de linguagem 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 ( cadeias ; resNum {; resArquivo} ) | ||||||||
| Parâmetro | Tipo | Descrição | ||||||
| cadeias | Array cadeia |
|
Cadeia ou array de texto (novos conteúdos para o recurso STR# | |||||
| resNum | Inteiro longo |
|
Número do ID de recurso | |||||
| resArquivo | DocRef |
|
Número de referência do arquivo de Resource ou arquivo de resource atual se omitido | |||||
O comando ARRAY TO STRING LIST cria ou reescreve o recurso lista de cadeias (“STR#”) cujo número se passa em resNum. O conteúdo do recurso é criado a partir das cadeias de carateres que é passada no array cadeias. O array pode ser de tipo alfa ou texto.
Se não for possível adicionar o recurso, a variável OK toma o valor 0 (zero).
Se passa um número de referência de arquivo de recursos válido em resArquivo, o recurso é adicionada a esse arquivo. Se não passa resArquivo, o recurso é adicionado ao primeiro arquivo da fila de arquivos de recursos (o último arquivo de recursos aberto).
Nota: cada fila de um recurso lista de cadeias pode conter até 255 caracteres.
Dica: quando utilize os recursos listas de cadeias, limite-se a recursos de 32K, e a um máximo de umas centenas de cadeias por recurso.
Seu banco de dados é baseado em um conjunto de fontes dado.
No Método banco de dados On Exit, escreve:
` Método de banco On Exit
If(◊vbFontesEstaoOK)
FONT LIST($atFonte)
$vhResArquivo:=Open resource file("FontSet")
If(OK=1)
ARRAY TO STRING LIST($atFonte;15000;$vhResArquivo)
CLOSE RESOURCE FILE($vhResArquivo)
End if
End ifNo Método banco de dados On Startup, escreve:
` Método de banco On Startup
◊vbFontesEstaoOK:=False
FONT LIST($atNovaFonte)
If(Test path name("FontSet")#Is a document)
$vhResArquivo:=Create resource file("FontSet")
Else
$vhResArquivo:=Open resource file("FontSet")
End if
If(OK=1)
STRING LIST TO ARRAY(15000;$atOldFuente;$vhResArquivo)
If(OK=1)
◊vbFontesEstaoOK:=True
For($vlElem;1;Size of array($atNovaFonte))
If($atNewFont{$vlElem}#($atOldFonte{$vlElem}))
$vlElem:=MAXLONG
◊vbFontesEstaoOK:=False
End if
End for
Else
◊vbFontesEstaoOK:=True
End if
CLOSE RESOURCE FILE($vhResFile)
End if
If(Not(◊vbFuentesEstanOK))
CONFIRM("Você não está utilizando o mesmo conjunto de fontes, OK?")
If(OK=1)
◊vbFontesEstaoOK:=True
Else
QUIT 4D
End if
End ifA variável sistema OK toma o valor 1 se tiver sido escrito o recurso, do contrário toma o valor 0 (zero).
Produto: 4D
Tema: Recursos
Número
512
Criado por: 4D v6
SET STRING RESOURCE
SET TEXT RESOURCE
STRING LIST TO ARRAY
