Bem vindo ao LifeGames Demo
Cadastre-se agora para ter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações de status post, gerir o seu perfil e muito mais. Esta mensagem será removida assim que tiver logado.
Entrar Cadastre-se


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

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 criando funçao externa no delphi em Qua Abr 17, 2013 7:51 pm

Moedas Moedas : 201
Mensagens Mensagens : 92
Humor Humor : *-*
Reputação Reputação : 5
Quebra de regras:
0 / 1000 / 100

hacker fts315

Moderador Informática

Moderador Informática

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

Ver perfil do usuário http://www.facebook.com/hacker.fts315

Ver o tópico anterior Ver o tópico seguinte 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