Cassic

Sub-Rotina sem Retorno

Autor: Tadeu Pereira

  Sempre que existir um bloco de códigos usado repetidas vezes o desenvolvedor deve criar uma sub-rotina, dessa maneira quando precisar usar aquele bloco de código novamente apenas fará uma chamada ao mesmo. Outro uso de sub-rotina é para dividir um código grande em partes menores para facilitar a compreensão.

  Quando a sub-rotina não precisar retornar nenhum valor após sua execução ela é declarada com a palavra chave procedure.

  Sintaxe:

  procedure Nome_Sub_Rotina;
   Crie um novo projeto e configure:
Formulário
Propriedade
Valor
Height
194
Width
255
 
SpinEdit
Propriedade
Valor
Left
95
Name
SEdBase
Top
20
SpinEdit
Propriedade
Valor
Left
95
Name
SEdExpo
Top
50
 
Label
Propriedade
Valor
Caption
Base
Left
60
Top
23
Label
Propriedade
Valor
Caption
Expôente
Left
39
Top
53
 
Label
Propriedade
Valor
Caption
Resultado :
Left
30
Name
LblResultado
Top
90
Button
Propriedade
Valor
Caption
Ok
Left
86
Name
BtnPortenc
Top
120

Figura 1 – Projeto Potencia

  Na seção private declare a identificação do procedimento:

  procedure Potencia;

  Com o prompot sobre a linha da identificação do procedimento tecle <Ctrl+Shift+C> para criar o procedimento e em seguida digite o código em negrito:

01
procedure TForm1.Potencia;
02
var
03
  Contador, Resultado: Integer;
04
begin
05
  Resultado := 1;
06
  for Contador := 1 to SEdExpo.Value do
07
    Resultado := Resultado * SEdBase.Value;
08
  LblResultado.Caption := 'Resultado : ' + IntToStr( Resultado );
09
end;

     Esse procedimento é bem simples, a linha 06 entra em um looping de 1 ao valor informado como expoente, enquanto esse looping estiver sendo executado será multiplicado o valor atual da variável Resultado, que inicia com valor 1, pelo valor base informada pelo usuário. A linha 08 mostra o resultado no label.

     No evento OnClick do BtnPortenc faça a chamada do procedimento anterior:

01
procedure TForm1.BtnPortencClick(Sender: TObject);
02
begin
03
  Potencia;
04
end;