Funções Duvidas ???

Delphi

27/12/2003

Onde crio funcoes para serem enxergadas em todo o aplicativo ?

Gostaria de criar uma função e onde eu chamar ela funcione, sem eu precisar colocar o nome do formulário que ele foi criada


Nilson


T+

Obrigado a Todos


Emery

Emery

Curtidas 0

Respostas

Beppe

Beppe

27/12/2003

Não tem como. E eu nunca tive problemas com isso.


GOSTEI 0
Emery

Emery

27/12/2003

Cria uma em cada formulário, ou a chama com o nome do formulário de origem


Emery

T+


GOSTEI 0
Deus

Deus

27/12/2003

Como assim, não tem como?! Diga assim: ´eu não sei fazer´, mas não diga ´não tem como´ quando há uma forma - e simples! O que você tem que fazer é o seguinte:

1) Clique em File -> New -> Unit; Vai ser criada uma nova Unit, e vai aparecer algo mais ou menos assim:

unit Unit1;

interface

implementation

end.


2) Implemente na Unit as funções que você quer usar, como, por exemplo:

unit Unit1;

interface

  function SomarDoisNumeros(a, b: Integer): Integer;

implementation

  function SomarDoisNumeros(a, b: Integer): Integer;
  begin
    Result := a + b;
  end;

end.


Agora, é só você adicionar essa [i:6358e67950]Unit[/i:6358e67950] recém-criada à cláusula [i:6358e67950]uses[/i:6358e67950] dos [i:6358e67950]Forms[/i:6358e67950] que vão chamar a função. Agora, você pode tranquilamente usar a função, sem precisar colocar o nome da [i:6358e67950]Unit[/i:6358e67950] antes. É assim que funcionam as funções e objetos das units [i:6358e67950]Windows, Messages, Math, DB[/i:6358e67950], entre outras. Você muitas vezes nem sabe de onde está vindo a função que você está executando, e com a sua [i:6358e67950]Unit[/i:6358e67950] configurada desse jeito, vai funcionar igual.

Espero que seja isso o que você estava procurando... Abraços, dEUS.


GOSTEI 0
Emery

Emery

27/12/2003

Valeu, muito obrigado

T+


GOSTEI 0
POSTAR