Baixe Delphi Aplicado Módulo 1B e outras Notas de estudo em PDF para Tecnologia Industrial, somente na Docsity!
Identificadores
Identificadores podem ser constantes, tipos, variáveis, procedures, funções, unidades, programas e campos de registros. Não existe limite de caracteres para o nome de um identificador mas apenas os 63 primeiros caracteres são significantes (não podendo ser idêntico ao nome das palavras reservadas). O nome de um identificador deve ser iniciado por Letras ou o carácter underscore ( _ ). O resto é formado por Letras, Dígitos, carácter underscore (ASCII $5F). Não é permitido a utilização de espaços para a formação do nome.
+ Exemplo de identificadores válidos: Form1, SysUtils.StrLen, Label1.Caption
With ... do...
Delimita um determinado bloco de declarações para um identificador específico evitando a declaração deste identificador. A sintaxe do comando é: WITH {nome do identificador} DO {comandos};. Ex:
Array [ ... ] of ...
Define um conjunto de variáveis ou constantes de um mesmo tipo. A sintaxe do comando é: array [{quantidade de ocorrencias}] of {Tipo};. Os arrays são controlados por três funções:
Função Valor de Retorno Low Primeiro elemento High Aponta para o último elemento SizeOf Tamanho do array
Begin ... end;
Prende um conjunto de declarações em um bloco de comandos determinado. A sintaxe do comando é: BEGIN {comandos} END;.
If ... then ... else ...
Esta expressão escolhe entre o resultado de uma condição booleana o caminho verdadeiro (then) ou falso (else). A sintaxe do comando é: IF {condição} THEN {bloco de comandos} ELSE {bloco de comandos};.
Goto ... ;
Transfere a execução de um programa para o ponto determinado pelo Label. A sintaxe do comando é: GOTO {Label};. Ex:
While ... do ... ;
Repete um bloco de comandos enquanto que determinada condição booleana seja satisfeita. A sintaxe do comando é: WHILE {condição} DO {bloco de comandos};. Ex:
Break; ou continue...;
O comando break interrompe um bloco de repetição for , while ou repeat saindo do bloco. A sintaxe do comando é: BREAK; enquanto que o comando continue retorna a primeira instrução do bloco de repetição for , while ou repeat. A sintaxe do comando é: CONTINUE;. Ex:
R Animando formulário
R Como depurar ( encontrar ) possíveis erros no programa?
O que é depurar? É como “passar um pente fino” no programa, e verificar erros que podem ser de lógica e que podem afetar o perfeito funcionamento de um sistema. Tecnicamente conhecido como “Debug”, as opções existentes no Delphi e são de extrema importância para a verificação de erros em um sistema.
A mais comum é a marcação de Breakpoints , que são locais dentro do programa que, quando executados paralisam o funcionamento do programa, e permite a visualização de uma variável, por exemplo.
Para marcar uma linha, clique no lado esquerdo ( no editor de código do Delphi ), pressione a tecla de função F5 , após pressione F9 para rodar o programa, no exemplo abaixo foi digitado no campo1 ( edit1 ) o número 10 e no campo2 ( edit2 ) o número 20 , quando chegar neste ponto ( break point = quebra de ponto ), o ponteiro posicionará na linha em vermelho, posicione o mouse sobre a variável vl1 e será mostrado o conteúdo, aqui o valor 10.
R Depurando erros com Watch List
É uma maneira para visualizar o conteúdo de variáveis quando estiver desenvolvendo seu projeto, tornando trabalho mais dinâmico.
Posicione o ponteiro do mouse sobre a variável vl1 para visualizar o conteúdo da variável.
Posicione o ponteiro do mouse sobre a variável vl2 para ver o conteúdo da variável.
Posicione na linha que deseja fazer o BreakPoint e pressione F5, após prossiga pressionando F7, F7 etc para continuar com a depuração
Œ Digite o código abaixo no evento OnClick do botão BitBtn.
R Como alinhar botões?
No primeiro exemplo alinharemos os botões na vertical.
Alinhamento horizontal
Selecione todos os botões. Para selecionar mantenha pressionada a tecla CTRL , arraste o mouse formando um retângulo sobre todos os botões. Quando os botões estão selecionados são mostrados pontinhos em seus cantos indicando a seleção dos mesmos.
Após clicar na opção Align será aberta outra tela. Estamos querendo alinhar todos os botões para esquerda e que tenham o mesmo espaço na vertical.
Observe na caixa as opções marcadas.
Veja resultado, todos os botões foram alinhados para esquerda e com um espaçamento vertical igual.
Resultado do alinhamento do botões
R Como definir tamanho / altura para todos os botões?
Selecione todos os botões fazendo um retângulo em volta destes, clique no botão direito, será mostrado um menu de atalho com opções para fazer esta operação – veja abaixo – Position – Size
No gráfico da página anterior, selecionei a opção Size para definir um tamanho para todos os botões selecionados. Pode-se definir a largura do botão, comprimento, diminuir de acordo com o tamanho do menor botão possível etc.
R Abrindo link
Insira um component Label ( aba Standard ), dê um clique duplo sobre Label1 e digite o código abaixo: No início do programa na linha Uses digite ShellApi.
Veja os diferentes tamanhos dos botões
Agora todos os botões estão com o tamanho de 80 caracteres de largura.
R Como programar letras, números, teclas de função?
Vamos programar algumas letras.
procedure TFrm_Alunos.EditCepKeyPress(Sender: TObject; var Key: Char); begin
end; // Serão aceitos os números de ( 1 ate 8 ) e se for pressionado no numero NOVE // será inserido o número 1 UM ( #49 )
R Como por zeros no lado esquerdo de um número?
R Como forçar abertura do formulário maximizado?
No evento OnShow digite o código abaixo:
Código foi digitado no evento OnKey Press do campo Nome.
Quando o cursor no campo nome e for digitado a letra “ e ” ou “E” será mostrada a caixa de mensagem.
R Códigos do teclado em hexadecimal
vk_LButton = $01; vk_RButton = $02; vk_Cancel = $03; vk_MButton = $04; vk_Back = $08; vk_Tab = $09; vk_Clear = $0C; vk_Return = $0D; vk_Shift = $10; vk_Control = $11; vk_Menu = $12; vk_Pause = $13; vk_Capital = $14; vk_Escape = $1B; vk_Space = $20; vk_Prior = $21; vk_Next = $22;
vk_End = $23; vk_Home = $24; vk_Left = $25; vk_Up = $26; vk_Right = $27; vk_Down = $28; vk_Select = $29; vk_Print = $2A; vk_Execute = $2B; vk_SnapShot = $2C; vk_Insert = $2D; vk_Delete = $2E; vk_Help = $2F; vk_A até vk_Z = tem os mesmos valores ASCII: 'A' até 'Z' vk_0 até vk_9 = tem os mesmos valores ASCII: '0' até '9'
vk_NumPad0 = $60; // Blocos de números (lado direito do teclado) vk_NumPad1 = $61; vk_NumPad2 = $62; vk_NumPad3 = $63; vk_NumPad4 = $64; vk_NumPad5 = $65; vk_NumPad6 = $66; vk_NumPad7 = $67; vk_NumPad8 = $68; vk_NumPad9 = $69;
vk_Multiply = $6A; // multiplicação vk_Add = $6B; // adição vk_Separator = $6C; // separador vk_Subtract = $6D; // subtração vk_Decimal = $6E; // decimal
vk_NumLock = $90; vk_Scroll = $91;
vk_F1 = $70; ( tecla F1 ) vk_F2 = $71; ( tecla F2 ) vk_F3 = $72; ( tecla F3 ) vk_F4 = $73; ( tecla F4 ) vk_F5 = $74; vk_F6 = $75; vk_F7 = $76; vk_F8 = $77; vk_F9 = $78; vk_F10 = $79; vk_F11 = $7A; vk_F12 = $7B; vk_F13 = $7C; vk_F14 = $7D; vk_F15 = $7E; vk_F16 = $7F; vk_F17 = $80; vk_F18 = $81; vk_F19 = $82; vk_F20 = $83; vk_F21 = $84; vk_F22 = $85; vk_F23 = $86; vk_F24 = $87;
R Como definir ícones para o DBNavegator?
Como padrão o Delphi mostra os ícones “simples” como é mostrada na primeira tela abaixo, podemos definir outros ícones.
A tela abaixo mostra resultado de como fica após ter definido ícones para o DBNavigator
Digite o código abaixo como mostra para definir os ícones:
Digite o novo Type antes do Type gerado pelo Delphi. Note que há dois Type(s)
Botões padrão do navegador de dados.
Definindo ícones para o navegador.
O Delphi como padrão mostra símbolos no navegador. Como acho estes símbolos horríveis mostrarei como substituí-los por ícones J
Outra forma , usando evento OnShow
Os arquivos com a terminação .bmp ( arquivos de imagens ) devem estar na pasta onde se encontra o projeto.
R Programando os botões do navegador de registros
Conhecendo os valores e as propriedades dos botões do componente DBNavigator. Podemos programar cada um destes botões. Dê um clique duplo no objeto DBNavigator e digite o código abaixo:
Button Valor Ação First nbFirst Vai para o primeiro registro. Prior nbPrior Vai para o registro anterior. Next nbNext Vai para o próximo registro. Last nbLast Vai para o último registro. Insert nbInsert Insere um registro em branco. Delete nbDelete Apaga o registro atual. Edit nbEdit Permite editar o registro atual. Post nbPost Grava o registro atual. Cancel nbCancel Cancela a edição corrente. Refresh nbRefresh Atualiza (refresca) os dados no Dataset.
Button é o botão do próximo registro do Navigator. Quando clicado, mostrará uma mensagem.
Este é o valor (value) do botão próximo registro ( Next = nbNext ).
Veja a tabela os botões e seus valores.
Clique duplo no componente DBNavigator , no evento OnClick digite o código ao lado. è Após clicado no botão “inserir” será focado no campo “ código ” da tabela.
R Como criar botões para navegar nos registros da tabela?
Œ Crie um novo formulário: New Form.
- Altere as propriedades: Caption : Consulta - Name : Consulta_Frm. Ž Insira dois componentes: um Table e um DataSource.
- Clique no componente Table , defina propriedade DataBaseName para Madruga ( meu Alias ), role para baixo e altere a propriedade Name de Table1 para Clientes_TB , clique em TableName e defina o nome da tabela Clientes.db e defina a propriedade Active para True.
- Clique no componente DataSorce1 e defina propriedade DataSet para Clientes_TB e na propriedade Name defina o nome Clientes_DS. ‘ Clique no componente Table1 , agora nomeado para Clientes_TB , clique duplo em Clientes_TB , será aberta uma pequena tela em branco, clique no botão direito, posicione o ponteiro do mouse sobre esta tela em branco, clique em Add Fields , abrirá uma tela pequena mostrando todos os campos em azul, clique OK , após os campos serão inseridos no componente Table ou Clientes_TB.
’ Arraste todos os campos do componente Clientes_TB para dentro do formulário, isto montará todos os campos do formulário juntamente com o relacionamento dos campos na respectiva tabela.
Arraste todos os campos para dentro do formulário, o Delphi automaticamente associará cada campo com a tabela em uso.
Digite os respectivos códigos no evento OnClick de cada botão:
R Como calcular percentual em um “edit”?
Fazendo cálculos com percentual. Usaremos as funções FormatFloat (formata valor em casas decimais), StrToFloat (converte uma string/texto em ponto flutuante), FloatToString (converte ponto flutuante em string/texto): Insira 4 Edit ( aba Standard ) Edit1, Edit2, Edit3 e Edit4 e um Bitbtn.
R Como converter textos para números?
Uma Edit1 recebe texto então temos que usar conversores ( IntToStr = Inteiro para texto ou StrToInt = texto para inteiro etc ) para converter para número ou texto. Veja o exemplo a seguir:
Dê um clique duplo no botão Soma e no evento OnClick digite as linhas de código abaixo entre o Begin ... End :
Explicando linhas do código:
Total1 := StrToInt(Edit1.Text);
Total1 Variável inteira. := Atribui o conteúdo do Edit1.Text para armazenar na variável do tipo inteira Total1. StrToInt Converte texto para valor inteiro Edit1.Text É um objeto texto.
