Criar procedure

Question

por favor como fa�o para criar uma procedure , preciso de um exemplo , ok , onde ela tem que ser declarada , e como declara-la ?...

Alphablend · Answer

� ASSIMPROCEDURE MENSAGEM();BEGIN     APPLICATION.MESSAGEBOX(�TESTANDO A PROCEDURE�,��TESTE�,0);END;PARA CHAMAR A PROCEDURE � ASSIMMENSAGENS;  <-- S� ISSO !!!SE VC QUISER MANDAR ALGUMA VARI�VEL PRA PROCEDURE FA�A ASSIMPROCEDURE SEILA( A: STRING);BEGIN  .  .  .END;E CHAME ASSIM  SEILA(�ALGUMA COISA�);QUALQUER COISA ME MANDE UM E-MAIL...

Marcelo Saviski · Answer

[color=blue:24b4fbe020]Declare em qualquer lugar depois do interface e antes do implementation

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type

TForm1 = class(TForm)

procedure nomedaprocedure(fgjhgjhh:hkjhkjhkj);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

procedure  Tform1.nomedaprocedure(ffhgfhgf:jfgjgjhghg);
begin

//c�digo
end;

[/color:24b4fbe020]
:arrow: :arrow: :arrow: :mrgreen: :mrgreen: :mrgreen:

F�rum Criar procedure #140457