Procedure no Delphi

Delphi

24/02/2003

bom no VB eu utilizava assim

if condicao = tal coisa then
vaiparala
elseif condicao = tal coisa2 then
vaipraca
else
vaiprali
end if

procedure vaiparala
end

procedure vaiparaca
end

procedure vaprali
end

COMO FAÇO ISSO NO DELPHI


Anonymous

Anonymous

Curtidas 0

Respostas

Nildo

Nildo

24/02/2003

if condicao = tal coisa then
vaiparala
elseif condicao = tal coisa2 then
vaipraca
else
vaiprali

procedure vaiparala
begin
end;

procedure vaiparaca
begin
end;

procedure vaprali
begin
end;


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

24/02/2003

if condicao = tal coisa then vaiparala elseif condicao = tal coisa2 then vaipraca else vaiprali procedure vaiparala begin end; procedure vaiparaca begin end; procedure vaprali begin end;


Não esqueça de prototipar a procedure na Interface e colocar os ´;´ nos lugares adequados. Após declarar a procedure na Interface, pressione CTRL+SHIFT+C para não precisar reescrever na seção implementation.

Veja o exemplo:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure VaiParaLa;
    procedure VaiParaCa;
    procedure VaiParaAli;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.VaiParaAli;
begin

end;

procedure TForm1.VaiParaCa;
begin

end;

procedure TForm1.VaiParaLa;
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Condicao = TalCoisa then
  VaiParaLa else
  if Condicao = TalCoisa2 then
  VaiParaCa
  else
  VaiParaAli;
end;

end.



GOSTEI 0
POSTAR