unit UNada;
{ Esta unidade 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 }


                     interface
{   Na interface sera declarado tudo o que for global ao
  modulo chamador. Sendo assim, nenhuma variavel ou
  objeto deve ser declarado na interface!

    A unidade deve ser vista como um pacote de classes,
  tipos, constantes procedimentos e funcoes e nao um
  pacote de objetos e variaveis .

    Na interface podem ser declarados tipos, classes,
  constantes, procedimentos e funcoes }

procedure Nada;
procedure NadaMaisComplicado; { like James Joyce }
  { nao faz nada de maneira bem complicada }

type TNotifyEvent = procedure;

                   implementation




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

var Evento:TNotifyEvent;
    { soh quem nao sabe POO deve declarar variaveis dentro a area
    de implementacao de uma unidade }


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 }



end. { of Unit }