Aula02 Apostila ALP Delphi

Pág: 1

Borland Delphi
Aula 2
Vamos montar um aplicativo para dizer ao usuário quantos anos de vida ainda restam a ele, de acordo com estudos do IBGE. O software deve solicitar o nome e a idade do usuário. Sabendo que a longevidade média do brasileiro é de 73 anos, apresentaremos quantos anos de vida (estimados) ele tem baseado nos dados do IBGE.
A tela deve ficar como abaixo:

Usaremos:
2
3
1

Edit (Guia ‘Standard’)
Labels (Guia ‘Standard’)
Button (Guia ‘Standard’)

O software deverá retornar o seguinte resultado:

Detalhes do projeto:
1) O objeto Label3 deve ter duas propriedades modificadas:
a) AutoSize: mantém o objeto com tamanho fixo, e não de acordo com o que está escrito
b) WordWrap: Ele irá automaticamente pular para a próxima linha quando a frase não couber na mesma linha.
F:\Meus
documentos\Aulas\DomBosco\ALP\Apostila ALP Delphi - Aula02.doc

Prof. Giovani Mancin Guidolin

Pág: 2

2) Quando o usuário digita a idade dele no Edit1, essa idade é armazenada no formato String (texto). Logo, para calcularmos os anos restantes, precisaremos converter a idade digitada para ‘integer’ (inteiro). A linha de código para isso é:
Anos := 72 - StrtoInt(Edit2.Text);
StrtoInt

StrtoInt() é a função utilizada para a conversão String

Integer.

3) Quando apresentamos o resultado ao usuário, você deve ter observado que incluímos, no corpo da mensagem, o nome do usuário e os anos restantes. Isso deve ser feito como um quebra-cabeças: você deve ir juntando as partes. Mas para que isso seja possível, as variáveis devem estar todas no formato ‘String’ (texto). A linha de código ficará assim:
Label3.Caption := 'O Sr.(a) '+ Edit1.Text + ' tem ' + InttoStr(Anos)
+
InttoStr
' anos de vida restantes, de acordo com o IBGE.';

IntToStr() é a função usada para conversões Integer

F:\Meus documentos\Aulas\DomBosco\ALP\Apostila ALP Delphi - Aula02.doc

String.

Prof. Giovani Mancin Guidolin