4D v15.4Command name |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D v15.4
Command name
|
Command name ( comando ) -> Resultado | ||||||||
Parâmetro | Tipo | Descrição | ||||||
comando | Inteiro longo |
![]() |
Número de comando | |||||
Resultado | String |
![]() |
Nome do comando localizado | |||||
A utilidade deste comando foi muito reduzida ao longo do tempo, com a evolução de 4D:
O comando Command name retorna o nome do comando cujno número foi passado em comando.
Este nome pode variar entre versões de 4D (comandos renomeados) ou de acordo com a linguagem do aplicativo(*).
(*) Como padrão, a versão da linguagem Inglesa é usada a partir de 4D v15; mesmo assim, a opção "Use regional system settings" em Página Métodos das Preferências permite que continue a usar a linguagem francesa na versão francesa de 4D.
Nota: O número de cada comando está disponível na área de Propriedades da página de documentação.
O comando Command name estabelece uma variável OK para 1 se comando corresponer a um número de comando existente, e para 0 se não. Note, entretanto, que alguns comandos existentes foram desativados, em cujo caso Command name retorna uma string vazia (ver último exemplo).
Em um formulário, você deseja mostrar uma lista suspensa que contenha os comandos padrão de geração de informes. No método de objeto desta lista suspensa, você escreve:
Case of
:(Form event=On Before)
ARRAY TEXT(asCommand;4)
asCommand{1}:=Command name(1)
asCommand{2}:=Command name(2)
asCommand{3}:=Command name(4)
asCommand{4}:=Command name(3)
` ...
End case
Na versão inglesa de 4D, a lista suspensa conterá: Sum, Average, Min, e Max. Na versão francesa(*), a lista suspensa conterá: Somme, Moyenne, Min, e Max.
*com um aplicativo 4D application configurado para a linguagem francesa (ver nota de compatibilidade).
O seguinte código lhe permite carregar todos os comandos 4D válidos em um array:
C_LONGINT($Lon_id)
C_TEXT($Txt_command)
ARRAY LONGINT($tLon_Command_IDs;0)
ARRAY TEXT($tTxt_commands;0)
Repeat
$Lon_id:=$Lon_id+1
$Txt_command:=Command name($Lon_id)
If(OK=1) //o número de comando existe
If(Length($Txt_command)>0) //o comando não está desativado
APPEND TO ARRAY($tTxt_commands;$Txt_command)
APPEND TO ARRAY($tLon_Command_IDs;$Lon_id)
End if
End if
Until(OK=0) //fim dos comandos existentes
Produto: 4D
Tema: Linguagem
Número
538
Criado por: 4D v6
Manual de linguagem 4D ( 4D v15)
Manual de linguagem 4D ( 4D v15.4)
Manual de linguagem 4D ( 4D v15.3)