Unit somente com procedures e function

Delphi

22/09/2005

bom dia, pessoal.

Tenho um projeto e gostaria de criar uma unit somente com PROCEDIMENTOS E FUNÇÕES e depois chamar esta Unit com esses métodos num outro form.

como faço pra criar uma Unit com procedimentos e funções?

obrigado


Rafael Santana

Rafael Santana

Curtidas 0

Respostas

Massuda

Massuda

22/09/2005

Dê [b:05ae213520]File|New|Other[/b:05ae213520] (dependendo da sua versão de Delphi é [b:05ae213520]File|New|New[/b:05ae213520]) e escolha [b:05ae213520]unit[/b:05ae213520].

Declare suas functions/procedure públicas na seção interface e implemente tudo na seção implementation.

Nas units onde suas functions/procedures serão usadas, basta incluir o nome da unit com as functions/procedures no uses.


GOSTEI 0
Rafael Santana

Rafael Santana

22/09/2005

amigo MASSUDA, dá erro...nao tem como me mandar ume exemplo?

deve estar faltando algo nestes comandos


GOSTEI 0
Massuda

Massuda

22/09/2005

[quote:483012927c=´rafael miguel santana´]dá erro...[/quote:483012927c]Qual?
[quote:483012927c=´rafael miguel santana´]nao tem como me mandar ume exemplo?[/quote:483012927c]Seria melhor você postar seu código.


GOSTEI 0
Mau_andrade2

Mau_andrade2

22/09/2005

tente colocar sua biblioteca de funções na oredm de utilização no meu caso a biblioteca é a ufuncao

Mauricio

program Rel;

uses
Forms,
uFuncao in ´uFuncao.pas´,
uDm in ´uDm.pas´ {Dm: TDataModule},
uRelatorio in ´uRelatorio.pas´ ;


{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TfRelatorio, fRelatorio);
Application.CreateForm(TDm, Dm);
Application.Run;
end.


GOSTEI 0
Rafael Santana

Rafael Santana

22/09/2005

ok, mas eu não consegui criar uma UNIT somente com os procedimentos e métodos, preciso de ajuda pra isso, de preferência umexemplo.

obrigado


GOSTEI 0
Fabiano Góes

Fabiano Góes

22/09/2005

Rafael Tenta fazer assim:

1 - Entre no Delphi feche todos os seus projetos e então clique em File >> New >> Unit.
2 - O Delphi vai criar pra você uma unit nova com a seguinte estrutura.
Código:

unit Unit2;

interface

implementation

end.


3 - Salve-a em um local onde todos os seus projetos podem vê-la, por exemplo: C:\Projetos\MinhasFuncoes
4 - Entre no Tools >> Enviroments Options >> Library e inclua o endereço da sua Unit no Library Path
Obs: Desta forma todos os seus projetos podem enxergar a Unit criada.
5 - Crie suas variáveis, constantes, types, functions e etc.
Obs. Não se esqueça, você deve declarar variáveis, constantes, types, classe etc e também o escopo das functions e procedures antes do interface.
Após o implementation você coloca o código (alogoritimo) das suas functions e procedures.

Bleza, isso criado basta você salvar.
Abra seu projeto e no uses (o 1º de preferência) declare o nome da unit que vc criou por exemplo MinhasFuncoes.

Já era, agora é só colocar tudo lá.

Abraço

Exemplo de uma Unit
Código: 
unit MyLib; 

{$WARNINGS OFF} 
{$HINTS OFF} 

interface 

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  Menus, Buttons, ExtCtrls, StdCtrls, ComCtrls, ToolWin, ImgList, DBTables, DB, 
  DbGrids, ShellApi, Jpeg, XpMenu, Registry, Grids, Ambiente, Typinfo, DbCtrls; 

 
 
function Dc_MessageDlg(Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; IndiceHelp: LongInt; DefButton: TMOdalResult = mrNone; Portugues: Boolean = True): Word; 

implementation 

function Dc_MessageDlg(Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; IndiceHelp: LongInt; DefButton: TMOdalResult = mrNone; Portugues: Boolean = True): Word; 
var 
  I: Integer; 
  Mensagem: TForm; 
begin 
  Mensagem := CreateMessageDialog(Msg, AType, Abuttons); 
  Mensagem.HelpContext := IndiceHelp; 
  with Mensagem do begin 
    for i := 0 to ComponentCount - 1 do begin 
      if (Components[i] is TButton) then begin 
        if (TButton(Components[i]).ModalResult = DefButton) then begin 
          ActiveControl := TWincontrol(Components[i]); 
        end; 
      end; 
    end; 
    if Portugues then begin 
      if Atype = mtConfirmation then Caption := ´Confirmação´ 
      else if AType = mtWarning then Caption := ´Aviso´ 
      else if AType = mtError then Caption := ´Erro´ 
      else if AType = mtInformation then Caption := ´Informação´; 
    end; 
  end; 
  if Portugues then begin 
    TButton(Mensagem.FindComponent(´YES´)).Caption := ´&Sim´; 
    TButton(Mensagem.FindComponent(´NO´)).Caption := ´&Não´; 
    TButton(Mensagem.FindComponent(´CANCEL´)).Caption := ´&Cancelar´; 
    TButton(Mensagem.FindComponent(´ABORT´)).Caption := ´&Abortar´; 
    TButton(Mensagem.FindComponent(´RETRY´)).Caption := ´&Repetir´; 
    TButton(Mensagem.FindComponent(´IGNORE´)).Caption := ´&Ignorar´; 
    TButton(Mensagem.FindComponent(´ALL´)).Caption := ´&Todos´; 
    TButton(Mensagem.FindComponent(´HELP´)).Caption := ´A&juda´; 
  end; 
  Result := Mensagem.ShowModal; 
  Mensagem.Free; 
end; 
end.



GOSTEI 0
POSTAR