Criar uma unit com funções.

Delphi

08/06/2004

Gostaria de saber como faço para criar uma unit (sem o FORM), com todas as minhas funções. E depois como faço para chamar essa função desta Unit, em um outro form.

Pois quando a função esta no FORM. eu coloco o nome do form, mais o ´.´ e o nome da função, e quando esta na Unit como faço?


Sistemp

Sistemp

Curtidas 0

Melhor post

Vinicius2k

Vinicius2k

08/06/2004

Colega,

Veja :
unit unt_funcoes;

interface
uses
  Windows, SysUtils, Classes, Forms;

// aqui os cabeçalhos das funções/procedures que serão vistas
// às demais units
procedure MsgErro(Text: String);
procedure MsgInfo(Text: String);

implementation

// aqui a implementação das funções/procedures
procedure MsgErro(Text: String);
begin
  Application.MessageBox(Pchar(Text),´Erro´,mb_OK + mb_iconHand);
end;

procedure MsgInfo(Text: String);
begin
  Application.MessageBox(Pchar(Text),´Informação´,mb_OK + mb_iconinformation);
end;

end.


No form, logo após o inicio da seção implementation, vc acrescenta a unit de funções na lista de uses, quando precisar de uma função é só chamá-la ´pelo nome´... assim:
...
var
  frm_login: Tfrm_login;

implementation

uses unt_funcoes;

{$R *.dfm}

procedure Tfrm_login.btn_OKClick(Sender: TObject);
begin
  try
  ...
  except
    on E: Exception do
      begin
        // aqui chamei minha procedure...
        MsgErro(´Ocorreu um erro ao tentar efetuar o Login.´ + #13 + 13 + E.Message);
        ...
      end;
  end;
end;

...
end.


Espero ter ajudado...
T+


GOSTEI 1

Mais Respostas

Lucas Silva

Lucas Silva

08/06/2004

unit uteste
..
...
function dois: String;


no form
 uses uTeste,....

private
  teste: TTeste;
public
...
...
...
 // na hora de chamar é só colocar
  teste.dois;



GOSTEI 0
Paulo_amorim

Paulo_amorim

08/06/2004

Olá

Para criar uma Unit vá em File|New|Unit
Declare as funções somente com o nome...ou seja, sem pai



Para usar no Form, coloque essa Unit na Uses...
Os procedimentos já estarão disponíveis como comandos...

P.Ex
se na Unit vc declarou
procedure FazAlgo(Par: String);


no form vc chama normalmente como um procedimento
FazAlgo(´MinhaString´);


Espero que ajude
Até+


GOSTEI 0
POSTAR