USUALA

Objetivo

Aprender a declarar variáveis com o escopo desejado: variável com escopo de procedure; com escopo de formulário; com escopo de unidade e com escopo de aplicação.

Componentes Utilizados

Form, Label, Button.

Escopo de Variáveis

Criar um formulário que permita o estudo do escopo de variáveis:
Visível só dentro de uma Procedure com duração de vida proporcional ao tempo de vida da procedure (declarada na procedure).
Visível só dentro de uma Procedure mas com duração proporcional ao tempo de vida da aplicação (Const na procedure).
Visível dentro do Form com duração de vida proporcional ao formulário (escopo de implementação).
Visível dentro da Unidade com duração de vida proporcional à aplicação (escopo de interface).

Desenvolver o Projeto

Primeira parte do exercício: Acesso sem erro

1. Criar uma unidade e inserir a variável a seguir na seção interface do módulo (frmEscopo).
IntConta_4: integer = 0;

2. Colocar os Labels sem alterar a propriedade (Name). Alterar só a propriedade Caption, e quando precisar, a propriedade Font.
Para os labels indicados abaixo alterar a propriedade (Name):
Label4 - (Name): label4
Label5 - (Name): label5
Label6 - (Name): label6
Label7 - (Name): label7
Label8 - (Name): label8
Label9 - (Name): label9

3. Colocar seis botões e alterar a propriedade (Name) e Caption conforme indicado abaixo:
(Name) - locProc Caption – Declarada dentro de PROCEDURE
(Name) - staticProc Caption – Const dentro de PROCEDURE
(Name) - formProc Caption – Declarada dentro de FORM (Form1)
(Name) - unitProc Caption – Declarada dentro de UNIT (unit1)
(Name) - limpa Caption – Limpar
(Name) - fecha Caption – Fechar

4. Criar a variável a seguir, na seção implementation do formulário (frmEscopo). intConta_3: Integer = 0; // Escopo do frmEscopo.

5. Inserir os códigos no evento Click do botão correspondente:

procedure TfrmEscopo.locProcClick(Sender: TObject);
var