Chamada a uma Função

[Tetzner]

Ola,

Tenho um projeto com 2 forms ( 2 unit´s )

numa unit tenho uma funcao que gostaria de chamar nos dois .pas

como devo declarar/chamar a Função da Unit1 e usá-la tb na Unit 2 ?

[João Paulo Taraciuk]

Boa tarde Tetzner, digamos que está no form1

declare a função na Public declarations do form1, por exemplo

public

Procedure mensagem();

{ Public declarations }

Clicando CTRL + SHIFT + C coloque assim

procedure TForm1.mensagem;

begin

ShowMessage(DateToStr(Date)+' '+ TimeToStr(Time));

end;

então em um button do form2 chame assim

procedure TForm2.Button1Click(Sender: TObject);

begin

Form1.mensagem;

end;

Falou...

Editado Janeiro 10, 2008 por João Paulo Taraciuk

[Micheus]

Por outro lado, se a função não for parte de um form, como exemplificou o colega João Paulo, então você deve declarar seu cabeçalho na seção Interface da unit para que possa ser referenciada pela outra.

Ex.

Program Unit1;
Interface
Type
  TForm1 = Class(TForm)
    ...
  end;

function ProcessaInfo :Boolean;  // < DECLARAÇÃO DO HEADER

Implementation

function ProcessaInfo :Boolean;  // < Códificação da unit, na sessão implementation
begin
  ...
  Result := True;
end;

procedure TForm1.FormCreate(Sender :TObject);
begin
  ...
end;

end.

Program Unit2;
Interface
Type
  TForm2 = Class(TForm)
    ...
  end;

Implementation
Uses
  Unit1;  // < REFERÊNCIA a Unit1 para poder utilizar a função lá contida

procedure TForm1.ButtonClick(Sender :TObject);
begin
  if ProcessaInfo then  // < USO da função na outra unit
    ShowMessage('Processou função e dados ok');
  ...
end;

end.

Abraços