GARANTIR DESCONTO

Fórum Procedure no Delphi #140280

24/02/2003

0

Delphi

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

Responder

Posts

24/02/2003

Nildo

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;


Responder

Gostei + 0

24/02/2003

Aroldo Zanela

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.



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar