Código
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 *)
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009