seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Você não está conectado. Conecte-se ou registre-se

 » Programação Desktop » Pascal / Delphi » [tutorial] criando funçao externa no delphi

[tutorial] criando funçao externa no delphi

Ir em baixo  Mensagem [Página 1 de 1]

1 [tutorial] criando funçao externa no delphi em Seg Maio 21, 2012 9:10 am

Kodo no Kami

avatar
master
master
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


_________________ASSINATURA_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

Contato:
Spoiler:

Contato:
Facebook: [Você precisa estar registrado e conectado para ver este link.]
Skype: hackerfts315
http://endoffile.umforum.net

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum