4D Doc Center : DELETE RESOURCE

4D v12.4

DELETE RESOURCE


DELETE RESOURCE ( resTipo ; resNum {; resArquivo} )

Parâmetro	Tipo	Descrição
resTipo	cadeia	Tipo de resource de 4 caracteres
resNum	Inteiro longo	Nº de resource ID
resArquivo	DocRef	Número de arquivo de referência do resource ou arquivo de resource atual, se omitido

Descrição

O comando DELETE RESOURCE apaga o recurso cujo tipo se passa em resTipo e cujo número se passa em resNum.

Se passa um número de referência de arquivo de recursos no parâmetro resArquivo, o recurso se pesquisa unicamente nesse arquivo. Se não passa resArquivo, o recurso se busca em todos os arquivos de recursos abertos.

Se o recurso não existe, DELETE RESOURCE não faz nada e a variável OK toma o valor 0 (zero). Se o recurso for encontrado e apagado, a variável OK toma o valor 1.

Advertência: NÃO apague recursos que pertençam a 4D ou a arquivos do sistema. Se fizer isso, pode provocar a aparição de erros no sistema.

Exemplo 1

O exemplo a seguir apaga o recurso "STR#" ID=20000:

  ` Note que este exemplo apagará o primeiro recurso "STR#" ID=20000

  ` encontrado nos arquivos de recursos abertos:

 DELETE RESOURCE("STR#";20000)

Exemplo 2

O exemplo a seguir apaga o recurso "STR#" ID=20000 se for encontra em um arquivo de recursos especificado:

  ` Note que este exemplo apagará o recurso "STR#" ID=20000

  ` só se estiver presente no arquivo de recursos especificado por $vhResArquivo:

 DELETE RESOURCE("STR#";20000;$vhResArquivo)

  ` Note também que se existir um recurso idêntico em um arquivo de recursos aberto

  ` diferente ao especificado em $vhResArquivo, este recurso permanecerá sem mudanças

Exemplo 3

O método de projeto APAGAR RECURSOS DE TIPO apaga todos os recursos do tipo especificado (pelo segundo parâmetro) do arquivo de recursos especificado (pelo primeiro parâmetro):

  ` Método de projeto APAGAR RECURSOS DE TIPO

  ` APAGAR RECURSOS DE TIPO ( Hora; Alfa )

  ` APAGAR RECURSOS DE TIPO ( resArquivo ; resTipo )

 

 C_TIME($1)

 C_STRING(4;$2)

 

 RESOURCE LIST($2;$aiResNum;$asResNome;$1)

 If(OK=1)

    For($vlElem;1;Size of array($aiResNum))

       DELETE RESOURCE($2;$aiResNum{$vlElem};$1)

    End for

 End if

Quando este método de projeto estiver em seu banco de dados, pode escrever

  ` Apagar todos os recursos de tipo "PREF" do arquivo de recursos $vhResArquivo

 APAGAR RECURSOS DE TIPO($vhResArquivo;"PREF")

Exemplo 4

O método de projeto APAGAR RECURSOS DE NOME apaga um recurso (de um tipo especifico) cujo nome é conhecido:

  ` Método de projeto APAGAR RECURSOS DE NOME

  ` APAGAR RECURSOS DE NOME ( Hora; Alfa ; Alfa )

  ` APAGAR RECURSOS DE NOME ( resArquivo ; resTipo ; resNome )

 

 C_TIME($1)

 C_STRING(4;$2)

 C_STRING(255;$3)

 

 RESOURCE LIST($2;$aiResNum;$asResNome;$1)

 If(OK=1)

    $vlElem:=Find in array($asResNome;$3)

    If($vlElem>0)

       DELETE RESOURCE($2;$aiResNum{$vlElem};$1)

    End for

 End if

Quando este método de projeto estiver presente em seu banco, pode escrever:

  ` Apagar do arquivo de recursos $vhResArquivo, o recurso "PREF" cujo nome for “Parâmetros padrão”:

 <span class="rte4d_cmd">APAGAR RECURSOS DE NOME</span><gen9>($vhResArquivo;"PREF";"Parâmetros padrão")</gen9>

Variáveis e conjuntos do sistema

A variável OK toma o valor 0 se o recurso não existir. Se o recurso tiver sido apagado, a variável OK toma o valor 1.