|
|
|
|
|
|
|
|
|
|
|
versión 6.0
DELETE RESOURCE (resTipo; resNum{; resArchivo})
| Parámetro | Tipo | Descripción | |
| resTipo | Alfa |  | Tipo de recurso (4 caracteres) |
| resNum | Numérico | | Número de recurso |
| resArchivo | DocRef | | Número de referencia del archivo de recursos o |
| archivo de recursos actual, si se omite |
Descripción
El comando DELETE RESOURCE borra el recurso cuyo tipo se pasa en resTipo y cuyo número se pasa en resNum.
Si pasa un número de referencia de archivo de recursos en el parámetro resArchivo, el recurso se busca únicamente en ese archivo. Si no pasa resArchivo, el recurso se busca en todos los archivos de recursos abiertos.
Si el recurso no existe, DELETE RESOURCE no hace nada y la variable OK toma el valor 0 (cero). Si se encuentra y borra el recurso, la variable OK toma el valor 1.
Advertencia: NO borre recursos que pertenezcan a 4D o a archivos del sistema. Si lo hace, puede provocar la aparición de errores del sistema.
Ejemplos
1. El siguiente ejemplo borra el recurso "STR#" ID=20000:
` Note que este ejemplo borrará el primer recurso "STR#" ID=20000
` encontrado en los archivos de recursos abiertos:
DELETE RESOURCE ("STR#";20000)
2. El siguiente ejemplo borra el recurso "STR#" ID=20000 si se encuentra en un archivo de recursos especificado:
` Note que este ejemplo borrará el recurso "STR#" ID=20000
` sólo si esta presente en el archivo de recursos especificado por $vhResArchivo:
DELETE RESOURCE ("STR#";20000;$vhResArchivo)
` Note también que si existe un recurso idéntico en un archivo de recursos abierto
` diferente al especificado en $vhResArchivo, este recurso permanecerá sin cambios 3. El método de proyecto BORRAR RECURSOS DE TIPO borra todos los recursos del tipo especificado (por el segundo parámetro) del archivo de recursos especificado (por el primer parámetro):
` Método de proyecto BORRAR RECURSOS DE TIPO
` BORRAR RECURSOS DE TIPO ( Hora; Alfa )
` BORRAR RECURSOS DE TIPO ( resArchivo ; resTipo )
C_TIME($1)
C_STRING(4;$2)
RESOURCE LIST($2;$aiResNum;$asResNombre;$1)
If(OK=1)
For($vlElem;1;Size of array($aiResNum))
DELETE RESOURCE($2;$aiResNum{$vlElem};$1)
End for
End if
Una vez este método de proyecto está en su base, puede escribir:
` Borrar todos los recursos de tipo "PREF" del archivo de recursos $vhResArchivo BORRAR RECURSOS DE TIPO ($vhResArchivo;"PREF")
4. El método de proyecto BORRAR RECURSOS DE NOMBRE borra un recurso (de un tipo especifico) cuyo nombre se conoce:
` Método de proyecto BORRAR RECURSOS DE NOMBRE
` BORRAR RECURSOS DE NOMBRE ( Hora; Alfa ; Alfa )
` BORRAR RECURSOS DE NOMBRE ( resArchivo ; resTipo ; resNombre )
C_TIME($1)
C_STRING(4;$2)
C_STRING(255;$3)
RESOURCE LIST($2;$aiResNum;$asResNombre;$1)
If(OK=1)
$vlElem:=Find in array($asResNombre;$3)
If($vlElem>0)
DELETE RESOURCE($2;$aiResNum{$vlElem};$1)
End for
End if
Una vez este método de proyecto esté presente en su base, puede escribir:
` Borrar del archivo de recursos $vhResArchivo, el recurso "PREF" cuyo nombre es "Parámetros estándar":BORRAR RECURSOS DE NOMBRE
($vhResArchivo;"PREF";"Parámetros estándar")
Ver también
RESOURCE LIST, SET RESOURCE PROPERTIES.
Variables y conjuntos sistema
La variable OK toma el valor 0 si el recurso no existe. Si el recurso ha sido borrado, la variable OK toma el valor 1.
|
|
|
|
|
|
|
|
|
|
|