PHP para iniciantes - Vídeo #1

Usando ParamStr no Delphi

Em que caso podemos usar a função ParamStr?


Inicialmente, é necessário entender o seguinte: quando é gerado o arquivo executável (.exe) da aplicação, automaticamente ele passa a ter um caminho (path). Desta maneira é possível acessá-lo neste endereço ou [que é mais comum] criar um atalho para esta aplicação na área de trabalho.

Quando se cria um atalho, percebemos que existe uma propriedade chamada "Destino". Neste campo, é apresentado [entre aspas duplas] o caminho do arquivo destino, exemplo:

"C:\Users\Fulano\AppTeste.exe"

De qualquer forma, entramos finalmente na utilidade da função ParamStr, que serve para retornar os dados usados na invocação do arquivo a qual instanciou a função em questão.

Para retornar o nome do arquivo invocado, usa-se:

ParamStr( 0 ) ;

caso este método seja invocado em algum momento da execução do programa (invocador), será retornada a seguinte string:

"C:\Users\Fulano\AppTeste.exe"

Caso tenha sido passado algum parâmetro além do nome do arquivo (invocado), situação comum em arquivos link (relatados no início deste post), então deverá ser utilizado o index correspondente, exemplo de um endereço destino no arquivo link:

"C:\Users\Fulano\AppTeste.exe" d

Para retornar o primeiro parâmetro informado na invocação do arquivo, usa-se:

ParamStr( 1 ) ;

será retornado:

d 

OBS: É necessário colocar espaços entre os parâmetros, não importa quantos sejam.

Espero que seja útil!

Até+

Função de incrementação e decrementação no Delphi?

Em alguns casos durante a programação é comum surgir a necessidade de incrementar o valor de uma determinada variável.

Nestas situações é normal usarmos a seguinte técnica:

<variável> := <variável> + 1 ;

Porém, no Delphi existe uma função chamada inc que faz isso pra nós, ou seja, ela faz a incrementação do valor na variável.

Esta função possui os seguintes parâmetros:

inc( var X: Ordinal; [ N: integer ] )

como podemos perceber, a função aguarda um número à ser incrementado, e existe a possibilidade de informar o valor que será incrementado.


Exemplo:

var   numero: integer ;
begin   numero := 0 ;
   showmessage( intToStr( numero ) ) ;
   inc( numero ) ;
   showmessage( intToStr( numero ) ) ;
end ;

No exemplo acima, é declarada uma variável chamada "numero" do tipo inteiro. Esta variável recebe o valor '0' (zero), e então é exibida uma mensagem ao usuário apresentado o valor da variável "numero":

Posteriormente usamos a função inc para incrementar o valor da variável "numero", na sequência é apresentado novamente o valor da variável "numero", desta vez o número '1' (um) visto que a função inc aumentou em '1' (um) o valor da variável:

Em relação ao processo de decrementação, o comum é fazermos isto:

<variáve> := <variável> - 1 ;

Porém, também existe a função dec, que tem funcionamento similar à inc, porém, esta função subtrai o valor da variável.

Exemplo:

var   numero: integer ;
begin   numero := 1 ;
   showmessage( intToStr( numero ) ) ;
   dec( numero ) ;
   showmessage( intToStr( numero ) ) ;
end ;

No exemplo acima, é declarada uma variável chamada "numero" do tipo inteiro, na sequência, esta variável recebe o valor '1' (um) e então a variável "numero" é submetida à função dec, na sequência é exibida a mensagem ao usuário e então poderemos ver que o valor passou para '0' (zero), visto que a função dec retira '1' (um) da variável a cada iteração.

Espero que seja útil.

Até+

Como usar while no Delphi?

No inicio do estudo em qualquer linguagem de programação é normal buscarmos as funcionalidades básicas da linguagem, entre elas: tipos, sintaxes, IDE, e laços de repetição.

Neste post vou mostrar como usar a estrutura de repetição while.

Basicamente o while é um laço de repetição que executa o código em seu bloco até que uma determinada condição seja falsa, caso contrário continuará executando as instruções no bloco.

Veja o esboço abaixo:

while (condição = verdadeira) do

begin  < bloco de código>

end ;

Vemos no esboço acima que a função while possui um cabeçalho onde é verificada uma determinada condição, e caso ela seja verdadeira, o bloco de código (entre begin e end;) será executado.


Veja o exemplo abaixo:

var
   numero: integer ;
begin
      
      numero := 0 ;
      while numero < 10 do
      begin
           numero := numero + 1 ;
      end ;

