Criar uma unit com funções.
08/06/2004
0
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?
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
Curtir tópico
+ 0
Responder
Post mais votado
08/06/2004
Colega,
Veja :
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:
Espero ter ajudado...
T+
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+
Vinicius2k
Responder
Mais Posts
08/06/2004
Lucas Silva
unit uteste .. ... function dois: String;
no form
uses uTeste,.... private teste: TTeste; public ... ... ... // na hora de chamar é só colocar teste.dois;
Responder
08/06/2004
Paulo_amorim
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
no form vc chama normalmente como um procedimento
Espero que ajude
Até+
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é+
Responder
Clique aqui para fazer login e interagir na Comunidade :)