Object Oriented Programming with Free Pascal and Lazarus/es: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# Programación Orientada a Objetos con FreePascal y Lazarus
2	2
3	3		## Introducción
4	4
5	5		Hay muchas excelentes tutorías sobre Pascal, pero esta pretender iniciar sobre la [[Glossary\|Programación Orientada a Objetos]], que es una extensión del Pascal estándar, ofrecida por Turbo-pascal, Delphi y FreePascal/Lazarus.
6	6
7	7		Un [[Glossary/es\|Objeto]] es una extensión de la estructura [registro](http://wiki.lazarus.freepascal.org/Record) del Pascal estándar.
8	8
9	9		La programación estándar en modo texto de Pascal es, cómo las aplicaciones Unix tradicionales, buena para hacer cualquier tarea y que se haga muy bien. Pero esta tarea puede ser algo compleja y que ofrezca al usuario variado menú de opciones, pero sin embargo está limitado a obedecer ordenes que se escriben por el teclado y mostrar las respuestas en un terminal o impresora.
10	10
11	11		Con el fin de proporcionar una [[Glossary\|interfaz gráfica de usuario (GUI)]], es habitual recurrir a algún tipo de programación orientada a objetos (a menudo haciendo uso de [[Glossary\|C]], o alguna de sus variantes, o Visual Basic, o alguna de las variantes de [[Glossary\|OO]] de Pascal, como FreePascal con o sin [[Glossary\|Lazarus]]).
12	12
13	13		En una interfaz gráfica de usuario (GUI) al usuario se le presenta una pantalla con un gran número de imágenes dispuestas en forma estructurada, que consta de un conjunto de herramientas o artefactos que están asociados con diversas acciones, tales como
14	14
15	15		- seleccionar de un menú,
16	16		- abrir o guardar archivos,
17	17		- conectar a Internet,
18	18		- realización de cálculos numéricos, etc.
19	19
20	20		Del usuario se espera que mueva un ratón u otro tipo de puntero o herramienta de selección sobre la pantalla, para seleccionar las acciones que se realizarán en respuesta a un clic de ratón o la pulsación de una tecla.
21	21
22	22		Si bien sistemas para realizar una compleja interfaz gráfica de usuario pueden ser escritos en Pascal estándar o cualquier otro lenguaje de programación, es mucho más fácil utilizar un sistema orientado a objeto s, en el que cada elemento gráfico en la pantalla tiene todas sus propiedades, procedimientos y funciones relacionadas con su utilización unidas juntas en una estructura común, en un objeto.
23	23
24	24		## Objetos: una analogía con el mundo real
25	25
26	26		Considera la analogía de una muestra de sangre recogida en un hospital o en la consulta del médico.
27	27
28	28		### Análisis de sangre
29	29
30	30		La muestra de sangre es ciertamente un objeto; se ha asociado a ella una gran cantidad de información, documentos y otros objetos físicos.
31	31
32	32		- Tubo de muestra, del tipo adecuado a las pruebas que el médico quiere realizar.
33	33
34	34		- Reglamento interno (o método, procedimiento de operación estándar) para dirigir a la enfermera o técnico en la recogida de la muestra.
35	35		- qué tipo de tubo debe utilizar,
36	36		- cómo debe procesar la muestra,
37	37		- cómo almacenarla hasta que se envía al laboratorio.
38	38
39	39		- Etiqueta en el tubo con detalles sobre
40	40		- identificador de la muestra
41	41		- datos del paciente, nombre, fecha de nacimiento,...
42	42		- fecha y hora de toma de la muestra
43	43		- pruebas solicitadas.
44	44
45	45		- Formulario de solicitud que acompaña a la muestra al laborarorio, con datos como
46	46		- Identificador de la muestra
47	47		- Identificación del médico solicitante
48	48		- que pruebas ha pedido el médico
49	49		- información detallada sobre el paciente
50	50		- el posible diagnóstico cuya confirmación que se busca.
51	51
52	52		Una copia del formulario de solicitud se guarda en el historial del paciente y sirve para recordar al médico que debe tener los resultados en un tiempo adecuado.
53	53
54	54		- En el laboratorio: Se usa una Metodología para determinar
55	55		- la forma en que la muestra se analiza,
56	56		- qué aparatos hay que utilizar,
57	57		- Cómo se deben calibrar y manejar los aparatos,
58	58		- cómo archivar los resultados, y el formato de los mismos,
59	59		- remitir los informes al médico.
60	60
61	61		Los resultados reales son un registro que utiliza el médico para ayudar al diagnóstico, y una copia de los mismos se archivo en el historial del paciente.
62	62
63	63		La muestra física puede ser conservada para referencia, confirmación o nuevos ensayos, o será eliminada por algún medio adecuado; habrá un método regulado que describirá como hacer esto.
64	64
65	65		EL médico no necesita explicar todos los detalles e instrucciones cada vez que se toma una muestra, de hecho puede tener muy poco conocimiento sobre cómo se procesa la muestra en el laboratorio. Los detalles de los diversos procesos son *heredados* de tomas de muestras y análisis previos. Habrá un plan genérico para toda la secuencia, y así podríamos pensar en la muestra de sangre, todos sus documentos y datos, y los métodos de proeceso subyacentes, como un objeto complejo.
66	66
67	67		En la cabeza del médico, la muestra de sangre es identificada con los resultados, así como con las enfermeras y técnicos de laboratorio, el tubo, la etiqueta y las condiciones de almacenamiento, constituyendo todo ello una única entidad.
68	68
69	69		### Otro ejemplo: automóvil
70	70
71	71		Si no le gusta la sangre, el mismo tipo de razonamiento puede aplicarse a un coche enviado a un taller para su reparación. Podría consistir en:
72	72
73	73		- el vehículo
74	74		- documentos en poder del propietario: registro o licencia (incluida la matrícula de un vehículo), los seguros, los recibos de compra, repuestos, reparaciones, etc.
75	75		- la historia del consumo de combustible
76	76		- los conductores autorizados a utilizar el vehículo, con los datos de su licencia
77	77		- informes de otros servicios prestados por el taller
78	78		- métodos o procedimientos que deben seguirse para el proceso de revisión y mantenimiento
79	79		- métodos que deben seguirse para reparaciones no habituales, etc.
80	80		- datos de facturación para el cliente
81	81
82	82		## Programando un ejemplo
83	83
84		-	~~<div class="floatleft">~~
85		-
86		-	~~<figure>~~
87		-	~~<img src="lazarus.UnFormulario.png" title="lazarus.UnFormulario.png" />~~
88		-	~~<figcaption>lazarus.UnFormulario.png</figcaption>~~
89		-	~~</figure>~~
90		-
91		-	~~</div>~~
92		-
93		-	~~<div class="floatright">~~
94		-
95		-	~~<figure>~~
96		-	~~<img src="Lazarus_Inspector_Objetos_form.png" title="Lazarus_Inspector_Objetos_form.png" />~~
97		-	~~<figcaption>Lazarus_Inspector_Objetos_form.png</figcaption>~~
98		-	~~</figure>~~
	84	+	![](/wiki-images/a/ad/Lazarus.UnFormulario.png)
99	85
100		-	~~</div>~~
	86	+	![](/wiki-images/8/83/Lazarus_Inspector_Objetos_form.png)
101	87
102	88		¡Ya está bien de ocuparse de ejemplos del mundo real! Es el momento de dedicarnos a nuestro propósito principal: programar en FreePascal.
103	89
104	90		Vamos a estudiar la creación de un sencillo formulario con un control para una aplicación en FreePascal y Lazarus.
105	91
106	92		Al ejecutar el IDE de Lazarus, al programador se le presenta, en diseño, un formulario en blanco, dentro del cual se pueden situar diversos controles y objetos.
107	93
108	94		Ten en cuenta que el formulario predefinido es él mismo un objeto, con sus propias propiedades, como la posición (superior e izquierda), tamaño (altura y anchura), el color, la fuente predeterminada para añadir texto, etc.
109	95
110	96		### Usar un control
111	97
112	98		Si colocamos un botón (tipo TButton) en el formulario, este tendrá su propio conjunto de propiedades, que puede ser examinado en la ventana Inspector de Objetos.
113	99
114	100		Algunas de las propiedades tienen los mismos nombres que los del Formulario; esto se debe a que muchas propiedades son heredadas de algún ancestro común de ambas clases, que establece cómo son las propiedades que se definen y manejan por las clases descendientes.
115	101
116		-	~~<div class="floatleft">~~
117		-
118		-	~~<figure>~~
119		-	~~<img src="lazarus.UnFormularioConBoton.png" title="Un formulario con un botón" />~~
120		-	~~<figcaption>Un formulario con un botón</figcaption>~~
121		-	~~</figure>~~
122		-
123		-	~~</div>~~
124		-
125		-	~~<div class="floatright">~~
126		-
127		-	~~<figure>~~
128		-	~~<img src="lazarus.InspectorTButton.png" title="Las propiedades del botón" />~~
129		-	~~<figcaption>Las propiedades del botón</figcaption>~~
130		-	~~</figure>~~
131		-
132		-	~~</div>~~
133		-
134		-	~~<div class="center">~~
	102	+	![](/wiki-images/d/d4/Lazarus.UnFormularioConBoton.png)
135	103
136		-	~~<figure>~~
137		-	~~<img src="Lazarus_Editor_Codigo_form.png" title="El código de la clase del formulario" />~~
138		-	~~<figcaption>El código de la clase del formulario</figcaption>~~
139		-	~~</figure>~~
	104	+	![](/wiki-images/8/84/Lazarus.InspectorTButton.png)
140	105
141		-	~~</div>~~
	106	+	![](/wiki-images/f/f5/Lazarus_Editor_Codigo_form.png)
142	107
143	108		Además de la pestaña Propiedades, el Inspector de Objetos ofrece una pestaña llamada Eventos, que da acceso a Manejadores de Eventos que son los métodos de la aplicación que se ocupan de responder, por ejemplo, a un clic de ratón (OnClick) o a algún cambio en la posición, tamaño o cualquier otra propiedad (OnChange).
144	109
145	110		La imagen física del botón en el formulario, junto con todas sus propiedades y métodos de manejo de evento, deben considerarse como una sola entidad, un Objeto en Pascal.
146	111
147	112		## Extensiones al Pascal estándar para Orientación a Objetos
148	113
149	114		La estructura registro de Pascal es ampliada para definir otras estructuras, cómo object (objeto) y class (clase):
150	115
151	116		### Objeto (object)
152	117
153	118		Un objeto es un tipo especial de registro. El registro contiene todos los campos que se declaran en la definición del objeto, al igual que un registro convencional, pero ahora los procedimientos y funciones pueden ser declarados como parte del registro y se mantienen como punteros a los métodos asociados con el tipo del objeto.
154	119
155	120		Por ejemplo, un objeto podría contener un conjunto de valores reales, junto con un método de cálculo de la media de estos.
156	121
157	122		``` pascal
158	123		Type
159	124		TMedia = Object
160	125		CuantosValores: Integer;
161	126		Valores: Array [1..200] of Real;
162	127		Function Media : Real; {calculo de la media de los valores de la matriz}
163	128		End;
164	129		```
165	130
166	131		Los objetos pueden heredar los campos y los métodos del objeto padre. Esto significa que estos campos y métodos pueden ser utilizados como si se incluyesen entre los objetos declarados en la definición del objeto hijo.
167	132
168	133		Por otra parte, se introduce el concepto de visibilidad: campos, procedimientos y funciones pueden ser declaradas como públicos, protegidos o privados. De forma predeterminada, los campos y métodos son públicos y pueden ser exportados fuera de la unidad actual. Los campos y métodos protegidos sólo están disponibles para los objetos que sean descendientes del objeto en que se declaran. Los campos o métodos que se declaran privados sólo son accesibles dentro de la unidad en que son declarados: su alcance se limita a la sección implementation de la unidad.
169	134
170	135		### Clase (class)
171	136
172	137		Los objetos no son usados con frecuencia por sí mismos en FreePascal y Lazarus; en lugar de ello, se utilizan las Clases. Una clase se define casi de la misma manera que un objeto, sólo que es un puntero a un objeto en lugar del objeto en sí. Técnicamente, esto significa que la clase se asigna al [montículo](http://es.wikipedia.org/wiki/Heap) de un programa, mientras que los objetos se asignan a la [pila](http://es.wikipedia.org/wiki/Stack) del mismo.
173	138
174	139		Este es un ejemplo sencillo de declaración de una clase típica ([clase TPen](http://lazarus-ccr.sourceforge.net/docs/lcl/graphics/tpen.html)):
175	140
176	141		``` pascal
177	142		{-----------------------------------------}
178	143		{ejemplo de definición de la clase TPen en la LCL}
179	144		{-----------------------------------------}
180	145		type
181	146		TPen = class(TFPCustomPen)
182	147		private
183	148		FHandle: HPen;
184	149		FColor: TColor;
185	150		FPenHandleCached: boolean;
186	151		procedure FreeHandle;
187	152		protected
188	153		procedure DoAllocateResources; override;
189	154		procedure DoDeAllocateResources; override;
190	155		procedure DoCopyProps(From: TFPCanvasHelper); override;
191	156		procedure SetColor(const NewColor: TColor; const NewFPColor: TFPColor); virtual;
192	157		procedure SetFPColor(const AValue: TFPColor); override;
193	158		function GetHandle: HPEN;
194	159		procedure SetHandle(const Value: HPEN);
195	160		procedure SetColor(Value: TColor);
196	161		procedure SetMode(Value: TPenMode); override;
197	162		procedure SetStyle(Value: TPenStyle); override;
198	163		procedure SetWidth(value: Integer); override;
199	164		public
200	165		constructor Create; override;
201	166		destructor Destroy; override;
202	167		procedure Assign(Source: TPersistent); override;
203	168		property Handle: HPEN read GetHandle write SetHandle;
204	169		published
205	170		property Color: TColor read FColor write SetColor default clBlack;
206	171		property Mode default pmCopy;
207	172		property Style default psSolid;
208	173		property Width default 1;
209	174		end;
210	175		```
211	176
212	177		Resaltar que esta clase es definida como descendiente de otra clase, TFPCustomPen, que es el padre o ancestro de la que hereda todas sus propiedades y métodos. La clase tiene sus campos agrupados bajo las secciones
213	178
214	179		- private (privado) - esto significa que los elementos definidos aquí sólo están disponibles o visibles a otras clases o procedimientos o función que se definan dentro de esta misma unidad de programa (este caso la unidad es Graphics, por lo que cualquiera de las otras clases en ella definidas, tales como TBitMap, TPicture, etc. pueden utilizarlos). Son esencialmente variables locales (por ejemplo,FColor,FPenHandleCached) o los métodos utilizados a nivel local (FreeHandle), pera que puedan utilizarse o referirse desde los elementos declarados en las secciones protected o public.
215	180		- protected (protegido) - los elementos aquí definidos sólo están disponibles o visibles a las clases que son descendientes de esta clase, y por tanto heredan sus propiedades y métodos
216	181		- public (público) - los elementos aquí definidos están disponibles desde cualquier otra unidad de programa que incluya esta unidad en su cláusula [[Glossary/es\|Uses]]
217	182		- published (publicado) - El ámbito es el mismo que en el caso de la sección public, pero el compilador generará información de tipo necesaria para el almacenamiento automático de la clase. Habitualmente los elementos aquí listados son los que aparecen en el Inspector de Objetos de Lazarus; si no existe sección published todos los elementos de la sección public aparecerán en el Inspector de Objetos.
218	183
219	184		### Métodos
220	185
221	186		Un método es exactamente los mismo que un procedimiento o una función mormales, la diferencia es que puede tener directivas adicionales.
222	187
223	188		Algunos de los métodos definidos anteriormente se etiquetan con la directiva virtual, otros han sido etiquetados con la directiva override.
224	189
225	190		- virtual significa que el tipo real de la instancia actual de un método no se conoce en tiempo de compilación, pero se selecciona en tiempo de ejecución dependiendo de quién y cómo en realidad ejecute el método. Podría ser considerado como un [comodín](http://buscon.rae.es/draeI/SrvltGUIBusUsual?TIPO_HTML=2&TIPO_BUS=3&LEMA=comod%EDn) en la definición de la clase
226	191
227	192		- override significa que en tiempo de ejecución a nivel local, la definición dada aquí tomará el lugar de la definición heredada del ancestro de la clase, sobre todo si esta es virtual. Si desea utilizar el método definido en la clase ancestro, es necesario recurrir a él explícitamente con la cláusula inherited.
228	193
229	194		Los métodos sin la directiva virtual u override son estáticos (lo habitual en Pascal). Aquellos con la directiva virtual u override son métodos dinámicos.
230	195
231	196		Tipos especiales de métodos son:
232	197
233	198		- Create - el constructor de la clase, que se encarga de la asignación de memoria, así como la recogida de toda la información necesaria y de configurar e iniciar las diversas propiedades.
234	199
235	200		- Destroy - el destructor de la clase, que elimina todas los elementos de la clase del sistema en forma ordenada y lógica, y devuelve todos los recursos utilizados por la misma, para que el sistema pueda reutilizarlos.
236	201
237	202		### Propiedades
238	203
239	204		Las propiedades son semejantes a los campos de los registros convencionales de Pascal, pero pueden tener las especificaciones read y/o write
240	205
241	206		- read especifica el campo o la función que devuelve el resultado del tipo correcto para la propiedad. En el ejemplo anterior, la propiedad Color tiene especificado que la variable local FColor devolverá el valor de la propiedad. Si una propiedad especifica un read pero no un write, será de sólo lectura.
242	207
243	208		- write especifica el campo, la función o procedimiento que almacenará el valor de la propiedad en una ubicación determinada. En el ejemplo, Color tiene especificado SetColor como write, por lo que será este procedimiento (definido en la sección protected) el que escribirá el valor del color en la ubicación destinada para ello, FColor en este caso. Si una propiedad especifica un write pero no un read, será de sólo escritura.
244	209
245	210		- default - Resaltar que es posible establecer un valor por defecto para una propiedad. Por ejemplo, Color a la que aquí se da el valor por defecto clBlack (negro) en el momento de su creación. Posteriormente se puede dar un valor diferente, por una asignación en el programa, o mediante el Inspector de Objetos.
246	211
247	212		## Extensiones al lenguaje de Free Pascal
248	213
249	214		FPC incluye varias extensiones al lenguaje de la sintaxis "estándar" de Pascal para dar soporte a la programación orientada a objetos,
250	215
251	216		- Objetos (chapter 5) [[Programming Using Objects]]
252	217		- Clases (chapter 6) [[Programming Using Classes]]
253	218		- Interfaces (chapter 7) [[Programming Using Interfaces]]
254	219		- Genéricos (chapter 8) [[Programming Using Generics]]
255	220
256	221		Estas extensiones se describen en los capítulos indicados de la Guía Referencia del lenguaje de FPC: <http://www.freepascal.org/docs.var>. Enlaces a páginas de tutoría para cada concepto se incluyen arriba.
257	222
258	223		La Guía de Referencia del lenguaje incluye diagramas de sintaxis y otros detalles que no figuran en esta tutoría introductoria.
259	224
260	225		De las cuatro características enumeradas anteriormente, Objetos y Clases forman la base de la programación orientada a objetos (POO) en FPC y Lazarus. Para los novatos en POO, la sección Objetos incluye muchos conceptos introductorios y la sección Clases elude la repetición enfatizando las similitudes y diferencias con la sintaxis de Objetos. En general la implementación de Classes parece ser usada más ampliamente por los desarrolladores Lazarus que Delphi. A menudo la palabra "objetos" se utiliza para referirse a lo que es en realidad una "clase" en el dialecto Clases de la POO en FPC.
261	226
262	227		Estos documentos están redactados para minimizar cualquier confusión de terminología, pero fuera de este documento, el término "objeto" a menudo se refiere a los objetos creados a partir de una clase. De hecho, la librería de tiempo de ejecución (RTL) de FPC incluye una biblioteca con base de clases llamada TObject.
263	228
264	229		Los usuarios familiarizados con la implementación POO del viejo Turbo Pascal, pueden omitir, si quieren, la sección sobre Clases ya que la implementación de objetos se basa en el dialecto de Turbo Pascal. La sección Clases resultará familiar a los usurios de Delphi ya que está basada en la sistaxis de este. Ten en cuenta que bastante de lo escrito en la sección Clases hace refencia a conceptos de la sección Objetos. Para los desarrolladores familiarizados con diversos dialectos Object Pascal en Apple, cómo THINK y MPW, ni los dialectos de objetos ni los de clases de FPC proporcionan una vía de migración directa. En marzo de 2009, hay discusiones en la lista de correo sobre Mac Pascal que pueden proporcionar algún apoyo al compilador (nueva sintaxis) para acceder al marco de Objective C/Cocoa de Apple.
265	230
266	231		### Conceptos Generales de Pascal Orientado a Objetos
267	232
268	233		La POO provee formas distintas para manejar y encapsular datos y dirigir el flujo del programa en comparación con otras caracteristicas y estructuras disponibles el el lenguaje de programación.
269	234
270	235		La POO a menudo se presta al modelado de ciertas aplicaciones, tales como interfaces de usuario gráficas (GUI) y sistemas físicos de una manera que parece más natural. Sin embargo la POO no es apropiada para todas las aplicaciones. El control del programa no es tan explícito como en la más básica construcción procedimental Pascal. Para obtener el máximo beneficio de la POO, se requiere, a menudo, la comprensión de grandes bibliotecas de clases lo que puede traducirse en una empinada curva de aprendizaje. El mantenimiento de grandes aplicaciones de código POO tiene sus ventajas e inconvenientes respecto a mantener código estrictamente procedural. Hay muchas fuentes para el aprendizaje de análisis orientado a objetos, diseño y técnicas de programación que están fuera del alcance de esta guía.
271	236
272	237		Hay numerosos lenguajes de programación que incorporan características de POO como extensiones o en la base del mismo. Por tanto, hay muchos términos diferentes para describir conceptos OO. Incluso dentro de FPC, algunos términos se solapan. En general, la POO por lo común consiste en el concepto de un objeto de programación (o unidad de información), que de forma explícita combina y encapsula un conjunto relacionado de datos y procedimientos que actúan sobre los datos. Estos datos son generalmente persistentes durante la ejecución del programa, pero con mecanismos para reducir algunos de los problemas inherentes a la declaración de variables globales. Además, los lenguajes OOP permiten a los objetos, de modo incremental, ser modificados y/o ampliados sobre la base del objeto previamente definido. Esta característica está relacionada generalmente con los términos herencia y polimorfismo. Muchos lenguajes POO utilizan los términos método o mensaje, refiriéndose a los procedimientos que pertenecen a un objeto. Gran parte del poder de la POO se debe al enlace dimámico en tiempo de ejecución en lugar de enlazar en la compilación. Este enlace dinámico de los métodos es similar al uso de variables de procedimiento y parámetros de procedimiento, pero con una cohesión sintáctica mayor, la encapsulación con los datos está relacionada con heredar también el comportamiento de los métodos previamente definidos. Las páginas que siguen presentan un wiki como punto de partida para descubrir más sobre el análisis, diseño y programación a la manera de la Orientación a Objetos.
273	238
274	239		## Más información
275	240
276	241		Este artículo sólo ha arañado la superficie del tema. Para más detalles, se recomienda encarecidamente leer los [manuales de FreePascal](http://lazarus-ccr.sourceforge.net/fpcdoc/ref/ref.html) , especialmente los capítulos 4 [Objetos](http://lazarus-ccr.sourceforge.net/fpcdoc/ref/refch4.html#x43-460004) y 5 [Clases](http://lazarus-ccr.sourceforge.net/fpcdoc/ref/refch5.html#x50-560005).
277	242
278	243		## Ver también
279	244
280	245		- [[Console Mode Pascal/es\|Programación con Pascal en modo consola]]
281	246
282	247		## Enlaces externos
283	248
284	249		- [Programación orientada a objetos](http://es.wikipedia.org/wiki/Programación_orientada_a_objetos)
285	250		- [Análisis y diseño orientado a objetos](http://es.wikipedia.org/wiki/Análisis_y_diseño_orientado_a_objetos)
286	251		- [Diseño orientado a objetos](http://es.wikipedia.org/wiki/Diseño_orientado_a_objetos)
287	252
288	253		- Versión en castellano (español) iskraelectrica (jldc) / agosto de 2010.
289	254
290	255		---
291	256		From the Free Pascal wiki, page "Object Oriented Programming with Free Pascal and Lazarus/es", as it stood on 2020-02-21 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
292	257		Category: Castellano
293	258		Category: Español

Back to history