end ;

no exemplo apresentado acima, foi declarada uma variável inteira cujo nome é "numero".
Antes do loop esta variável recebe o valor '0' (zero) e então o while começa.
É verificado se a variável "numero" é menor que '10' (dez), caso seja, então a variável "numero" recebe o valor dela mesma mais '1' (um).
Em um determinado momento o valor em 'numero' será igual ou superior à '10' (dez), neste momento o laço while não será mais executado.

Espero que seja útil!

Até+

Como evitar que seja digitado letras em um edit no Delphi?

Em alguns casos é necessário impedir que o usuário digite letras e outros tipos de caracteres diferentes de números, e em casos mais específicos, é necessário isolar a digitação, focando em permitir apenas números e alguns tipos de teclas.

O Delphi disponibiliza uma propriedade booleana que monitora isto, porém vou mostrar uma forma via codificação que também atende esta necessidade.

1º Com o form aberto, arraste para ele um componente do tipo TEdit ;

2º Clique no componente "Edit" e em Object Inspector clique na aba Events e então clique duas vezes no evento "OnKeyPress" ;

3º Será criado um método (procedure). Após begin, digite o seguinte:

     if not ( Key in ['0'..'9', #8] ) then key := #0 ;

4º Pode salvar, compilar e executar o projeto. Tente digitar letras ou qualquer outro caractere diferente de números, você perceberá que a digitação está bloqueada.

Nesta configuração, são aceitos apenas: números e a digitação da tecla Backspace que corresponde à 8 na tabela ASCII.

Espero que seja útil.

Até+

Como criar um botão em runtime no Delphi?

É muito comum encontrar programadores de outras linguagens que acham que no Delphi para criar um objeto visual ou componente, é só clicar no ícone do componente, arrastá-lo para o form e então soltá-lo e tudo estará bem.

De fato existe esta facilidade, visto que o Delphi é uma ferramenta RAD, porém existe também a outra forma de se criar um componente, é através de codificação.

Para exemplificar, vou mostrar como criar um botão ou button em runtime.

1º Vou considerar que você já está com um projeto do Delphi aberto ;

2º Em "Object Inspector" clique na aba "events" e então clique duas vezes sobre "OnShow".

3º antes de begin, digite o seguinte

var   loBTN : TButton ;

4º Após o begin, digite o seguinte:

     loBTN := TButton.Create( self ) ;
     loBTN.Parent := self ;
     loBTN.Left := 40 ;
     loBTN.Top := 50 ;
     loBTN.Caption := 'BtnTeste' ; 

 5º agora é só compilar e executar. Quando o form for apresentado na tela, você verá que existe um botão do lado esquerdo:

É isso pessoal. Espero que seja útil.

Até+

Como formatar field do tipo Float em run time no Delphi?

Quando criamos uma consulta em SQL usando qualquer componente que suporte este tipo de operação, no modo Design Time, automaticamente quando "ativamos" o componente e na sequência fazemos o conhecido "Add all Fields", trazendo assim todos campos da consulta, caso exista um campo "float" que tenha um valor "quebrado", é muito fácil formatar o campo diretamente:

Clicar no field > Clicar na propriedade "DisplayFormat" > definir uma formatação, '###,##0.00' por exemplo.

 Ok!

Mas, e quando os campos são gerados obtidos dinamicamente, ou seja, a consulta SQL é "construída" e obtida em runtime, como fazer para formatar os campos "float"?

...exatamente...temos que pensar um pouco!

Mas para isso venho através deste post tentar ajudá-lo. Abaixo, segue o processo necessário para tratar a situação apresentada acima:

1º Dentro do método em que ocorro o "<Query>.Open" declare uma variável do tipo integer, neste exemplo vou declarar "loCT":

var loCT: Integer

2º Depois da linha de código "<Query>.Open" insira as seguintes linhas de código:

for loCT := 0 to pred( <Query>.FieldCount ) do
     if <Query>.Fields[loCT].DataType in [ ftFloat ] then                    TNumericField( <Query>.Fields[loCT] ).DisplayFormat := '###,##0.00' ;

Desta forma, todos os fields que forem do tipo ftFloat serão formatados dinamicamente e o melhor, em runtime.

Espero que seja útil!

Até+

Como usar arquivos '.gif' no Delphi

Para utilizar um arquivo do tipo '.gif' é necessário fazer o seguinte:

1º Inclua um componente da classe TImage no formulário ;

2º Faça o load do arquivo '.gif' na propriedade Picture do componente TImage ;

3º Defina em algum evento anterior a exibição do formulário a seguinte instrução:

TGIFImage( <TImage>.Picture.Graphic ).Animate := true ;

obs: A linha de código acima somente será disponível caso esteja declarada a unit GIFImg no uses.

Pronto, seu "gif" já estará funcionando.

Até+

Como usar o For..In

Qual a forma de usar a estrutura de repetição For..in?

Esta estrutura de repetição, opção ao "For..to..do", consiste em varrer uma coleção de dados, e então permite ao programador definir operações específicas com cada um dos dados obtidos.

Vamos aos exemplos de uso:

1º) Usando "String"

const Nome = 'Brasil'
var
     _letra: char

for _letra in Nome do
     showmessage( _letra ) ;

neste exemplo, defini uma constante de caracteres ("Brasil"). Na sequência defini uma variável do tipo 'char'.
O For..in internamente, identifica cada um dos dados na coleção referenciada após o in, e então a cada iteração é atribuída a variável antes do in, o dado em foco, algo assim:

na primeira iteração

[ B ] rasil

_letra := 'B'

na segunda iteração

B [ r ] asil

_letra := 'r'

na terceira iteração

Br [ a ] sil

_letra := 'a'

na quarta iteração

Bra [ s ] il

_letra := 's'

na quinta iteração

Bras [ i ] l

_letra := 'i'

na sexta iteração

Brasi [ l ]

_letra := 'l'

ou seja, a variável que recebe o dado contido na coleção, deve corresponder à menor parcela desta coleção. Neste exemplo, a constante é uma cadeia de caracteres, ou seja, uma String, sendo necessário que a variável "_letra" seja do tipo char.

2º) Usando "Integer"

