 |
|
Você está aqui: Delphi ::: Fundamentos da Linguagem ::: Estruturas de Controle |
|||
Delphi para iniciantes: Como usar o laço de repetição for do DelphiQuantidade de visualizações: 21886 vezes |
|||
|
O laço for do Delphi (linguagem Object Pascal) é usado quando queremos que um determinado bloco de instruções seja executado um determinado número de vezes. Na maioria das vezes a execução deste laço é controlada por uma variável de controle, que deve ser declarada antes de seu uso. Veja um laço for que contará de 0 até 10 (incluído):
Veja que o valor da variável de controle i começa em 0 e é incrementado a cada iteração até que seu valor seja igual a 10, o que faz com que a execução do laço seja interrompida. A variável de controle de um laço for deve ser do tipo ordinal (inteiro, caractere, Boolean, enumerações ou sub-faixas) e não pode ser alterada dentro do laço. Veja:
Ao tentarmos compilar este código teremos o seguinte erro: [DCC Error] Unit1.pas(107): E2081 Assignment to FOR-Loop variable 'i' Este erro nos informa que não é possível atribuir valor a uma variável de controle dentro do laço for. Se quisermos que o laço "conte" de trás para frente, podemos substituir a palavra-chave to por downto. Veja:
Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009. |
|||
 Link para compartilhar na Internet ou com seus amigos: |
