Criar procedure

Delphi

24/02/2003

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


Anonymous

Anonymous

Curtidas 0

Respostas

Alphablend

Alphablend

24/02/2003

É ASSIM


PROCEDURE MENSAGEM();
BEGIN
APPLICATION.MESSAGEBOX(´TESTANDO A PROCEDURE´,´´TESTE´,0);
END;


PARA CHAMAR A PROCEDURE É ASSIM


MENSAGENS; <-- SÓ ISSO !!!

SE VC QUISER MANDAR ALGUMA VARIÁVEL PRA PROCEDURE FAÇA ASSIM

PROCEDURE SEILA( A: STRING);
BEGIN
.
.
.
END;

E CHAME ASSIM SEILA(´ALGUMA COISA´);

QUALQUER COISA ME MANDE UM E-MAIL


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

24/02/2003

[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:


GOSTEI 0
POSTAR