Procedimentos - Delphi

Procedimentos e funções são essenciais para nós programadores, pois permite a nós usarmos um trecho de código quantas vezes quisermos sem ter que reescreve-lo.

Exemplo de Procedimento:


procedure DigaOla;
begin
   ShowMessage('Olá');
end;

Após criarmos o procedimento, podemos chamá-lo em qualquer evento, por exemplo:




procedure TForm1.Button1Click(Sender: TObject);
begin
    DigaOla;
end;

No exemplo acima, quando o usuário clicar no Button1, será chamado o procedimento DigaOla que foi declarado anteriormente.
Um procedimento pode não ser apenas uma ação pré-definida pelo programador, mas também pode ter argumentos, por exemplo:

- Adicione um TEdit e um TButton ao Form.
- Adicione a seguinte procedure:


procedure MostreMensagem(mensagem: string);
begin
   ShowMessage(mensagem);
end;

Repare que, a procedure acima possui uma declaração após o nome dela. (mensagem: string);
Esta declaração, é uma variável que se tornará um argumento quando essa procedure for chamada.
Dentro dela, temos um ShowMessage, e a variável mensagem como argumento, ou seja, a mensagem a ser mostrada será a variável mensagem.
Para verificarmos o resultado, podemos chamar a procedure dentro do evento onClick do botão.


procedure TForm1.Button1Click(Sender: TObject);
begin
    MostreMensagem(Edit1.Text);
end;

Como declaramos na procedure a variável mensagem como do tipo string, podemos usar qualquer string como argumento, no caso acima, usei o texto do Edit1.

As procedures não necessariamente podem ter só um argumento, mas quantos forem necessários e do tipo que forem necessários.

procedure Soma(numero1: integer; numero2: integer);
begin
   ShowMessage('O resultado é ' + IntToStr(numero1 + numero2));
end;

Dessa forma, podemos chamar o procedimento com 2 números inteiros:


procedure TForm2.Button1Click(Sender: TObject);
begin
    Soma(5, 3);
end;

Abraços e até a próxima.