|||
Delphi ::: Data Access Controls (Controles de Acesso a Dados) ::: TClientDataSet |
Como obter o número do registro atual em um TClientDataSet do Delphi usando a propriedade RecNoQuantidade de visualizações: 12894 vezes |
|
Em algumas situações gostaríamos de obter o número do registro atual enquanto navegamos pelos registros de um TClientDataSet. Isso pode ser feito por meio da propriedade RecNo (implementada na classe TDataSet e reimplementada na classe TClientDataSet). O retorno da propriedade é sempre um valor inteiro representando o registro atual. Na implementação da classe TClientDataSet, esta propriedade retorna o valor -1 se o componente estiver no estado (State) dsInsert (um novo registro estiver sendo inserido). Veja um trecho de código no qual usamos o evento OnClick de um botão para exibir o número do registro atual em um TClientDataSet: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
procedure TForm3.Button3Click(Sender: TObject);
var
nRegistro: Integer;
begin
// obtém o número do registro atual no TClientDataSet
nRegistro := ClientDataSet1.RecNo;
// mostra o resultado
ShowMessage('O número do registro atual é: ' + IntToStr(nRegistro));
end;
Ao executar o código e clicar no botão você verá uma mensagem parecida com: "O número do registro atual é: 5". Esta dica foi escrita e testada no Delphi 2009. |
Delphi ::: Dicas & Truques ::: Matemática e Estatística |
Como calcular porcentagem em Delphi - Como efetuar cálculos de porcentagem em DelphiQuantidade de visualizações: 30449 vezes |
|
Cálculos de porcentagens estão presentes em boa parte das aplicações que desenvolvemos. Porém, há momentos em que a mente trava e não conseguimos lembrar com clareza como estes cálculos são feitos, principalmente em Delphi. Esta anotação tem o objetivo de ser uma fonte de pesquisa para os momentos em que suas habilidades matemáticas insistirem em continuar ocultas. Ex: 1 - Suponhamos que um produto que custe R$ 178,00 sofra um acréscimo de 15%. Qual o valor final do produto? Veja o código em Delphi: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
// Algoritmo que calcula porcentagem em Delphi
program estudos_delphi;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
// variáveis usadas na resolução do problema
valor, percentual, valor_final: double;
begin
valor := 178.00; // valor original
percentual := 15.0 / 100.0; // 15%
valor_final := valor + (percentual * valor);
// mostra o resultado
WriteLn('O valor final do produto é: ' + FloatToStr(valor_final));
// O resultado será 204,70
WriteLn;
Write('Pressione Enter para sair...');
ReadLn;
end.
Ex: 2 - Um produto, cujo valor original era de R$ 250,00, teve um desconto de 8%. Qual foi seu valor final? Veja o código em Delphi: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
// Algoritmo que calcula porcentagem em Delphi
program estudos_delphi;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
// variáveis usadas na resolução do problema
valor, percentual, valor_final: double;
begin
valor := 250.00; // valor original
percentual := 8.0 / 100.0; // 8%
valor_final := valor - (percentual * valor);
// mostra o resultado
WriteLn('O valor final do produto é: ' + FloatToStr(valor_final));
// O resultado será 230,00
WriteLn;
Write('Pressione Enter para sair...');
ReadLn;
end.
Ex: 3 - Em um concurso de perguntas e respostas, um jovem acertou 72 das 90 perguntas apresentadas. Qual foi a porcentagem de acertos? E a porcentagem de erros? Veja o código em Delphi: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
// Algoritmo que calcula porcentagem em Delphi
program estudos_delphi;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
// variáveis usadas na resolução do problema
perguntas, acertos: double;
begin
perguntas := 90.0;
acertos := 72.0;
// mostra a porcentagem de acertos
WriteLn('Porcentagem de acertos: ' +
FloatToStr((acertos / perguntas) * 100) + '%');
// mostra a porcentagem de erros
WriteLn('Porcentagem de erros: ' +
FloatToStr(((perguntas - acertos) / perguntas) * 100) + '%');
// Os resultados serão 80% e 20%
WriteLn;
Write('Pressione Enter para sair...');
ReadLn;
end.
Ex: 4 - Um aparelho de CD foi adquirido por R$ 300,00 e revendido por R$ 340,00. Qual foi a porcentagem de lucro na transação? Veja o código em Delphi: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
// Algoritmo que calcula porcentagem em Delphi
program estudos_delphi;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
// variáveis usadas na resolução do problema
valor_anterior, novo_valor, porcentagem_lucro: double;
begin
valor_anterior := 300.0; // valor anterior
novo_valor := 340.0; // valor novo
// calcula a porcentagem de lucro
// efetua o cálculo
porcentagem_lucro := ((novo_valor * 100) / valor_anterior) - 100;
WriteLn('A porcentagem de lucro foi de: ' +
FloatToStr(porcentagem_lucro) + '%');
// O resultado será 13,33
WriteLn;
Write('Pressione Enter para sair...');
ReadLn;
end.
Ex: 5 - Uma loja repassa 5% do lucro a seus vendedores. Se um produto custa R$ 70,00, qual o valor em reais repassado a um determinado vendedor? Veja o código em Delphi: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
// Algoritmo que calcula porcentagem em Delphi
program estudos_delphi;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
// variáveis usadas na resolução do problema
valor, percentual, comissao: double;
begin
valor := 70.0; // valor do produto
percentual := 5.0 / 100.0; // 5%
// calcula a comissão
comissao := percentual * valor;
// mostra o resultado
WriteLn('O valor repassado ao vendedor é: '
+ FloatToStr(comissao));
// O resultado será 3,5
WriteLn;
Write('Pressione Enter para sair...');
ReadLn;
end.
|
Delphi ::: VCL - Visual Component Library ::: TEdit |
Como obter a quantidade de caracteres em um TEdit do Delphi usando a função GetTextLen()Quantidade de visualizações: 12452 vezes |
|
Em algumas ocasiões nós precisamos descobrir a quantidade de caracteres contidos em uma caixa de texto do tipo TEdit. Para isso podemos usar o método GetTextLen(), definido originalmente na classe TControl. Esta função retorna um valor inteiro contendo o tamanho do texto da caixa de texto. Veja um exemplo do uso do método GetTextLen() no trecho de código a seguir: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
tamanho: Integer;
begin
// vamos obter a quantidade de caracteres no TEdit
tamanho := Edit1.GetTextLen();
// vamos mostrar o resultado
ShowMessage('O Edit contém ' + IntToStr(tamanho) + ' caracteres.');
end;
Ao executar este exemplo você terá um resultado parecido com: O Edit contém 5 caracteres. |
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
Códigos Fonte |
 Software de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimentoDiga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais |
 Controle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidadesTenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais |
Linguagens Mais Populares |
|
1º lugar: Java |
