4D Doc Center : DELETE RESOURCE

4D v12.4

DELETE RESOURCE


DELETE RESOURCE ( resType ; resID {; resFile} )

引数	型	説明
resType	文字	4文字のリソースタイプ
resID	倍長整数	リソースID番号
resFile	DocRef	リソースファイル参照番号、または省略時、カレントリソースファイル

説明

DELETE RESOURCE コマンドはタイプがresTypeかつIDがresIDのリソースを削除します。

resFileに有効なリソースファイル参照番号を渡すと、そのリソースはそのリソースファイル内でのみ検索されます。resFileを省略した場合は、現在開かれているリソースファイル内で検索されます。

リソースが存在しない場合、DELETE RESOURCEは何も行わずに、システム変数OKに0が設定されます。リソースが見つかって削除された場合は、システム変数OKに1が設定されます。

警告: 4Dまたはシステムファイルのリソースを削除してはいけません。削除すると、予期しないシステムエラーを引き起こす原因になります。

例題 1

以下の例は、リソース"STR# ID=20000を削除します:

  ` この例は、現在開かれている全てのリソースファイルから"STR#" ID=20000

  ` リソースを探し、最初に見つかったリソースを削除することに注目してください:

 DELETE RESOURCE("STR#";20000)

例題 2

以下の例は、指定されたリソースファイル中のリソース"STR#ID=20000を削除します:

  ` この例では、$vhResFileで指定されたリソースファイル中で

  ` "STR#" ID=20000を探し削除することに注目してください:

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

  ` $vhResFile”によって指定された以外の現在開かれている

  ` リソースファイルの中にこのリソースがある場合は、その

  ` リソースは削除されない点に注目してください

例題 3

プロジェクトメソッドDELETE RESOURCES OF TYPEは第一引数で指定されたリソースファイルから、第二引数で指定したリソースをすべて削除します:

  ` DELETE RESOURCES OF TYPE プロジェクトメソッド

  ` DELETE RESOURCES OF TYPE ( 時間 ; 文字列 )

  ` DELETE RESOURCES OF TYPE ( resFile ; resType )

 

 C_TIME($1)

 C_STRING(4;$2)

 

 RESOURCE LIST($2;$aiResID;$asResName;$1)

 If(OK=1)

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

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

    End for

 End if

このプロジェクトメソッド作成後は、以下のように記述できます:

  ` Delete all the resource of type "PREF" from the resource file $vhResFile

 DELETE RESOURCES OF TYPE($vhResFile;"PREF")

例題 4

プロジェクトメソッドDELETE RESOURCE BY NAMEは名前で指定した特定のタイプのリソースを削除します:

  ` DELETE RESOURCE BY NAME Project Method

  ` DELETE RESOURCE BY NAME ( 時間 ; 文字列 ; 文字列 )

  ` DELETE RESOURCE BY NAME ( resFile ; resType ; resName )

 

 C_TIME($1)

 C_STRING(4;$2)

 C_STRING(255;$3)

 

 RESOURCE LIST($2;$aiResID;$asResName;$1)

 If(OK=1)

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

    If($vlElem>0)

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

    End for

 End if

このプロジェクトメソッド作成後、以下のように記述できます:

  ` Delete, from the resource file $vhResFile, the resource "PREF" whose name is “Standard Settings”:

 DELETE RESOURCE BY NAME($vhResFile;"PREF";"Standard Settings")

システム変数およびセット

リソースが存在しない場合、OK変数は0に設定されます。リソースが削除されると、OK変数は1に設定されます。