Buscar

Como declarar uma função no delphi (simplificado)

Código

(* Nesta dica, você irá entender como se declara uma função, constrói o seu corpo e faz a chamada dentro da aplicação. Primeiramente, a função deve ser declarada no inicio do código da unit que pode ser:
Dentro do conteúdo de PRIVATE, PUBLIC, abaixo do USES, TYPE etc. Aí quem decide é você. Segue um exemplo de uma função que soma dois números, declarada dentro de PRIVATE.
  Uma função sempre começa com FUNCTION, seguida pelo nome da função, seguida pelos parametros e tipos dentro de parenteses e logo apos o tipo de retorno *)



//Exemplo :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function soma (a,b : integer) : integer;  //FUNÇÃO SOMA
  public
    { Public declarations }
  end;

(*Depois você deve construir a função dentro do corpo do programa como  segue a seguir:
   Observe que agora, antes do nome da função, deve-se colocar o nome e a classe do formulário. *)


function Tform1.soma (a,b : integer) : integer;
var c : integer;
begin
 c := a+b;
 result := c;
end;

(* Agora você pode chamar a função a qualquer hora dentro do programa.
   Veja o exemplo: *)


procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.caption := Inttostr(soma(3,2)); // Função SOMA com conversão de inteiro para string
end;


(DICA: Marcio Antônio - Uberaba -MG *)

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 23/08/06
Por: Marcio Junior
Visualizada: 72868 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009