const Numeros: array [0..2] of integer = ( 1, 2, 3 ) ;
var
     _numero: integer
for _numero in Numeros do     showmessage( IntToStr( _numero ) ) ;

no caso do trato de "integer" é necessário passar um array visto que se passemos um número "direto", como:

Numeros = 123

e tentasse varrer via For..in o compilador iria entender que não existe coleção mas sim um número qualquer.
Desta forma torna-se necessário separar os números em memória e atribuí-los ao mesmo identificador, no caso, a constante "Numeros".

O funcionamento de varredura é exatamente o mesmo aplicado no primeiro exemplo.

Espero que este conteúdo seja útil!

Até +

Simular algum cenário em DEBUG

Como testar uma determinada situação sem ter que inserir valores através da interface gráfica? Vou mostrar um exemplo.

Como sempre, usarei um exemplo simples para demonstrar o uso de Diretivas de compilação na simplificação de testes, porém existem outras formas de se fazer testes. Vamos lá!

A título de teste, criei uma função chamada "IsNumber", que basicamente verifica se um determinado char recebido como parâmetro é um número, segue a declaração da função:

function IsNumber( loChar: char ): boolean ;

Após isto, no evento "OnClick" de um botão qualquer, faço um teste:

procedure TfrmMain.btnIsNumberClick(Sender: TObject);

begin

     showmessage( ifThen( IsNumber( '1' ), 'É um número', 'Não é um número' ) );

end;

// falei sobre ifThen neste post...

Porém existem situações muito mais complexas, que existem muito mais que um input, neste caso, seria muito trabalhoso ficar preenchendo campos e etc...precisamos testar a função o mais rápido possível dependendo do projeto. Para isso, podemos automatizar o teste, condicionando esta operação ao modo como a aplicação está sendo compilada: DEBUG ou RELEASE.

Veja como é a implementação da função "IsNumber":

function TfrmMain.IsNumber(loChar: char): boolean;

begin

     result := loChar in ['0'..'9'] ;     

end;

Agora, vou incluir o preenchimento do parâmetro "loChar" dentro da própria função, quando a forma de compilação estiver em DEBUG:

function TfrmMain.IsNumber(loChar: char): boolean;

begin

     {$IFDEF DEBUG}

     loChar := 'a' ;

     {$ENDIF}

     result := loChar in ['0'..'9'] ;

     {$IFDEF DEBUG}

     showmessage( ifThen( result, 'É um número', 'Não é um número' ) );

     {$ENDIF}

end;

Veja que coloquei a verificação de "Debug" em dois momentos. Para resumir, quando o projeto estiver em modo "Debug", não será necessário passar nenhum valor como parâmetro para a função "IsNumber", visto que internamente já existe a alimentação deste parâmetro.

Espero que seja útil!

Até+