uma function ou procedure  ???  

procedure TForm1.Button1Click(Sender: TObject);

   procedure blabla ( obj1 : tedit; obj2 : tlabel );
   begin
       obj2.Caption := obj1.Text;
   end;

begin
     blabla( edit1, label1 );  // é igual à label1.caption := edit1.text;
end;

Luiz Escobar


------------- Segue mensagem original! -------------

De: "Fabiana" <[EMAIL PROTECTED]>
Data: Fri, 8 Dec 2006 13:19:42 -0200
Para: <delphi-br@yahoogrupos.com.br>
Assunto: [delphi-br] Criar Função

Boa tarde para todos...

Como faço para criar uma função onde o paramentro seja do tipo objeto?

Fabiana

[As partes desta mensagem que não continham texto foram removidas]


Responder a