RES: [delphi-br] Padrões de codificação

Elazar Dornelles Ceza Thu, 31 Aug 2006 09:41:33 -0700

Rogerio

Bom eu normalmente uso as siglas dos componentes e alguns outros
truques... De uma olhada.
Mas o melhor de tudo, se voce trabalha em equipe em um mesmo projeto com
frequencia é que a equipe use o mesmo padrao.



Ex.

TEdit            = edt
TLabel           = lbl
TPanel           = pnl
Tbevel           = bvl
TMainMenu        = mnu
TPopupMenu       = pnu
TDBEdit          = dbedt
TDBGrid          = dbgrd
TDataSource      = dts
TClientDataSet   = cds
TIBDataSet       = ibd
TIBTable         = ibt
TIBSQL           = ibs
TIBStoredProc.   = ibp
TListBox         = lbx
TComboBox        = cbx
TLoockupComboBox = lcb
TListView        = lvw

Exceções Forms...     fNomeForm         uNomeUnit
         Data Modules dtmNomeDataModule uNomeDataModule 


Para comandos/funcoes

  with do begin
    {...}
  end;
  
  if {...} then {...}
           else {...}

  if {...} then begin
    {...}
  end else begin
    {...}
  end;

  for {....} to {....} do begin
    {....}
  end;

  while {....} do begin
    {...}
  end;
  
  case {...} of
    {...} : begin
    end;
    {...} : begin
    end;
  end;

Variaveis

Var
  vNome     : String;
  vValor    : Double;
  vAtivo    : Boolean;
  vCancelar : Boolean;
  { Sempre mantendo a indentação e : abaixo de :}

begin
  {.....}
  vNome     := 'Elazar Dornelles Ceza';
  vValor    := 10.4;
  vAtivo    := True;
  vCancelar := False; 

  { loop }
  while not ibdCadastro.Eof do begin
    
    { Incluir o funcionário }
    ibdCadastro.Insert;
    ibdCadastro.FieldByName('NOME').AsString     := vNome;
    ibdCadastro.FieldByName('VALORHORA').AsFloat := vValor;
    
    if vAtivo then ibdCadastro.FieldByName('ATIVO').AsInteger := 1
              else ibdCadastro.FieldByName('ATIVO').AsInteger := 0;

    if vCancelar then ibdCadastro.FieldByName('CANCELAR').AsInteger := 1
                 else ibdCadastro.FieldByName('CANCELAR').AsInteger :=
0;  
    ibdCadastro.Post;
    
    { Exibe mensagem ao usuario de que o mesmo foi incluido }
    ShowMessage('Funcionário incluido com sucesso');
  end;
end 
  
Atenc.
Elazar

-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Rogerio Martins
Enviada em: quinta-feira, 31 de agosto de 2006 09:38
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Padrões de codificação


Bom dia pessoal !
Alguém conhece algum documento sugerindo padrões de codificação em
delphi, 
para se aplicar em uma empresa ?
Ex: nomenclatura de variáveis, componentes etc

Obrigado 




 


        

        
                
_______________________________________________________ 
Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar 
seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.yahoo.com/


-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

RES: [delphi-br] Padrões de codificação

Responder a