Criar procedure
24/02/2003
0
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
Curtir tópico
+ 0
Responder
Posts
24/02/2003
Alphablend
É 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
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
Responder
24/02/2003
Marcelo Saviski
[color=blue:24b4fbe020]Declare em qualquer lugar depois do interface e antes do implementation
[/color:24b4fbe020]
:arrow: :arrow: :arrow: :mrgreen: :mrgreen: :mrgreen:
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:
Responder
Clique aqui para fazer login e interagir na Comunidade :)
