criando funçao externa no delphi

as funçoes sao algoritimos ja pronto q permite utilizar elas em mais de uma source, por exemplo vc poderia criar uma funçao q faz uma soma e usar essa funçao em varios programas futuramente, veja um exemplo de um programa em delphi usando uma funçao

Código:


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function fts(valor: integer): integer;
begin
    valor:= valor * valor;
    fts:= valor;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  showmessage(inttostr(fts(4)));
end;

end.


eu colei toda source aq para mostra, mais a funçao em si so é essa parte

function fts(valor: integer): integer;
begin
valor:= valor * valor;
fts:= valor;
end;

a funçao acima se chama fts ela vai retorna um valor do tipo inteiro e tem uma variavel nela chamado valor q vai receber um numero inteiro (nao vou entrar em detalhes sobre as funçao), dentro da funçao o valor q vai entrar nela vai ser multiplicado por ele mesmo e depois vai retorna essa valor (em outras palavra minha funçao retorna o quadrado de um numero) na parte

showmessage(inttostr(fts(4)));

e a parte q envia o valor e ao mesmo tempo exibi o retorno da funçao, showmessage(inttostr()) essa parte nao e muito importante so serve para exibir o valor, a parte fts(4) e a parte q agente chama a funçao enviando o valor 4 para ela, como eu disse antes nao vou entrar em detalhes sobre a funçao (ja fiz um tutorial de como criar funaçao em pascal e delphi), a funçao em si agente poderia colocar em um outro arquivo separado dessa source e quando agente fosse usar ela so chamar (vem ca tótó kkkkkkk), para criar uma funçao externa no delphi basta lembrar desses codigos abaixo

Código:


unit nome;

interface

implementation

begin

end.


depois de digitar o codigo acima salva com o nome nome.pas (caso vc for salvar com outro nome diferente de nome.pas mude tambem o nome na unit), a nossa funçao agente vai escreve antes do begin e antes do implementation agente vai ter q colocar a assinatura da funçao para ela ficar visivel na source veja o exemplo (assinatura ou prototipo e aperte inicial da funçao)

Código:


unit nome;

interface

function fts(valor: integer): integer;

implementation

function fts(valor: integer): integer;
begin
valor:= valor * valor;
fts:= valor;
end;

begin

end.


depois de salva com o nome nome.pas (no meu exemplo aq) vc coloca na mesma pasta da source e quando for usar ela basta declarar ela em uses no meu caso aq eu tenho q declarar nome

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, nome;

e usar a funçao ^^ , veja a source como fico

Código:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, nome;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  showmessage(inttostr(fts(4)));
end;

end.


a unica coisa de diferente q a funçao ta em outro arquivo e tambem tivemos q declarar o nome dela, porem a mais vantajoso fazer isso pq eu posso usar aquela funçao em qualquer outra source nao preciso copiar dessa e colar nas outras so colocar ela na mesma pasta ^^

by hacker fts315