Locales o las rutinas rutinas anidadas

Locales o las rutinas rutinas anidadas

Locales o las rutinas rutinas anidadas : Multi-millones de consejos para hacer su vida mas facil.

Como declarar Local rutinas en delphi ?
es posible declarar procedimientos locales o
Funciones dentro de un procedimiento o funcion.
Aunque parece que de alguna forma inusual en la primera vista a declarar
Locales rutinas dentro de una rutina, es eficiente para ello.
Si nosotros no los necesitamos en otro lugar que en la rutina, ¿por que
hacerlos publicos, incluso dentro de la unidad ? Pongamos en su correcta
lugar adecuado rutinas en el lugar adecuado !
Podemos declarar variables locales, constantes y tipos antes de COMENZAR la declaracion de
una funcion o procedimiento. Tambien podemos incluir a las rutinas de aqui. A pesar de que es
eficacia de incluir a las rutinas de aqui, pero, en la practica, muy pocos los programadores de delphi
el uso de estas tecnicas.
Ejemplo:
Procedimiento PublicProc(p1:TypeofP1 p2:TypeofP2 ....pn:TypeOfPn)
var
& nbsp & nbsp v1:TypeofV1
& nbsp & nbsp V2:TypeofV2
& nbsp & nbsp .....
& nbsp & nbsp Vn:TypeofVn
const
& nbsp & nbsp c1:TypeofC1
& nbsp & nbsp ............
& nbsp & nbsp ............
& nbsp & nbsp procedimiento LocalProcedure1(p1:TypeofP1 p2:TypeofP2 ....pn:TypeOfPn)
& nbsp & nbsp var
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp final
& nbsp & nbsp procedimiento LocalProcedure2(p1:TypeofP1 p2:TypeofP2 ....pn:TypeOfPn)
& nbsp & nbsp var
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp .........

& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp final
& nbsp & nbsp Funcion LocalFunction1(p1:TypeofP1 p2:TypeofP2 ....pn:TypeOfPn):ResultType
& nbsp & nbsp var
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp & nbsp & nbsp resultado:=.....
& nbsp & nbsp final
& nbsp & nbsp Funcion LocalFunction2(p1:TypeofP1 p2:TypeofP2 ....pn:TypeOfPn):ResultType
& nbsp & nbsp var
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp & nbsp & nbsp .........
& nbsp & nbsp & nbsp & nbsp resultado:=.....
& nbsp & nbsp final
begin {PublicProc}
& nbsp & nbsp ...........
& nbsp & nbsp ''''''
& nbsp & nbsp LocalProcedure1(...., ...., ....)
& nbsp & nbsp ...........
& nbsp & nbsp LocalProcedure2(...., ...., ....)
& nbsp & nbsp ...........
& nbsp & nbsp v1:=LocalFunction1(...., ...., ....)
& nbsp & nbsp ...........
& nbsp & nbsp v2:=LocalFunction2(...., ...., ....)
& nbsp & nbsp ...........
& nbsp & nbsp ''''''
end {PublicProc}
En este ejemplo, el alcance de las rutinas anidadas
LocalProcedure1,
LocalProcedure2,
LocalFunction1 y
LocalFunction2
se limita solo a PublicProc. No hay otras rutinas en la misma unidad o en otras
unidades pueden ver.
Para algunos ejemplo real de rutinas anidadas, por favor, eche un vistazo en el articulo
'la Conversion de Numeros a palabras !'.