program Boas_Tecnicas_de_Codificacao;
{ Este programa nao faz nada; apenas
  serve para apresentar boas tecnicas
  de codificacao }
{ Turbo Pascal 7 source        }
{ Delphi Source                }
{ Joao Paulo Schwarz Schuler   }
{ http://www.schulers.com/jpss }

procedure Nada;
begin { of procedure nada }
{Nada}
end; { of procedure nada }

{ palavras reservadas devem sempre ser grafadas em
  caixa baixa ( lower case ) }

{ em estruturas complexas ( o que nao eh o caso ), vale
  apena incluir o comentario " of procedure ..." }


{ identacao basica do comando if:

  if (exp)
     then begin
          comandos;
          end
     else begin
          comandos;
          end; }

procedure NadaMaisComplicado; { like James Joyce }
{ nao faz nada de maneira bem complicada }
begin
if True { external if }
   then begin { of external if }
        if False  { medium if }
           then begin { of medium if }
                if True { internal if }
                   then begin  { of internal if }
                        NadaMaisComplicado;
                        end
                   else begin  { of else/internal if }
                        NadaMaisComplicado;
                        end    { of internal if }
                end
           else begin { of else/medium if }
                Nada;
                end
        end; { of external if }
end; { of procedure NadaMaisComplicado }


{ identacao basica dos comandos while e for ( para o with eh igual ):

  for X:=Inicio to Fim
      do begin
         comandos;
         end;

  --------OU----------

  for X:=Inicio to Fim do
      begin
      comandos;
      end;


  ----------while------------------------

  while (exp)
        do begin
           comandos;
           end;

  --------OU----------

  while (exp) do
        begin
        comandos;
        end;

        }



  type TNotifyEvent = procedure;

  { tipos devem ser grafados com a primeira letra "T" em caixa alta }


  var Evento:TNotifyEvent;

  { variaveis devem ser grafadas com a primeira letra em caixa alta }

  begin { of program }
  NadaMaisComplicado;
  end. { of program }