Delphi, El Hijo de Pascal

ProgramacionU#117.
qxd 4/28/01 6:06 PM Page 76
EXPERTOS PROGRAMACIÓN
CREANDO NUESTRA PROPIA CALCULADORA
Delphi: el hijo de Pascal

Generalmente, los PRIMEROS PASOS en el área de la
programación se realizan con Pascal, debido a que sus
sentencias no son complicadas ni difíciles de entender.
Alex VALENCIA La empresa BORLAND nos ofrece esta alternativa en
seiya@anime.com.ar
Estudiante de Ciencias de la Computación y
LENGUAJES VISUALES que nos permitirán hacer
experto en programación. nuestras propias aplicaciones con base en Pascal.
D elphi es un lenguaje de programación muy flexible y fácil

de usar, sobre todo para aquellas personas que dominan
Procedimientos y funciones
A diferencia de Visual Basic, el lenguaje Delphi usa proce-
el conocido lenguaje Pascal. Si bien en estos últimos años los dimientos y funciones para ejecutar el código que utiliza
lenguajes como Visual Basic o JAVA han tenido una gran reper- nuestro programa. La diferencia principal entre ambos es que
cusión dentro del mundo de la programación visual, Delphi no las funciones reciben parámetros y devuelven el resultado en
se queda atrás, y presenta las características típicas de los len- el nombre de la función (como en VB). En cambio, los proce-
guajes visuales, lo que lo vuelve fácil de aprender para cual- dimientos se encargan de ejecutar un código prescrito que se
quiera que sepa usar este tipo de herramientas, o bien para basará en parámetros que se califican de “entrada”, “salida”
quien quiera comenzar a usarlas. La interfase del programa re- y de “entrada/salida”, a través de los cuales enviaremos da-
sulta muy familiar para los programadores de Visual Basic. Con- tos y recibiremos resultados. La forma de declararlos está en
tiene objetos muy similares y la mayoría de sus propiedades son la Tabla 1.
las mismas (en la Figura 1 se muestra la pantalla de un pro-
yecto en blanco). Variables y constantes
Sin embargo, existen ciertas diferencias entre este lenguaje A diferencia de otros lenguajes y al igual que C, Delphi usa
y Visual Basic, desde del punto de vista del manejo de ciertas referencias en las declaraciones de variable, lo que significa
estructuras y, obviamente, sintáctico. El objetivo de esta nota que utiliza punteros a una dirección donde se almacena el da-
es cubrir algunos aspectos básicos que nos resultarán útiles to que queremos escribir o leer.
para nuestra calculadora de ejemplo y para guiarnos por los Esto lo vuelve mas útil en algunas cosas; tal vez una de las
primeros pasos en Delphi. más importantes sea el tipo de dato string, que es manejado
Figura 1. Ésta es la pantalla principal Figura 2. Aquí está nuestro primer Figura 3. Aquí vemos cómo quedaría la
de Delphi. Como se ve, no es muy programa. En una de esas, Bill nos interfase gráfica de la calculadora.
diferente de otros programas de compra los derechos para incluirlo en su Obviamente, podemos hacerla como más
lenguaje visual, por lo cual no nos próximo Windows. nos guste.
resultará difícil familiarizarnos con él.
76 u s e r s . t e c t i m e s . c o m
ProgramacionU#117.qxd 4/28/01 6:07 PM Page 77
Si no tenemos Delphi,
podemos bajarlo de la
página oficial,
www.borland.com/downloads, donde
hay una versión trial de
30 días de duración.
como cadena, donde podremos indexar un carácter específico, Nuestra propia calculadora
lo que hace mucho más flexible el trabajo sobre este tipo de Ahora comenzaremos a programar una aplicación un poco
datos. más útil y, de esta forma, podremos adentrarnos un poco más
También encontraremos otros tipos de datos, que podremos en el lenguaje Delphi. Haremos una calculadora con las fun-
utilizar en nuestras aplicaciones y que desarrollaremos a me- ciones básicas, para lo cual la interfase gráfica quedará como
dida que avancemos en nuestra aplicación de ejemplo (se de- nos muestra la Figura 3, con 16 botones y un objeto memo
tallan en la Tabla 2). En esta ocasión, construiremos una (debido a que nos permite alinear a la derecha), alineándolo
sencilla calculadora. con la propiedad Align.
El manejo de las constantes es similar que en los demás len- Debemos tener en cuenta un par de cosas antes de empezar,
guajes, pero además, podremos usar constantes del tipo ty- como que hay que mantener el primer operando en el display
ped, que nos permitirán utilizar estructuras de datos (vecto- hasta ingresar el otro, no perder el último operando para ha-
res, registros, punteros, etc.) como constantes. cer que la tecla <=> funcione consecutivamente, etc., pero
iremos viendo todo esto a medida que creemos las funciones.
El clásico mensaje Debido a que necesitaremos muchas comprobaciones (posi-
Para familiarizarnos y perderle el miedo a Delphi, empezare- bles acciones por parte del usuario), deberemos definir algu-
mos con el típico ejemplo del mensaje. En este caso, usamos nos flags o banderas que nos sirvan de guía. La Tabla 3 mues-
el clásico “Hello World” u “Hola mundo“, que aparecerá cuan- tra las variables que usaremos y definiremos como globales,
do presionemos un botón. o sea que se declaran fuera de los procedimientos (como en
1) Creemos, dentro de un form vacío, sólo un botón, con el VB, pero sin la palabra Public) y debajo de la palabra reser-
nombre botón y el caption El clásico mensaje. El caption se- vada VAR.
rá el texto que aparecerá en él. Como toda buena calculadora, debe inicializarse con el 0,
2) Ahora hacemos doble clic para dirigirnos al código del por lo cual en el evento formcreate de nuestra form escribi-
evento clic. remos:
3) Escribimos el siguiente código: display.Text := ‘0’; {asignamos la cadena ‘0’ al
begin {El Begin y End estan escritos por de-
fault} Tabla 1: Parámetros
❙
application.messagebox(‘hello World’, ‘mensaje de

En esta tabla se indica la forma de declarar parámetros de
prueba’,MB_OK)
entrada, salida y entrada/salida.
end;
Tipo de parámetro Declaración
Una vez terminado, podremos hacer correr el programa con Entrada (por valor) Procedure calc (X:integer)
<F9> y ejecutar esta “útil” aplicación. Esto debería quedar Salida Procedure calc (out num:integer)
como se ve en la Figura 2. Delphi es más estricto que VB, ya Entrada/salida Procedure calc(var X, Y:
(por referencia) Integer);
que las funciones deben incluir todos sus parámetros; en ca-
so contrario, mostrará un error.
u s e r s . t e c t i m e s . c o m 77
display} rificar la existencia del punto.

{inicialización de flag} var
aux:string;
Bien, ahora debemos hacer que los números nos respondan, flagpun:boolean;
así que creamos un procedimiento: j,i:integer;
Procedure numero (display: TMemo; num:char; var begin
flag:boolean); aux:=display.text; {copiamos la cadena a una
{ojo!!, hay que pasar al display por parámetro tam- variable auxiliar}
bién, otra cosa diferente a VB} i:=length(aux); {contamos sus caracteres con la
Begin función ‘length’}
if (display.Text = ‘0’) then {primero verificamos el for j:=1 to i do {recorremos la cadena}
0} begin
display.text:= num if aux[j] = ‘.’ then {verificamos el punto}
else flagpun:=true
begin end;
if flag = true then {Este flag indica si esta- if flagpun= false then {si no había, lo agrega-
mos en una operación} mos}
begin display.text:=display.text+’.’
display.text:= num ; end;
flag:=false
end Cambio de tipo de datos
else Aquí se nos presenta un importante problema, que será co-
display.text:= display.text + num ; mún a la mayoría de las aplicaciones que creemos en lengua-
end jes visuales. Éste es el cambio de tipo de dato. Como se sabe,
end; un objeto memo devuelve, en su propiedad .text, una cadena
de caracteres y no un número real; por esta razón, si sumamos
“1” + “2”, el resultado será “12”, ya que concatenamos texto.
Como muestra el código, debemos crear un flag (variable
Debemos cambiar el tipo de dato a real para que los sume co-
boolean) que pasará por parámetro y nos será útil para man-
mo números reales.
tener el número del primer operador en el display cuando ha-
En VB existe la función Val, con la que pasamos por paráme-
ya una operación activada.
tro la cadena y nos devuelve el número; pero en Delphi no te-
Sólo basta colocar este procedimiento en el evento Clic de
nemos tanta suerte, y deberemos acudir a las variables de ti-
los botones de los números y el punto con los parámetros co-
po variant, que nos permitirán cambiar el tipo de dato. Para
rrectos, y listo:
esto, creamos dos funciones, Textoreal y Realtotex, que usa-
numero (display,’1’, flagop); {ejemplo para el botón
remos para este problema. Como son funciones, se trata de có-
de la tecla 1}
digo transportable y reutilizable, y podremos usarlas en cual-
quier otra aplicación que creemos con sólo incluirla, o crear
Para el punto (.) es diferente, ya que, si usamos el mismo
una Unit con nuestras propias funciones. El código sería el si-
procedimiento que utilizamos para los números, nos dará la
guiente:
opción de repetir más de una vez el carácter del punto
function textoreal (tex:string): real;
(¿2.45.6? No es un número muy bonito). Por eso desarrolla-
var
mos otro procedimiento para éste, que irá incluido directa-
aux: variant;
mente en el evento Clic, como se muestra a continuación, y
begin
donde usaremos la posibilidad de indexar un caracter para ve-
aux:= tex; {del texto al variant}
textoreal:= aux; {del variant
Tabla 2: Tipos de datos al real}
❙
end;
Éstos son otros tipos de datos útiles que podemos utilizar en nuestras aplicacio-
nes. function realtotex (num:real):
string;
Tipo de dato Descripción Ejemplo var
Enumerado Dato de definición de valores Type colores = (blue,
green, red) aux: variant;
Puntero Dato de dirección de memoria Type pchar=^char begin
Subrango Dato definido en un rango I := 0..99 aux:= num; {del real al
ordinal de un tipo de dato. I := ‘A’..’Z’ variant}
realtotex:= aux; {del variant
LISTADO*: flagcons:=false;
flagop:=true
procedure opera (var operador:char; end;
operacion_actual:char ; display:TMemo; var end;
flagop,flagcons:boolean; var res:real);
begin ‘/’:
{operador: último operador utilizado} begin
{operación_actual: el nuevo operador} if flagcons =false then
begin
case operador of nume1:= textoreal(display.text);
‘+’: res:= suma(res,nume1);
begin display.text:= realtotex (res);
if flagcons =false then flagop:=true
begin end
nume1:= textoreal(display.text); else
{cambiamos de tipo de dato} flagcons:=false;
res:= suma(res,nume1); {acumulamos el resultado} flagop:=true
display.text:= realtotex (res); {mostramos el end;
acumulador}
flagop:=true else {si no había ningún operador presionado...}
end begin
else if flagcons =false then
begin begin
flagcons:=false; flagcons:=false;
flagop:=true operador :=operacion_actual;
end; if flagpor=true then
end; begin
res:= textoreal(display.text);
‘-’: flagpor:=false;
begin flagop:= true
if flagcons =false then end
begin else
nume1:= textoreal(display.text); begin
res:= resta(res,nume1); case operacion_actual of
display.text:= realtotex (res); {verificamos cuál es la operación actual}
flagop:=true ‘*’:
end begin
else nume1:= textoreal(display.text);
begin res:= producto(res,nume1);
flagcons:=false; display.text:= realtotex (res);
flagop:=true flagop:=true
end; end;
end; ‘/’:
begin
‘*’: nume1:= textoreal(display.text);
begin res:= cociente(res,nume1);
if flagcons =false then display.text:= realtotex (res);
begin flagop:=true
nume1:= textoreal(display.text); end;
res:= producto(res,nume1); ‘+’:
display.text:= realtotex (res); begin
flagop:=true nume1:= textoreal(display.text);
end res:= suma(res,nume1);
else display.text:= realtotex (res);
begin sigue en página 80
viene de página 79 nes con los parámetros correctos, y asunto terminado. Reco-
mendamos hacer la prueba de escritorio (seguimiento de la
flagop:=true
función de las variables con papel y lápiz) para que sea más
end;
comprensible, ya que explicar cada declaración nos llevaría
‘-’:
unas cuatro o cinco revistas, porque el procedimiento contem-
begin
pla todas las posibles acciones por parte del usuario.
nume1:= textoreal(display.text);
res:= cociente(res,nume1);
Con este procedimiento resolvemos el núcleo del programa.
display.text:= realtotex (res);
Lo agregamos a cada operación, y misión cumplida.
flagop:=true
begin
end;
opera(operador,’+’,display, flagop, flagcons, res);
end;
end;
end;
end;
Ahora nos falta asociar el código del botón [CE], que sólo
end;
inicializa los flags y resetea el display.
end;
procedure Tcalcu.resetClick(Sender: TObject);
operador:= operacion_actual; {actualizamos el
begin
operador}
operador:= ‘ ‘; {no hay operaciones asocia-
end;
das}
res:=0; {el resto se resetea}
display.Text := ‘0’; {reseteamos el display}
al texto} flagpor:= true;
end; flagcons:=false;
El procedimiento general end;
Como buenos programadores, debemos encontrar la generali-
dad en los procedimientos de suma, resta, multiplicación y Una vez terminado todo, estamos listos para compilar. Para
división. No es muy difícil, porque todos actúan de la misma ello utilizamos [Project/Compile], y automáticamente se
manera. Después de ingresar dos operandos, devuelven un re- creará el archivo EXE de nuestra aplicación.
sultado y listo. Lo único que debemos tener en cuenta son las Antes de esto, podemos ponerle algún fondo o personalizar-
posibles combinaciones de teclas que el usuario puede presio- la de la manera que queramos. Ya estamos preparados para
nar. A continuación mostramos el código de este procedimien- usar nuestra propia calculadora hecha en Delphi.
to; bastará con incluirlo en cada evento Clic de las operacio-
La proyección Delphi
Si bien Delphi no ha sido un lenguaje muy difundido o utili-
Tabla 3: Variables del ejemplo zado bajo entorno Windows como lo fue el famoso y popular
❙
Visual Basic, Linux lo vio con otros ojos. Su nueva versión del
Éstas son las variables que usaremos como globales para clásico sistema operativo, llamada Kirix, incluye gran parte de
la aplicación. código de Delphi para las tareas de administración de proce-
sos y de memoria. Los programadores y expertos en Linux ase-
Nombre Tipo Uso guran que “un buen programador debe saber programar en
Nume1 Real Operando auxiliar para los
cálculos. Delphi”.
Operador Char Indica de qué operación se Entre otras cosas, Delphi se está orientando a la programa-
trata, +, -,* o /. ción de sitios web dinámicos, lo que le abre el paso para com-
EFlagcons Boolean Indica si se presionó el ‘=’ más petir con los lenguajes que están dominando esta área, como
de una vez. PHP, Pearl o ASP.
Resultado Variant Variable utilizada para cambios
de tipo de datos. Por lo visto, ahora es muy necesario comenzar a entender
ERes Real Acumulador de resultados. Delphi, ya que parece ser un lenguaje prometedor que, en
Flagpor Boolean Indica que se ha presionado el
igual (=) y que se espera el primer
operando.
En el CD
EFlagpunto Boolean Indica que se ha ingresado un
“.” para no repetirlo.
P ara que no tengas que copiar todo el código de los
ejemplos, y para no tener problemas de errores,
Flagop Boolean Indica si se ingresó el primer éste fue incluido en la carpeta PROGRAMACIÓN del
operando para mantenerlo en
el display hasta que se ingrese CD que acompaña la revista.
el otro. Además, ¡también encontrarás la calculadora fun-
cionando!
BATALLA NAVAL BAJO DELPHI
Estructuras de datos
Ya dimos los PRIMEROS PASOS en este lenguaje al
crear nuestra propia calculadora en Delphi.
Ahora COMIENZA LO INTERESANTE: haremos la
Alex VALENCIA batalla naval utilizando ESTRUCTURAS DE DATOS,
avalencia@tectimes.com
Estudiante de Ciencias de la Computación,
una de las cosas más importantes que emplearemos
fanático del anime y la programación. para cualquier programa.
L as estructuras de datos son elementos que utilizaremos

en cualquier programa que maneje un volumen grande de
estructura tipo string sin indexar de 1.000 posiciones ocu-
pará 256 KB; de modo que hay que economizar. A continua-
información, como, por ejemplo, una encuesta definida o cual- ción, veremos las estructuras más utilizadas.
quier aplicación que requiera un previo registro de datos.
Si debiéramos registrar cien tiempos por cronómetro en un Vectores
programa, no sería optimo crear una variable para cada Los vectores son una colección de una cantidad específica de
tiempo, ya que causaría la lentitud del programa. Las varia- datos de un tipo determinado. Por ejemplo, podemos utilizar-
bles se ubican en posiciones aleatorias de la memoria, y el los para guardar un grupo de números. Podríamos guardar los
acceso rápido de una a otra es mejor en una estructura, ya números 14, 5, 19, 20 y 10 en un vector de cinco posiciones
que las agrupa en alguna dirección con sus espacios conse- del tipo integer.
cutivos; de otra manera, el código sería horriblemente largo.
El objetivo de las estructuras es “amontonar” espacios en Matrices
memoria, a los que se asignará un nombre en común y un A los que no hayan sufrido con ellas en la facultad les
subíndice. explicamos que las matrices son vectores de dos dimensio-
Algo importante es saber definir estructuras de datos que nes y de un mismo tipo de datos, que se dirigen con dos
sean lo suficientemente pequeñas como para que entren coordenadas numéricas (representan filas y columnas). Vere-
bien en memoria, y así crear una aplicación transportable a mos el ejemplo en la misma batalla naval, donde usaremos
máquinas con diferentes configuraciones; es decir, intentar una matriz de 10 x 10 de tipo boolean para representar el
que el programa use la menor cantidad de memoria posible tablero de juego. Existen matrices de más dimensiones, pe-
para mejorar su velocidad y rendimiento. Por ejemplo, una ro, para el caso, con ésta nos sobra.
Figura 1. Así quedaría el tablero Figura 2. Éste es el code explorer. Figura 3. Éste es el objeto Timer, muy
principal del juego. Ésta es una opción, Cuando lo abrimos, lo tenemos al lado útil para cualquier cosa que hagamos.
pero podemos hacerlo como queramos. de la form, de modo de acceder a él Sólo se ve en tiempo de diseño.
rápidamente y que no se nos escapen las
ideas.
Aquí está el programa

terminado. Con la
herramienta Image de la
solapa [Additional], arriba
de todo, podemos agregar
un fondo a la form.
Es bastante incómodo,
pero no figura la opción
[Picture] de VB.
Registros código está dentro del CD que acompaña a la revista.

El registro es uno de los más importantes, ya que nos dará Podemos identificar dos grandes secciones en el programa:
paso a los archivos; pero, para que nos demos una idea, es un la que corresponde al manejo del usuario y la de la máquina.
conjunto de datos de diferentes tipos. Por sí solo, únicamen- Recordemos que el usuario debe confeccionar en su tabla la
te nos sirve para aplicarlo a archivos, que veremos más ade- posición de los diferentes objetos.
lante; pero aplicado a vectores forma una estructura muy útil. Para ésta usaremos cien checkbox colocados como muestra
la Figura 1. En este caso, definimos tres tipos de objetos:
Vectores de registro lanchas (ocupan una sola posición), barcos (dos posiciones
Los vectores de registro son el resultado de mezclar registros contiguas) y submarinos (tres posiciones contiguas). Nues-
con vectores, y resultan inmensamente útiles en el momento tro tablero está relacionado con una matriz pública que co-
de recolectar muchos datos de diferentes tipos, como en el piará su configuración constantemente. La sintaxis de defi-
ejemplo de la encuesta, ya que necesitaríamos varios datos de nición se encuentra en la Tabla 1, junto con las estructuras
diferentes tipos (por ejemplo, nombre, edad, etc.). Es la es- que ya mencionamos.
tructura con la cual operan las bases de datos cuando levan- El tablero también consta de tres botones que corresponden
tan una tabla en memoria; el problema es que en el momen- a cada uno de los tipos de objeto. Al presionar uno de ellos,
to de crearlo, no solemos medirlo y nos hace saltar la RAM, podremos ir ubicando cada objeto en nuestro tablero.
así que ¡ojo con éste! Debemos tener en cuenta una serie de reglas de llenado; re-
cordemos que debemos verificar que estamos llenando una
¡A zarpar! lancha, un barco o un submarino, para poder determinar po-
Obviamente, este programa es mucho más complejo que la siciones y comprobar que los casilleros sean contiguos. En el
calculadora que creamos en el número pasado. Por esa razón, Listado 1 vemos el procedimiento general de las checkbox
nos resulta imposible mostrar todo el código del programa en que usaremos, así que basta pegarlo en todas las propiedades
esta nota, y nos remitiremos sólo a las partes importantes, en clic con los parámetros correctos, y problema resuelto.
las que trabajemos con las estructuras de datos. El resto del Este procedimiento es importante porque nos resuelve la mi-
tad del problema, pero no tiene nada de estructuras, ya
Tabla 1: Definición de estructuras que éstas están en los procedimientos y funciones que
❙
Estructura Declaración utiliza (recordemos que es uno general, lo que signifi-

Vector Vec=array [1..100] of string; ca que usa la menor cantidad de código posible). En-
Matriz Mat=array [1..10] of array [1..10] of string; tonces veremos, por ejemplo, el procedimiento Regis-
Registro Reg = Record trar_disponibles, que devuelve un vector con las po-
Año:integer;
siciones posibles para el segundo espacio de un barco,
Mes:string;
Dia:1..31; {entero entre 1 y 31 donde pasamos por parámetro la matriz que correspon-
End; de a nuestro tablero, la primera posición y el vector
Vector de registros Vec_reg= arrar [1..10] of reg; donde saldrán los datos (entrada y salida). Nota: la
función inttostr pasa de entero a string.
procedure registrar_disponibles (var vec:vector; function comprobar_matriz_vacia (mat:matriz):boo-

mat:matriz; x,y:integer); lean;
begin var
{recordemos que son ocho posiciones alrededor de un i,j:integer;
casillero} begin
if mat [x-1,y+1] <> true then {registramos si no es- comprobar_matriz_vacia:=true;
ta marcado]
vec[1]:= inttostr(x-1) + inttostr(y+1); {lo re- for i:=1 to 10 do {recorre las filas de la matriz}
gistramos} begin
if mat [x,y+1] <> true then for J:=1 to 10 do {recorre las columnas}
vec[2]:= inttostr(x) + inttostr(y+1); begin
if mat [x+1,y+1] <> true then if (mat[i,j] <> false) then {si es true
vec[3]:= inttostr(x+1) + inttostr(y+1); ya no está vacía}
if mat [x+1,y] <> true then comprobar_matriz_vacia:=false;
vec[4]:= inttostr(x+1) + inttostr(y); end;
if mat [x+1,y-1] <> true then end;
vec[5]:= inttostr(x+1) + inttostr(y-1); end;
if mat [x,y-1] <> true then
vec[6]:= inttostr(x) + inttostr(y-1); Armando al enemigo
if mat [x-1,y-1] <> true then Ésta puede ser la parte más difícil del programa, ya que de-
vec[7]:= inttostr(x-1) + inttostr(y-1); bemos hacer que la máquina sola arme su propia flota de
if mat [x-1,y] <> true then combate con la cual nos enfrentará y a la que nosotros
vec[8]:= inttostr(x-1) + inttostr(y); tendremos que destruir. Para esta tarea usaremos la función
end; Random(), a la que le pasaremos por parámetro el número
máximo no incluido, hasta el cual nos podrá devolver un nú-
Como observamos, dentro de los corchetes ([]) se ubica el mero al azar. Pueden ver el código completo en el Listado 2
subíndice del objeto al que nos referimos, y la cantidad de (página 82).
números está determinada por las coordenadas que tenga la Éste es el procedimiento que llena automáticamente la ma-
estructura. Obviamente, usaremos estructuras de repetición triz enemiga; obviamente, irá en el evento Form_create de
para referirnos a todos los objetos, como for o while; así lo nuestro programa, ya que es lo primero que debemos hacer.
muestra la función comprobar_matriz_vacia, que utiliza- Además de la matriz enemiga, trabaja con vectores que regis-
mos para decidir si el juego terminó o no. En la Tabla 2 hay tran las posiciones que marcó la máquina, para después poder
algunos procedimientos y funciones del programa que traba- saber qué derribamos.
jan con estructuras; les recomiendo que los miren para ver El tema de los tiros y la funcionalidad consiste en interpre-
cómo funcionan. tar a dónde quiere tirar el usuario, y con otro random hacer
Como se habrán dado cuenta, este programa está muy “pro- que la máquina nos tire, con el agregado de un vector que irá
cedimentado”, lo cual es muy bueno para tener un código or- registrando nuestros tiros y los de la máquina, para que no ha-
denado. Delphi no ofrece el code explorer (Figura 2) que nos ya repeticiones. Como no tiene mucho de nuevo para nuestro
muestra en forma de árbol todos los procedimientos, funciones tema específico, no publicamos el código en la revista, pero
y variables que hayamos creado. Lo bueno de esto es que, si pueden encontrarlo en el CD.
hacemos doble clic sobre el nombre de la función o el procedi- En la figura grande que está al principio de esta nota, vemos
miento, nos manda directamente a éste. Esto resulta muy útil cómo queda nuestro programa terminado. Lindo, ¿no? Habrán
en caso de que el código sea demasiado largo, pero si está bien notado que esta vez me tomé mi tiempo para diseñar una
“procedimentado”, el code explorer se vuelve indispensable. bonita interfase.
Tabla 2: Procedimientos y funciones que usan estructuras

❙
Procedimiento o función Descripción Estructura que usa

Marcar Marca una posición (pone en true) en la matriz. Matriz de 10 x 10.
Desmarcar Desmarca una posición (pone en false) en la matriz. Matriz de 10 x 10.
Marcado Avisa si cierta coordenada está marcada o no. Matriz de 10 x 10.
Bien_posicionado Avisa si el segundo espacio de un barco o un submarino
es consecutivo o no. Vector de 8 posiciones de string.
bien_posicionado_dos_pos Avisa si el tercer espacio de un submarino
es consecutivo o no. Vector de 2 posiciones de string.
Ver_marc Busca si hay casilleros marcados alrededor de uno específico. Matriz de 10 x 10.
LISTADO 1: end;
end;
procedure codigo_espacio (cordenada:string; Can- end;
t_espacios:TLabel; but_barcos, but_lanchas,but- end;
_submarinos:TButton; box:TCheckBox);
var {código para lancha}
auxint: integer; if lancha= true then
str:string; begin
begin marcar(mat,x,y);
cordalfatocordnum(cordenada,y,x); {cambia de coor- descontar_en_string(cant_espacios,1);
denadas alfanuméricas a numéricas} habilitar_botones (but_barcos,but_lanchas-
if marcado (mat,y,x) = false then {verifica que ,but_submarinos);
esté marcado} end;
begin
if (cant_espacios.Caption <> ‘’) and (cant_es- {código para submarino}
pacios.Caption <> ‘0’) then
begin if submarino= true then
{Código para el barco} begin
if barco= true then if cant_espacios.caption = ‘3’ then
begin begin
if cant_espacios.caption = ‘2’ then registrar_disponibles (posiciones_libres-
begin ,mat,x,y);
registrar_disponibles (posiciones_libres- marcar(mat,x,y);
,mat,x,y); descontar_en_string(cant_espacios,1);
{registra las posiciones posibles end
para el 2º espacio} else
marcar(mat,x,y); {marca el espa- begin
cio} if cant_espacios.caption=’2’ then
descontar_en_string(cant_espacios,1); begin
end if bien_posicionado(posiciones_li-
else bres,x,y) = true then
begin begin
if cant_espacios.caption=’1’ then marcar(mat,x,y);
begin descontar_en_string(cant_espacios,1);
if bien_posicionado(posiciones_li- determinar_posiciones(vector_dos_po-
bres,x,y) = true then siciones,posiciones_libres,mat,x,y); {devuelve las
begin dos posiciones posibles en los extremos para el 3º
marcar(mat,x,y); espacio del submarino}
descontar_en_string(cant_espacios,1); end
habilitar_botones (but- else
_barcos,but_lanchas,but_submarinos); begin
end if flagmens =true then
else begin
begin Application.Message-
if flagmens =true then Box(‘debe marcar un casillero contiguo’,’Error de
begin marcado’,MB_OK);
Application.MessageBox(‘debe mar- flagmens:=false;
car un casillero contiguo’,’Error de marcado’,M- box.checked:=false;
B_OK); end;
flagmens:=false; flagmens:=true;
{‘box’ es un objeto Tcheckbox pasado por paráme- end;
tro de entrada/salida} end
box.checked:=false; else
end; begin
flagmens:=true; sigue en página 80
viene de página 79
if cant_espacios.caption=’1’ end;
then flagmens:=true;
begin end;
if bien_posicionado_dos_pos(vector- end;
_dos_posiciones,x,y)=true then end;
begin
marcar(mat,x,y); end;
descontar_en_string(cant_espacios,1); end;
habilitar_botones (but_barcos- end
,but_lanchas,but_submarinos); else
end begin
else box.checked:=false
begin end;
if flagmens =true then end
begin else
Application.MessageBox(‘debe mar- begin
car un casillero contiguo’,’Error de marcado’,M- box.checked:= true;
B_OK); end;
flagmens:=false; end;
box.checked:=false;
Algunas cosas importantes modificar. Para más detalles, observen la Tabla 3, que explica
Noten que en este ejemplo utilizamos dos matrices de cuánto ocupa cada tipo de dato en memoria.
10 x 10 posiciones booleanas. A simple vista, parece una Este tipo de aspectos, a los que si tenemos una máquina
barbaridad, pero el espacio que ocupa un dato booleano en grande generalmente no les damos importancia, resultan
memoria es de un solo byte (8 bits). Por lo tanto, la matriz fundamentales para que nuestro código sea transportable a
completa ocupa sólo cien bytes (mucho menos de lo que la mayor cantidad de máquinas posible. Quizás en un siste-
ocupa un dato de tipo string). ma pequeño no influya, pero sí en sistemas que manejen un
Es importante fijarse bien en el tipo de datos que guardamos volumen mayor de datos.
en las variables. Por ejemplo, en los vectores que usamos pa- Otra característica importante para resaltar es la función del
ra registrar las posiciones de la máquina, lo más grande que se objeto Timer (Figura 3), que es sumamente útil para cualquier
puede guardar es el par de coordenadas 10,10 (j10 en coorde- aplicación que se nos ocurra hacer. Este objeto cumple la fun-
nadas alfanuméricas), por lo cual no se justifica la utilización ción de temporizador, que, a partir de cierto tiempo de acti-
de un vector de tipo string completo que ocupe 256 bytes por vación, ejecuta la porción de código que le asignemos al even-
posición. Un vector indexado de cuatro posiciones (que ocupa to. En este caso lo usamos para separar un tiempo entre los
sólo 4 bytes) es más que suficiente para los datos que va a tiros del usuario y los de la máquina.
guardar, ya que un string no es más que una cadena de carac- OK. Todo listo para incluir nuestra batalla naval en los jue-
teres, que, por ser un tipo de datos encapsulado, no podemos gos de Windows, así que prepárense para fundar su propia em-
presa de juegos bajo Delphi.
Tabla 3: Tipos de datos Algunas sugerencias para practicar

❙
Como habrán visto hasta acá, falta agregar un montón de co-

Éstas son las variables que más se utilizan. La cantidad de sas al programa para perfeccionarlo y refinarlo, así que, para
espacio varía según el subtipo de variable (ej.: Shortint o
que puedan practicar, les recomiendo que intenten agregarlas
Smallint).
por su cuenta, ya que con lo que vimos es suficiente. Acá les
Nombre Espacio que ocupa sugiero algunas de ellas.
Boolean 1 byte • La opción de definir la cantidad de barcos, lanchas y sub-
String 256 bytes marinos con los que queremos jugar.
Integer 32 bits
• Poner la opción de reiniciar el juego una vez terminado.
Char 1 byte
Real 4 a 10 bytes (depende • Porcentaje de tiros acertados de ambos jugadores.
de los dígitos significativos) • Crear varias interfases gráficas, y que vayan cambiando ca-
da vez que reiniciemos el juego.
LISTADO 2:
marcar (mat,x,y);
{registramos en un vector los bar-
procedure armar_enemigo(var mat:matriz);
cos que puso}
var
barcos_ene[i,1]:= inttostr(x)+inttostr(y)
i,x,y:integer;
end
begin
else
randomize; {procedimiento que usamos para
begin
inicializar el random}
randomize;
for i:=1 to 5 do
x:=random(11);
begin
if x = 0 then
x:=random(11); {random de 0 hasta 10; es-
x:=x+1;
ta función viene con Delphi}
y:=random(11);
if x = 0 then
if y = 0 then
x:=x+1;
y:=y+1;
y:=random(11);
marcar (mat,x,y);
if y = 0 then
barcos_ene[i,1]:= inttostr(x)+inttostr(y);
y:=y+1;
end;
{calculamos los espacios posibles
if marcado(mat,y,x) = false then {¿no estaba
para el 2º espacio}
esta lancha?}
registrar_disponibles(posiciones_libres,mat,x,y);
begin
{Este procedimiento hace un random
marcar (mat,x,y);
de 1 a 8 para determinar la dirección de
{registramos en un vector las lan-
la 2º posición}
chas que puso}
llenar_segundo_espacio(posiciones_libres,x,y);
lanchas_ene[i]:= inttostr(x)+inttostr(y)
if marcado (mat,y,y) <> true then
end
begin
else
marcar (mat,x,y);
begin
barcos_ene[i,2]:= inttostr(x)+inttostr(y)
randomize;
end
x:=random(11);
else
if x = 0 then
begin
x:=x+1;
registrar_disponibles(posiciones_libres,mat,x,y);
y:=random(11);
llenar_segundo_espacio(posiciones_libres,x,y);
if y = 0 then
marcar(mat,x,y);
y:=y+1;
barcos_ene[i,2]:= inttostr(x)+inttostr(y);
marcar (mat,x,y);
end;
lanchas_ene[i]:= inttostr(x)+inttostr(y);
end;
end;
{llenamos los submarinos}
for i:=1 to 2 do
end;
begin
x:=random(11);
{llenamos los barcos}
if x = 0 then
for i:=1 to 3 do
x:=x+3;
begin
y:=random(11);
x:=random(11);
if y = 0 then
if x = 0 then
y:=y+3;
x:=x+2;
y:=random(11);
if marcado(mat,y,x) = false then
if y = 0 then
begin
y:=y+2;
marcar (mat,x,y);
submarinos_ene[i,1]:= inttostr(x)+inttostr(y)
if marcado(mat,y,x) = false then
end
begin
else llenar_segundo_espacio(posiciones_libres,x,y);
begin marcar(mat,x,y);
randomize; submarinos_ene[i,2]:= inttostr(x)+inttostr(y);
x:=random(11); end;
if x = 0 then determinar_posiciones(vector_dos_posiciones,posi-
x:=x+3; ciones_libres,mat,x,y);
y:=random(11); llenar_tercer_espacio(vector_dos_posiciones,x,y);
if y = 0 then if marcado (mat,y,x) <> true then
y:=y+3; begin
marcar (mat,x,y); marcar (mat,x,y);
submarinos_ene[i,1]:= inttostr(x)+inttostr(y); submarinos_ene[i,3]:= inttostr(x)+inttostr(y)
end; end
registrar_disponibles(posiciones_libres,mat,x,y); else
llenar_segundo_espacio(posiciones_libres,x,y); begin
if marcado (mat,y,x) <> true then determinar_posiciones(vector_dos_posiciones,posi-
begin ciones_libres,mat,x,y);
marcar (mat,x,y); llenar_tercer_espacio(vector_dos_posiciones,x,y);
submarinos_ene[i,2]:= inttostr(x)+inttostr(y) marcar(mat,x,y);
end submarinos_ene[i,3]:= inttostr(x)+inttostr(y);
else end;
begin end;
registrar_disponibles(posiciones_libres,mat,x,y); end;
Delphi: el hijo de Pascal

E l lector Leandro Lorge nos hizo llegar sus críticas sobre la
nota de Delphi publicada en USERS #117. En primer lugar,
nativa para el código de los botones numéricos de la calcula-
dora. En el caption de cada botón tenemos su número, por lo
nos aclara que no pudo encontrar el código fuente en el CD de la que podemos saber qué botón se presionó tomando la propie-
revista. Es cierto, el código no apareció, por eso decidimos pu- dad caption del objeto disparador del evento, con lo cual po-
blicarlo en el CD de este número, en la carpeta PROGRAMACIÓN. demos asociar el evento OnClick de todos los botones numéri-
En segundo lugar, nos hace algunas aclaraciones de cómo cos a un único procedimiento, parecido al siguiente:
mejorar el código. Por ejemplo, nos cuenta que justificamos la procedure Tform1.Button1Click(Sender: Tobject);
utilización del objeto memo para el display, ya que se puede begin
alinear a la derecha, pero que el objeto label también lo per- if Flagop then
mite y pesa menos que un memo. begin label1.caption:=(Sender As
También nos hace notar que dijimos que para solucionar el Tbutton).caption;
problema del cambio de tipo de dato, no tenemos la suerte de Flagop:=false
contar con un equivalente de la función Val de Visual Basic y end
deberemos acudir a variables de tipo variant. Sin embargo, else label1.caption:=label1.caption+(Sender
nos recuerda que en Delphi existen varias funciones de conver- As Tbutton).caption
sión entre distintos tipos de datos, como StrToFloat y Float- end;
ToStr, que incluso son mucho más rápidas.
Otra cosa que recomienda es evitar las repeticiones de código De esta forma evitamos tener que escribir una llamada dife-
para mejorar su rendimiento y velocidad. Además pide que en rente para cada botón cambiando los parámetros que se pasan,
ediciones próximas tabulemos y ya no es necesario ni pasar por parámetro ni calificar al ob-
las líneas de código para hacer- jeto que hace las veces de display (en este caso, label1).
lo más legible. Agradecemos tus sugerencias y te aseguramos que las ten-
También recibimos una alter- dremos en cuenta. De todos modos, queremos contarles a to-
dos los lectores que la nota de Delphi está pensada para los
Un lector nos envió sus críticas usuarios que conocen poco del lenguaje, y si bien hay mu-
e interesantes mejoras para el chas funciones y operaciones que se pueden hacer de dife-
proyecto de la calculadora de rentes maneras para optimizar el código, la nota sólo persi-
USERS #117. gue un fin didáctico. ✕
¡¡¡TIEMBLA WORD!!!
Archivos en Delphi
Ya les tomamos la mano a las variables y probamos las
estructuras de datos bajo DELPHI. Estamos preparados
para dar el próximo paso hacia los ARCHIVOS, que nos
Alex VALENCIA permitirán crear APLICACIONES MÁS
PROFESIONALES y más útiles. Comenzaremos con los
fanático del anime y la programación. de texto hasta llegar a los binarios.
L os archivos son una parte fundamental de cualquier len-

guaje de programación, ya que gracias a ellos podemos
Esta pequeña definición, que tal vez sea bastante fácil de de-
ducir, es la clave para aprender cómo funciona un archivo y có-
utilizar nuestro disco rígido para almacenar datos que des- mo debemos trabajar con él.
pués procesaremos en las aplicaciones. Hay dos tipos de ar-
chivos bien distinguidos: el de texto y el binario. En esta Los archivos de texto
oportunidad nos abocaremos a conocer el funcionamiento de El archivo de texto no es otro que el clásico y famoso .txt,
los primeros, que nos servirán para almacenar cualquier cosa que utilizaremos en esta oportunidad. Ahora quizá relacionen
que deseemos en forma de texto. Pero antes veamos una de- otras extensiones con este tipo de archivo, como .doc (Word)
finición de archivo. o .sam (Ami pro). Estos archivos también son de texto, aun-
que si los abren con WordPad, por ejemplo, verán texto mez-
Definición de archivo clado con ASCII. Esto se debe a que dichos signos son inter-
Muchas veces hablamos de archivos como de algo corriente, pretados por el procesador de textos, y de esta forma podemos
pero cuando comenzamos a trabajar con ellos debemos com- usar fonts u otros efectos de los que ya estamos acostumbra-
prender su estructura, cómo funcionan y cómo son realmente. dos a usar en cualquiera de estas aplicaciones. Las fonts no
Un archivo es un espacio de memoria (recordemos que me- son más que gráficos que el procesador de textos relaciona con
moria no es sólo la RAM, sino también un CD-ROM o un disco la matriz de caracteres que se encuentra en la ROM de video y,
rígido) con principio y fin, donde es posible almacenar datos a partir de ahí, las vemos en nuestro monitor. Pero sin profun-
interpretables por la máquina. La PC acude a la FAT (File Allo- dizar mucho más en el tema, comencemos con nuestro
cation Table) para ver en qué dirección empieza el archivo que procesador de textos basado en Delphi, hecho por y para
solicitamos, y lo lee hasta encontrar su final. nosotros mismos.
Figura 1. Nace nuestro nuevo editor, Figura 2. Aquí configuramos los filtros Figura 3. Ésta es una herramienta muy
creado por nosotros mismos. Así podría de archivos que queremos leer, con las sencilla para crear un menú;
ser la primera fachada que le demos. famosas wildcards (*.txt,*.doc, etc.), simplemente le ponemos un nombre y le
Sean creativos con la interfase. para encontrar fácilmente cualquier asociamos código al seleccionarlo.
archivo. El código se ejecutará según los eventos.
Digámosle adiós al odioso

WordPad y démosle la
bienvenida al FastPad. No
sólo es más rápido para
cargar, sino que lo hicimos
nosotros mismos y lo
vimos crecer, snif.
Cambiando WordPad por FastPad rramos o modificamos (ABM), ya que no es otra cosa que una
FastPad es el nombre de nuestro programa, que reunirá las base de datos de archivos. Cuando abrimos el archivo, la FAT
opciones que más utilizamos en WordPad ([Abrir], [Guardar], nos dice en qué posición del disco empieza para poder comen-
[Guardar como], [Buscar] e [Imprimir]) en cuatro botones zar a usarlo.
y un menú que contendrá las mismas funciones. Les recomien- Para los fines de la programación, en el momento en que
do que, a partir de esto, vayan agregándole cosas para ver las abrimos un archivo de texto, éste se convierte en una varia-
distintas herramientas que Delphi ofrece. ble del tipo textfile (en el caso particular de Delphi), y a par-
En nuestro form principal ubicaremos los objetos que descri- tir de ahí podremos trabajar con ella como lo hacemos con
be la Tabla 1, con los que nos quedará algo como lo que cualquier otra variable.
muestra la Figura 2. Una vez hecho esto, estamos listos para Hay varias formas de abrir un archivo, pero las más impor-
comenzar. tantes son dos: lectura o escritura. Existe una tercera, que es
para lectura y escritura, pero como ven, desciende de las an-
Abrir un archivo teriores. En la Tabla 2 se indican las sintaxis y las maneras de
En este programa hay dos funciones fundamentales que real- abrir archivos.
mente nos importan: Abrir y Guardar, ya que con ellas abriremos
archivos, ya sea para escribir o para leer, y los almacenaremos. Abriendo un archivo para lectura
Para trabajar con un archivo debemos abrirlo, lo que signi- Ahora nos encargaremos de abrir nuestro archivo de texto
fica buscar el comienzo de éste y empezar a usarlo. Cuando para leerlo. Como habrán imaginado, esta acción va asociada
nosotros pedimos, por ejemplo, el directorio de una carpeta, a la función Abrir de nuestro programa. Como no queremos
lo que vemos no es más que un reflejo de lo que la FAT tiene que nuestro programa sea menos que cualquier otro de Win-
almacenado. La máquina sólo toca la FAT cuando creamos, bo- dows, usaremos para esto un objeto del tipo TopenDialog, que
Tabla 1: Objetos de la aplicación

❙
Objetos que usaremos en nuestra aplicación FastPad.
Nombre del objeto Descripción

RichEdit Es un campo editor como el memo o el textbox, que nos permite trabajar con texto enriquecido
(usar fonts y otros efectos), además de darnos información del texto (medidas, párrafos, etc.).
Está hecho, precisamente, para un procesador.
Botones (x 4) No hay demasiada explicación para éstos...
OpenDialog Es la clásica caja de diálogo para abrir archivos, sólo se ve en tiempo de ejecución.
SaveDialog Ídem OpenDialog, pero para guardar.
FindDialog Es la caja de diálogo para buscar palabras (de cualquier editor de texto).
MainMenu Objeto que nos permite crear la barra de comandos superior del form. La Figura 1
nos muestra la herramienta para crearlo.
en su método execute no permite utilizar el tan conocido diá- ¡Hora de escribir!

logo de Abrir, que deberemos configurar (Figura 3). Pero vea- Bien, ya sabemos cómo leer; ahora nos falta la otra mitad:
mos esto directamente en el código que está asociado al even- aprender a guardar, o lo que se traduce como abrir archivos pa-
to clic del botón [Abrir], que lo único que hace es llamar al ra escritura. Esta acción está asociada al botón [Guardar como],
TopenDialog: que, a su vez, está vinculado al objeto TSaveDialog. El código es:
begin var
dialog_abrir.Execute; {llamamos al TopenDialog} auxtext:string ;
end; begin
Ahora asociamos el código para abrir el archivo a la función filename:= dialogo_salvar.FileName;

de clic del botón [Abrir] del TopenDialog: {filename almacena el path + nombre del archivo a
var crear}
auxtext:string; AssignFile(text_file,filename+’.txt’);
begin {asignamos a text_file el nombre del archivo para
editor.text:=’’;{reseteamos el contenido del cua- crear}
dro TrichEdit} rewrite(text_file); {abrimos para escribir}
filename:= dialog_abrir.FileName; write(text_file,editor.text);
{filename es una variable string} {ponemos lo que hay en el editor en el archivo}
AssignFile(text_file,filename); closefile(text_file); {cerramos el archivo}
{asignamos el archivo externo a una variable tipo end;
textfile}
reset(text_file); {abrimos para lectura !!} Si sólo quisiéramos guardar en el archivo abierto, entonces el
while not eof(text_file) do código estaría asociado al botón [Guardar], y la diferencia de
{mientras no lleguemos al final del archivo} éste con el código de [Guardar como] es que no levantamos
begin el nombre del archivo de TSaveDialog, sino que lo guardamos
readln(text_file,auxtext); en el archivo que ya se encuentra en la variable filename.
{leemos una línea y la ponemos en auxtext del tipo
string} Buscando e imprimiendo
editor.text:=editor.text+aux- Aparte de las funciones que trabajan netamente con archi-
text+chr(13)+chr(10); vos, también agregamos estas dos funciones, que son muy
{Ascii 13=return of carry (cursor al principio), As- simples de ver y harán que nuestro FastPad se vea un poco
cii 10=line feed (nueva línea)} más profesional.
end; El código que va asociado al diálogo del objeto TFindDialog
closefile(text_file); {cerramos el archivo siem- es el que utilizan todos los procesadores de texto para la fun-
pre después de usarlo} ción Buscar, y como es tan empleado, Delphi lo provee en el
end; mismo archivo de ayuda. Por eso, lo único que nos queda por
hacer es aplicarlo a nuestro programa, por lo que quedaría así:
Observen una cosa muy importante: para leer el archivo usa- begin
mos el comando readln, que lee la línea hasta encontrar el with editor do
EOL (End Of Line); éste viene dado por un carácter ASCII que begin
indica dicho fin. Como vamos a abrir el archivo respetando las {Empieza desde el lugar donde se quedó la últi-
líneas (si no, veríamos cualquier cosa), después de cada línea ma búsqueda}
asignamos caracteres ASCII con la función chr(), que asigna {Si no, empieza desde el comienzo del texto}
el carácter ASCII correspondiente al número que pasemos por if SelLength <> 0 then
parámetro. Por eso pasamos el 13 y el 10, que harán retroce- StartPos := SelStart + SelLength
der el cursor y crearán una nueva línea. else
StartPos := 0;
{ToEnd es la longitud desde la posición ini-
Tabla 2: Modos de apertura
❙
cial hasta el final del texto en el Richedit}

Éstas son las distintas maneras de abrir un archivo. ToEnd := Length(Text) - StartPos;
FoundAt := FindText(dialogo_buscar.FindText,
Sentencia Tipo de apertura StartPos, ToEnd, [stMatchCase]);
Reset Sólo lectura. if FoundAt <> -1 then
Rewrite Sólo escritura. begin
Append Lectura y escritura. SetFocus;
SelStart := FoundAt; Como siempre, les aconsejo que sigan ampliando esta apli-
SelLength := Length(dialogo_buscar.FindText); cación para poder conocer otras herramientas de Delphi. Acá
end; les tiro algunas sugerencias:
end;
end; 1) Agregar la opción para fonts.
2) Crear la personalización de la impresión (TPrintDialog).
Eso es todo para la función Buscar. La función Imprimir es 3) Crear la opción de reemplazar.
mucho más fácil; sólo debemos asociar esta línea al botón 4) Poder agregar la opción para copiar al clipboard.
[Imprimir], y listo:
begin Algo más acerca de archivos
editor.Print (filename); {función para imprimir el Si bien usamos un procesador de textos para poder enten-
archivo pasado por parámetro} der el funcionamiento de un archivo, los archivos manejan
end; todo el ámbito de nuestra máquina, no sólo en forma de
programas sino que, mirándolo desde el punto de vista de la
Obviamente, podríamos haber hecho esto también con un programación, son indispensables dentro de cualquier
objeto tipo TPrintDialog para tener aparte la opción de ele- aplicación. Por ejemplo, con ellos podemos crear flags per-
gir cantidad de copias, configuración de impresoras, etc. manentes, que es donde las aplicaciones se fijan para con-
Generalmente usamos el shortcut de impresión rápida, pero servar configuraciones. Los famosos *.ini no son más que
si creen necesaria esta opción, es muy fácil agregarla, y les archivos de texto que informan a su creador cómo fue con-
podrá servir de práctica para aprender a manejar mejor otros figurada cada aplicación.
diálogos para futuras aplicaciones. Como el objetivo de es- Por otro lado, los archivos de registro, generalmente llama-
ta nota es el manejo de archivos en particular, lo vamos a dos binarios, son la raíz donde se fundan todas las bases de
dejar ahí. datos, pero veremos este tema en el próximo número. La
Si todo salió bien, nuestro FastPad quedará como lo muestra administración de memoria “Swap” está basada en el manejo
la Figura 4. de archivos. Éstos son algunos ejemplos, en el próximo
CÓMO TRABAJAR CON ELLOS DESDE DELPHI
Archivos binarios
Ya estamos a pasos de sacarle el jugo a nuestro disco
rígido. Con lo que aprendimos sobre archivos de texto, sólo
abarcamos una parte de lo que podemos hacer. Ahora nos
Alex VALENCIA falta la otra mitad: LOS ARCHIVOS BINARIOS, que
brindarán a nuestras aplicaciones la posibilidad de trabajar
fanático del anime y la programación. con registros sin necesidad de un motor de base de datos.
E l tema de los passwords suele ser un dolor de cabeza

cuando son demasiados. Muchos optan por tener un
base de datos, ya que, entre otras cosas, evitaremos tener que
iniciar el motor de la base y podremos disponer de más flexi-
username y un password para todo, pero no es un método muy bilidad en el manejo de nuestros registros (aunque esto signi-
efectivo. Por esta razón, se me ocurrió tomar todos los pape- fique programar más).
litos sueltos con usernames y passwords que tenía por ahí, y “Archivos binarios” es un nombre que se usa en la jerga
hacer un programa donde poder almacenarlos, que sea chico informática, pero cada lenguaje los llama de maneras diferen-
para tenerlo cargado en memoria y utilizarlo cuando lo nece- tes. En el caso de Delphi, se dividen en dos: los archivos tipo
site. De paso, introducirme en el tema de los archivos binarios, Typed y los de tipo Untyped. La diferencia entre ellos es que
que es lo que nos toca para esta edición de la revista. los primeros tienen definido un bloque de lectura o escritura,
o, lo que es lo mismo, leen por registro ya que están divididos
Qué es un archivo binario de esta forma; mientras que los archivos del tipo Untyped ne-
Es un archivo creado especialmente para almacenar registros. cesitan que se les defina la longitud del bloque a leer o escri-
Subdivide su longitud en espacios iguales del tamaño que ocu- bir. Hay ciertos procedimientos que son permitidos exclusiva-
pa un registro común, y a medida que agregamos registros, aña- mente para cierta clase de archivo. La Tabla 1 nos muestra los
de un espacio. Se accede a él de manera similar que a uno de procedimientos admitidos para los archivos Typed.
texto y de forma consecutiva (primero lee el registro 1, luego el
2, y así sucesivamente) mediante el procedimiento read (). Definiendo el archivo
La gran ventaja que ofrecen es que, si nuestra aplicación re- Antes que nada, debemos saber bien cómo tienen que ser los
quiere el almacenamiento de datos y no se trata de muchos re- registros que utilizaremos en nuestro programa y luego definir-
gistros, nos convendrá usar un archivo binario más que una los encima de las variables de la siguiente forma:
Figura 1. El editor de lista para el Figura 2. Así es el programa terminado, Figura 3. Recordemos usar el debug en
ComboBox es amigable y muy fácil de listo para tomarse el trabajo de nuestros programas para verificar, entre
usar; es una verdadera lástima que sólo memorizar users y passwords. De una otras cosas, la lógica del código y los
podamos acceder a él en tiempo de vez por todas podremos decirles adiós a errores de ejecución que pudieran llegar
ejecución. los papelitos. a producirse.
Acá podemos setear la

forma de compilar nuestro
programa. Muchas veces
es posible solucionar
problemas retocando
algunas cosas de aquí.
Type {Palabra clave que indica que vamos a definir reset (archivo);
nuestro propio tipo de dato} if filesize(archivo)=0 then {si el archivo está
Pasreg = record vacío}
Nombre: string[50]; begin
user, pass: string[30]; rewrite (archivo); {setea el modo de aper-
descripcion: string [255]; tura del archivo en escritura desde el principio
end; del mismo}
Levantar_datos_a_registro(user,pass,lista,des-
Éste es el registro que vamos a usar en nuestro programa, así c,reg); {Procedimiento que pasa los datos de los
que ahora definimos el archivo y, de forma infaltable, el regis- objetos al registro}
tro que usaremos para escribirlo y leerlo. write(archivo,reg);
reg:pasreg; closefile(archivo);
archivo: file of pasreg; {Si no definimos el tipo end
de archivo, lo toma como Untyped} else
begin
¡Programando la base! {primero buscamos si el registro existe o no}
Como ya habrán observado, éste es un típico programa de ABM while (not EOF(archivo)) and (existe<>true)
(Altas, Bajas y Modificaciones), y tenemos muchas maneras de do {mientras no pisemos el final}
controlarlo. Vamos a basarnos en que la modificación en el cam- begin
po clave es tomada como un nuevo registro. if reg.nombre = lista.text then
El campo clave será aquél por el cual buscaremos, crearemos existe:=true
e identificaremos cada registro. Nuestro registro está conforma- else
do por un nombre, un username, un password y una descrip- read(archivo,reg)
ción, donde nuestro campo clave será el nombre del registro. end;
En nuestro form tendremos un ComboBox, tres EditBox y tres
botones para guardar, crear y borrar un registro. if existe= true then {si existe, se trata
de una Modificación}
La A de alta begin
La alta de un registro o, lo que es lo mismo, la creación de reg.user:=user.text;
un registro estará dada por el hecho de comprobar la existen- reg.pass:=pass.text;
cia de éste en el archivo. Si no existe, lo damos de alta. El pro- reg.descripcion:=desc.text;
cedimiento, que está asociado al botón [Guardar], será así: write(archivo,reg);
closefile (archivo);
begin end
AssignFile(archivo,’\passwords.dat’); else
begin La B de baja
while not eof (archivo) do {Si no, Este procedimiento nos mostrará la forma más elegante y
de una Alta} correcta de trabajar con archivos binarios.
read(archivo); La baja estará asociada al evento Clic del botón [Borrar], y
Levantar_datos_a_registro(user,pass- el procedimiento es así:
,lista,desc,reg);
write(archivo,reg); {Escribe en el var
final} i,j:integer;
armar_combo(lista); {Procedimiento vec_pas: array [0..limite] of pasreg; {Vector de
que rearma el ComboBox con el campo Nombre} registro para levantar el archivo a memoria}
end; begin
end; AssignFile(archivo,’\passwords.dat’);
end; reset (archivo);
if sizeof(archivo) <> 0 then
Este mismo procedimiento nos indica si se trata de una mo- begin
dificación o de un alta, por lo cual también tenemos la parte {subimos nuestro archivo a memoria o, lo que es
de las modificaciones resuelta en el mismo procedimiento. lo mismo, lo pasamos a nuestro vector de registros}
Dentro del procedimiento armar_combo(), donde se pasa i:=0;
por parámetro el ComboBox llamado Lista, podemos ver que while not EOF (archivo) do
ésta tiene una propiedad denominada Items, heredada del ob- begin
jeto Tstring (es una lista de cadenas), por lo cual deberemos read (archivo,reg);
acceder también a la propiedad Add, para poder agregar una if not EOF (archivo) then
cadena a la lista del ComboBox. La Figura 1 nos muestra el begin
amigable editor que Delphi nos ofrece para armar la lista en vec_pas [i]:= reg; {esta asignación sólo es
tiempo de diseño. posible cuando la estructura de los registros es
Una de las cosas que podemos observar es que el trato para igual}
el primer registro es diferente que para los demás, ya que ha- inc(i);
bitualmente debemos buscar el final del archivo (registro con end
la marca EOF, End Of File) y agregar el registro nuevo. En cam- else
bio, para el primer registro usamos Rewrite, que es una de las begin
funciones dadas por el set de I/O (Input/Output) de archivos, vec_pas [i]:= reg;
cuyo fin es abrir un archivo en forma de escritura, borrar to- inc(i);
dos los registros existentes, si hubiera alguno, y posicionar el end;
puntero al principio del archivo o en BOF (Begin Of File). Ade- end;
más, en caso de no encontrar el archivo externo asociado en {ahora trabajamos en nuestra estructura ya en
el procedimiento AssignFile, lo crea automáticamente. memoria}
Tabla 1
❙
Éstos son algunos procedimientos y funciones útiles al momento de trabajar con archivos binarios:
Procedimiento Descripción
AssignFile Asocia una variable tipo file con un archivo externo.
ChDir Cambia el directorio actual.
CloseFile Cierra y disocia la variable con el archivo externo, actualizando este último.
Eof Indica si el registro actual tiene marca de End Of File.
Erase Borra el archivo externo asociado a la variable.
FilePos Devuelve el número de registro actual.
FileSize Devuelve el tamaño del archivo.
MkDir Crea un subdirectorio.
Read Lee un registro del archivo y lo pone en un registro que le pasemos por parámetro.
Rename Renombra el archivo externo asociado.
Reset Ubica el puntero del archivo en el comienzo de éste y lo abre para lectura.
Rewrite Crea y abre un nuevo archivo.
RmDir Borra un subdirectorio.
Truncate Trunca el archivo a partir del registro actual.
Write Escribe el registro que se le pase por parámetro en el archivo, en la posición donde se encuentre.
i:=0; sitemos directamente en tiempo de ejecución. Como es algo

while lista.Text <> vec_pas[i].Nombre do que aún no hemos visto, nos las arreglaremos definiendo una
inc(i); {INC es una función que incrementa constante llamada limite, que tiene asignado el valor 100; así
la variable que pasamos por parámetro} que, si se necesita más espacio (cosa que dudo mucho), se
cambia la constante y se recompila el programa. La función
{si es igual, es que encontré el registro a INC, utilizada en el procedimiento, incrementa la variable en
borrar, por lo cual corro todo el resto un espacio una unidad. Es mejor utilizar esto que el clásico i:= i+1, ya
más atrás} que está hecho con instrucciones más parecidas a las del com-
pilador, lo que se traduce en mayor velocidad.
while vec_pas[i].nombre <> ‘’ do Otra posibilidad interesante que Delphi nos ofrece es la de
begin evadir la terminación de un programa debido a un error de
j:=i+1; I/O; podemos lograrlo si desmarcamos esta característica en
vec_pas[i]:=vec_pas[j]; las opciones del proyecto, en la solapa [Compiler], donde
inc(i); además tenemos otras opciones para personalizar la compila-
end; ción de nuestro proyecto.
{Por último, pasamos nuevamente los registros
al archivo} Actualizando la pantalla
rewrite (archivo); Esta acción está relacionada con el evento Clic del Combo-
i:=0; Box, que contiene el nombre de nuestro registro. De esta ma-
while vec_pas[i].nombre <> ‘’ do nera, cada vez que seleccionemos un registro por su nombre,
begin inmediatamente se actualizarán los demás campos. Con una
write(archivo,vec_pas[i]); base de datos esto se hace de manera casi automática, pero
inc(i); con un archivo binario es diferente, ya que deberemos progra-
end; marlo. Las líneas correspondientes a dicho procedimiento se
closefile(archivo); presentan a continuación.
armar_combo(lista);
clear_fields(user,pass,lista,desc); begin
end AssignFile(archivo,’\passwords.dat’);
else reset(archivo);
begin read (archivo,reg);
lista.items.Clear; while lista.text <> reg.nombre do
clear_fields(user,pass,lista,desc); read (archivo,reg);
end; Levantar_datos_a_pantalla(user,pass,lista,des-
end; c,reg); {pasa los datos del registro al form}
closefile (archivo);
Habitualmente, la forma de trabajar con archivos es, prime- end;
ro, levantarlos a memoria a través de un vector de registros
(en el caso de los archivos binarios), luego trabajar con ellos Como ven, es muy importante usar bien los ciclos de repetición
en memoria, o sea, en nuestro vector de registros, para final- para recorrer el archivo. En este caso, el EOF no nos preocupa, ya
mente volver a pasarlos al archivo. En este caso, lo levanta- que seguramente el registro que buscamos existe en el archivo.
mos a memoria, buscamos el registro a eliminar y escribimos Por último, el botón [Nuevo] se limitará a limpiar los cam-
todo otra vez en el archivo. Como el acceso es secuencial, una pos del formulario con el procedimiento Clear_fields(). La Fi-
vez encontrado el registro (buscado por el campo clave Nom- gura 2 nos muestra el programa terminado.
bre), corremos todos los que lo preceden un espacio hacia
atrás; de esta forma nos quedará todo listo para escribir el ar- A perfeccionarlo
chivo en el disco y guardar. Algo útil para poder ver bien la forma de manejo de estos ar-
Otro aspecto importante es que, si bien en el archivo es po- chivos es correr nuestro programa con el debug, como lo
sible agregar nuevos registros ya que está manejado por un muestra la Figura 3, para asegurarnos de que estamos abrien-
puntero, el vector de registro que utilizaremos para levantar- do y cerrando el archivo correctamente.
lo a memoria no nos ofrece esta posibilidad. En este caso, Usar este tipo de archivos nos ayudará muchísimo a com-
creamos una estructura de 100 posiciones, lo que significa prender el funcionamiento de las bases de datos, ya que, sin
que, mientras manejemos hasta 100 registros, no tendremos importar de qué base se trate, su funcionamiento es, por de-
problemas para borrar. Esto se debe a que la estructura nos li- más, parecido a éste. Delphi nos permite manejar de forma
mita; lo óptimo en este caso sería manejarlo con una lista que muy flexible esta herramienta, lo que le adjudica más puntos
relacione registros del tipo pasreg, y de esta forma podríamos a favor a este lenguaje y otra razón para preferirlo al momen-
ir creando en memoria tanta cantidad de espacios como nece- to de crear nuestras aplicaciones. ✕
ProgramacionU#121.qxd 4/24/01 11:30 AM Page 80
APRENDIENDO A APUNTAR CON DELPHI
Punteros en Delphi
No se trata de un arma ni nada por el estilo; los
PUNTEROS son muy útiles para cualquier aplicación.
Si bien al principio es difícil entenderlos, son muy
Alex VALENCIA flexibles y conforman el conjunto FUNDAMENTAL de
Estudiante de Ciencias de la
elementos para las bases de cualquier lenguaje de
Computación, fanático del anime y la programación. programación. ¡Apuntemos a ellos!
E stuvimos viendo muchos elementos que son imprescindi-

bles al momento de hacer una aplicación, siempre bajo
torio) es la memoria de rápido acceso de nuestra máquina.
Existen muchos tipos, como ya vimos, pero la RAM es la más
el lente de Delphi (mostrando su sintaxis y modo de uso). Pa- veloz porque el micro accede a ella en forma directa.
ra cerrar esta lista nos faltan los punteros, que son importan- No toda nuestra memoria RAM está disponible a nuestro an-
tísimos, ya que, una vez que sepamos usarlos, más lo aprendi- tojo, sino que sólo contamos con una sección de ella. Hay lu-
do en números anteriores de USERS, estaremos preparados pa- gares reservados, por ejemplo, donde se almacena nuestro
ra hacer aplicaciones casi de cualquier tipo. sistema operativo, el cual necesita acceso a ciertos progra-
El concepto de punteros es un poco complicado de entender mas y funciones para su correcto funcionamiento, como dri-
la primera vez, ya que estamos manipulando directamente la vers o programas de administración. Si tenemos Windows o
memoria de nuestra máquina, pero no se preocupen, porque lo alguno con interfase gráfica de trabajo (ya casi nadie traba-
explicaremos detenidamente; y con los ejemplos dados, ¡serán ja sobre sistemas operativos no gráficos), se suman a la lis-
expertos en punteros! ta los programas que la interfase sube a memoria; en el caso
particular de Windows, los que se encuentran en la Task Bar
Conociendo nuestra memoria (barra de Tareas). Hay otros lugares de memoria reservados
Ya vimos nuestro rígido como campo de trabajo donde alma- como buffers, que también residen allí. Por eso, vemos que
cenar y leer archivos. Ahora nuestro campo de operaciones es no toda nuestra memoria está completamente disponible pa-
la memoria de la máquina, por lo que nos conviene conocerla ra su libre uso; una vez cargado todo, lo que queda de ella
un poco antes de explicar cómo trabaja un puntero. es para nosotros, y aquí es donde vamos a posicionar nues-
La RAM (Random Access Memory, o memoria de acceso alea- tra nueva herramienta de trabajo. Cuando almacenamos algo
Figura 1: Para los programadores más ociosos, el servicio Figura 2: “Encuestas” nos servirá muchísimo para entender los
Delphi Direct ofrece las últimas noticias del mundo Delphi. punteros; el ejecutable y el fuente están en el CD.
Ésta es la página
principal del site
www.clubdelphi.com,
donde podremos
encontrar muchos trucos y
técnicas de programación
en español.
en la memoria, la máquina lo hace de manera aleatoria; es- lo no tiene mucho sentido y que para apuntar a algo en me-
to significa que toma el dato que se almacenará y genera moria es más efectivo usar una variable; esto es cierto, pe-
una dirección permitida donde guardarlo, acelerando el pro- ro se vuelve útil cuando tenemos más de una cosa para su-
ceso de lectura y escritura. bir a memoria, como, por ejemplo, los registros de un archi-
El objetivo de los punteros es usar la memoria RAM como vo binario.
nuestro soporte de almacenamiento de datos, lo cual nos brin- El uso real de los punteros aparece cuando los aplicamos a
da muchísimas ventajas que iremos viendo durante esta nota. los registros; para entenderlo mejor, veamos la siguiente de-
claración de un tipo de dato.
Apuntando la atención a los punteros
La pregunta ahora es: ¿qué es un puntero? Es una variable type
que contiene la dirección de memoria de un dato específico. pun=^reg; {puntero a un registro}
Por ejemplo, podemos declarar un puntero que almacene la di-
rección de memoria de algún número que hayamos guardado reg=record {registro}
previamente en memoria; cuando solicitemos el valor de ese edad:string[2];
puntero, veremos una dirección, pero si pedimos ver a qué cole:string [50];
apunta éste, nos devolverá el número. nombre: string[50];
Como sucede con las variables, hay distintas clases de pun- sig:pun;
teros. Por ejemplo, si queremos hacer lo mencionado anterior-
mente, deberemos usar un puntero a integer (si el número es end;
un entero). Hay punteros para todas las clases de variables,
así que debemos asegurarnos de usar el correcto. Podemos dividir esta declaración en dos partes. Empecemos
Tal vez se hayan dado cuenta de que el puntero por sí so- por la segunda: estamos declarando un registro con un cam-
Tabla 1
❙
Éstas son las estructuras más conocidas para armar con punteros:
Tipo de estructura Descripción

Lista (FIFO) Es la más común de todas, ya que no requiere un código muy complejo para armarlo, y es del
tipo FIFO: First In, First Out.
Pila (LIFO) Es parecida a la cola, pero invirtiendo el orden de lectura; resulta útil cuando lo que leemos es
siempre lo más reciente, por ejemplo, un registro de errores. Es del tipo LIFO (Last In, First Out).
Anillo Es muy útil cuando leemos algunos datos cíclicamente; el final es igual que el principio, lo que
forma, como su nombre indica, un anillo.
Árbol (Figura 2) Es, casi por excelencia, la estructura más difícil de armar, pero es la más útil de todas, ya que
muchas veces la búsqueda de registros es más rápida que en las demás, aunque frecuentemente
nos trae dolores de cabeza.
po edad, uno cole y un nombre del tipo string, y, por último, nodo, que será el principio de la lista}
un campo sig del tipo pun. La primera parte de la declaración ultimo:=p; {como es el único, también es el úl-
nos indica que pun es un puntero a reg, o sea, al registro de- timo}
clarado abajo. La traducción de esto es un registro común con end
un campo puntero del tipo reg, es decir que dicho campo pue- else
de almacenar una dirección de memoria donde se encuentra begin
otro registro igual. ¡Eureka! new (p); {creamos un nuevo nodo en la lista}
Este procedimiento es realmente útil, ya que podemos en- p^.sig:=nil;
ganchar los registros entre sí de la forma que más nos con- levantar_datos (p,nombre,edad,cole);
venga (según el programa que hagamos). Hay muchas formas ultimo^.sig:=p;
de engancharlos, y deberemos utilizar la más óptima, depen- ultimo:=p;
diendo del uso que les vayamos a dar a los registros en el pro- lista.Items.add(nombre.text);
grama. La Tabla 1 nos muestra algunas maneras de armar end;
nuestros punteros. clear_fields (nombre,edad,cole);
end;
Empleando los punteros
Si tuviéramos que realizar una aplicación que levantara re- Una lista no es más que muchos registros enganchados con
gistros de un archivo para hacerles, por ejemplo, una modifi- un principio y un fin, y es una estructura del tipo FIFO (First
cación a todos (habitualmente llamado proceso Batch), dis- In First Out: primero en entrar, primero en salir), lo que po-
pondríamos de dos opciones. Una de ellas es crear un vector dríamos imaginar como un tren con cada vagón representan-
de registros lo más grande posible para almacenar los regis- do a un nodo (registro).
tros que levantemos, y la otra opción, mucho más eficaz, es Hay ciertos punteros que debemos declarar antes de trabajar
subirlos a una lista de punteros, ya que es más rápido, utili- con cualquier tipo de estructura, que deben ser del tipo del
zamos menor cantidad de recursos de memoria y es más co- registro con el que estemos operando. Necesitamos estos pun-
rrecto desde el punto de vista de la programación. teros para direccionar nuestra lista (en este caso), o bien pa-
A continuación, veremos el ejemplo encuesta, que, si bien ra marcar ciertos nodos importantes en la estructura; en el ca-
no es muy útil para uso personal, nos ayudará a comprender so de la lista, el principio y el final.
mejor la sintaxis de los punteros. Fíjense en el código la utilización de la función new(),
La Tabla 2 muestra los elementos que componen nuestra que crea un espacio en memoria en tiempo de ejecución
aplicación, y la Figura 2, el modo en que los pusimos en el –de forma aleatoria, claro está–, y apunta al puntero pasa-
form. La encuesta es de número indefinido de registros, o sea do por parámetro a ese espacio. En nuestro caso, le pasa-
que no sabemos la cantidad de encuestados, por lo que el uso mos el puntero “p”, que es del tipo pun (puntero al regis-
de punteros resulta ideal ya que acudiremos a uno de sus metro), por lo cual creará un espacio del mismo tamaño que
jores recursos: la creación de espacios en memoria en tiempo nuestro registro.
de ejecución. Después de esa línea, mostramos cómo direccionar a un cam-
Obviamente, la aplicación “encuesta” no es más que un pro- po con un puntero; la línea p^.sig = nil significa que
grama ABM, por lo cual iremos viendo cómo usar los punteros estamos asignando el valor nil al campo sig del registro apun-
en cada caso. tado por “p”. Nil no es más que “Nulo”; al asignar nil a un
puntero, le estamos indicando que no apunte a nada, a nin-
Comenzando con la encuesta guna dirección en memoria.
El registro que utilizaremos lo declaramos al principio de la También es importante ver que el trato al primer registro a
nota; tiene los campos nombre, edad y cole (colegio), y su- crear no es igual que el de los demás, debido a que el primer
ponemos que es una encuesta a estudiantes. nodo será también el comienzo y el final de la lista, y por eso
El código de la Alta está relacionado con el botón [Guar- le asignamos el puntero inicio y final al mismo nodo. Para los
dar], por lo que quedará algo así: demás, el trato es igual, salvo que iremos corriendo el punte-
ro final para que siempre apunte al último nodo creado. Es
begin importante ver que antes de posicionar el puntero en el últi-
if lista.Items.Count= 0 then {si no hay regis- mo nodo creado (llamado último), debemos apuntar el sig del
tros...} nodo anterior al nuevo puntero, para que de esta forma se va-
begin yan enganchando los nodos a la lista.
new (p); {creamos el primer nodo de la lista} También vamos agregando los nombres de los encuestados a
p^.sig:=nil; la ListBox para tener a la vista los que vamos creando.
levantar_datos (p,nombre,edad,cole); {levantamos
los datos del form al nodo o registro} Liberando memoria
lista.Items.add(nombre.text); Cuando deseamos eliminar un nodo de nuestra lista, en ca-
inicio:=p; {el puntero ‘inicio’ apunta al primer so de que queramos borrar un registro, lo que deberemos ha-
LISTADO 1: p:=p^.sig;
type end;
pun=^pasreg_puntero; {si el nodo a borrar es el 1ro. o el último}
Pasreg_puntero = record p_anterior:=p_inicio;
Nombre: string[50]; if p <> p_inicio then {si el puntero a
user, pass: string[30]; borrar no es el primero...}
descripcion: string [255]; begin
sig: pun; for j:=1 to (i-1) do
end; p_anterior:=p_anterior^.sig; {posi-
var cionamos un puntero en la posición anterior}
i,j:integer; end
p, p_final, p_inicio, P_anterior, p_siguien- else {si el puntero a borrar es el 1ro.}
te:pun; begin
begin if p_inicio.sig <> nil then {si hay
if lista.text <> ‘’ then un nodo después del inicio...}
begin p_inicio:=p_inicio^.sig; {el ini-
AssignFile(archivo,’\passwords.dat’); cio será ahora el próximo nodo}
reset (archivo); end;
if sizeof(archivo) <> 0 then {veamos el caso en el que el nodo a borrar
begin sea el último}
{subimos nuestro archivo, pero en una lista} p_siguiente:=p_inicio;
read (archivo,reg); if p <> p_final then {si no es el úl-
new(p_inicio); timo}
p_inicio^.Nombre:=reg.Nombre; begin
p_inicio^.user:=reg.user; for j:=1 to (i+1) do
P_inicio^.pass:=reg.pass; p_siguiente:=p_siguiente^.sig; {po-
p_inicio^.descripcion:=reg.descripcion; sicionamos un puntero en la posición siguiente}
p_inicio^.sig:=nil; end
p:=p_inicio; else {si el puntero es el último...}
p_final:=p_inicio; begin
p_anterior:=p_inicio; p_final:=p_anterior; {el nuevo final}
while not EOF(archivo)do end;
begin {si el nodo está en medio de la lista, só-
read(archivo,reg); lo bastará conectar el anterior con el siguiente}
new (p); if (p<>p_inicio) and (p<>p_final) then
p^.Nombre:=reg.Nombre; p_anterior^.sig:=p_siguiente;
p^.user:=reg.user; freemem(p);
P^.pass:=reg.pass; end
p^.descripcion:=reg.descripcion; else
p_anterior.sig:=p; begin
p.sig:=nil; freemem(p_inicio);
p_final:=p; p:=nil;
p_anterior:=p; end;
end; {pasamos los registros al archivo}
{ahora trabajamos en la lista ya en memoria} rewrite (archivo);
{nos fijamos si hay más de un nodo en la lista} if p<>nil then
if p_inicio^.sig<>nil then begin
begin p:=p_inicio;
p:=p_inicio; while p<>p_final do
i:=0; begin
while lista.Text <> p^.Nombre do reg.nombre:=p^.Nombre;
begin reg.user:=p^.user;
inc(i); {INC es una función que in- reg.pass:=p^.pass;
crementa la variable que le pasa por parámetro} Continúa en la página 84
Viene de la página 83 begin

anterior^.sig:= nil; {el anteúltimo nodo será el
reg.descripcion :=p^.descripcion;
último}
write(archivo,reg);
freemem(p);
p:=p^.sig;
end;
end;
{end;}
reg.nombre:=p^.Nombre;
end
reg.user:=p^.user;
else
reg.pass:=p^.pass;
begin
reg.descripcion :=p^.descripcion;
p:=inicio;
write(archivo,reg);
inicio:=inicio^.sig;
closefile(archivo);
freemem(p);
armar_combo(lista);
end;
clear_fields(user,pass,lista,desc);
lista.Items.Delete(lista.ItemIndex); {sacamos el
end
registro de la lista}
else
clear_fields (nombre,edad,cole);
begin
end;
closefile(archivo);
end;
armar_combo(lista);
lista.items.Clear;
Freemem() es la función que nos permitirá liberar el espa-
clear_fields(user,pass,lista,desc);
cio de memoria asignado al puntero, pero, obviamente, ése no
end;
es nuestro único trabajo cuando queremos borrar un registro.
end;
Declaramos dos punteros nuevos (sólo existentes en este pro-
end;
cedimiento), que usaremos para posicionarlos antes y después
end;
del registro a borrar. Debemos analizar cuatro casos por sepa-
rado. Si el nodo que vamos a borrar es el único en la lista, só-
lo liberamos el puntero; si el nodo es el último, debemos asig-
cer es liberar el espacio que ocupaba en memoria. Obviamen- nar como último (nuevo) al nodo anterior a éste, marcado con
te, antes deberemos buscar el registro a borrar, que estará in- el puntero anterior; si el nodo a borrar es el primero, debere-
dicado por la ListBox. Veamos cómo sería. mos asignar como comienzo de lista al nodo indicado por el
if lista.itemindex <> -1 then {si no hay nodos en la puntero siguiente; y, por último, si el nodo está en el medio
lista...} de la lista, deberemos asignar a anterior^.sig la dirección de
begin memoria correspondiente al puntero siguiente. De esta mane-
if lista.itemindex<> 0 then ra, la lista quedará unida. Es importante acordarse de liberar
begin el nodo después de unir la lista correctamente, ya que, si no,
p:=inicio; los errores serán inevitables.
anterior:=inicio; Otro punto que debemos tener en cuenta es la actualización
for i:=1 to lista.ItemIndex do {nos posicionamos de los datos al cliquear en un registro que queramos ver en la
en el nodo a borrar} lista. El código asociado a este procedimiento sería:
p:=p^.sig;
for i:=1 to (lista.ItemIndex - 1) do {colocamos begin
otro puntero en una posición menos para enganchar la p:=inicio; {el puntero lo posicionamos al principio
lista} de la lista}
anterior:=anterior^.sig; if lista.itemindex <> 0 then
if p^.sig <> nil then {si el nodo que borramos no begin
es el último...} while (p^.sig <> nil) do
begin begin
posterior:=P; if p^.nombre=lista.Items[lista.ItemIndex] then
posterior:=posterior^.sig; {puntero es un nodo volcar_datos(p,nombre,edad,cole);
adelante de p} p:=p^.sig;
anterior^.sig:=posterior; {conectamos el ante- if (p^.sig= nil) and ( p^.nombre=lista.Items[lis-
rior con el posterior} ta.ItemIndex])then
freemem(p); {liberamos el espacio en memoria del volcar_datos(p,nombre,edad,cole);
nodo borrado} end;
end end
else {si es el último nodo...} else
volcar_datos(p,nombre,edad,cole); aplicación y no tendremos que definir nada nuevo para uti-

end; lizarlo.
Actualizando el Password DB Algunos otras operaciones con punteros

En el número anterior de USERS creamos nosotros mismos el Hasta ahora hemos creado el puntero y luego el espacio en
programa Password DB, que podíamos usar como base de da- memoria. En caso de que quisiéramos marcar un puntero a un
tos de nuestros usernames y passwords, para lo que usamos dato ya creado, podríamos hacer lo siguiente:
archivos binarios (explicado en el mismo número). Como el
ejemplo de la encuesta es introductorio al tema de los punte- Var
ros, aplicaremos lo aprendido al Password DB, para ver tam- i, j: integer;
bién cómo trabajaremos cuando tengamos que levantar datos p:^integer;
de un archivo a una lista. begin
Vamos a centrar el problema en el procedimiento borrar del i:=5;
programa, que lo que hacía anteriormente era levantar todos los p:=@i;
registros al archivo a memoria para eliminar el seleccionado, y j:=p^;
luego volver a grabar en el archivo el vector modificado. end;
En el CD encontrarán lo mismo pero con una lista dinámica
(hecha con punteros) con el resto de las fuentes de esta nota. El prefijo @ usado en una variable nos devuelve la dirección
La diferencia entre este procedimiento borrar y el de la en- de memoria en que ésta se guarda. En el caso anterior, no ha-
cuesta es que estamos levantando los registros desde un ar- cemos más que copiar el 5, almacenado en la variable i, a la va-
chivo binario. Al principio del procedimiento declaramos un riable j (obviamente, del mismo tipo), pasando por un puntero.
registro igual del que encontramos en el archivo, pero con la Los punteros también tienen operaciones asociadas; ya vi-
diferencia de que contiene el campo puntero sig, que nos per- mos >,<,=,<> y ^. Pero también podemos usarlos con + y –
mitirá formar la lista con la cual trabajaremos (véase la decla- con un número entero. Como resultado, nos devolverá una
ración del tipo dentro del procedimiento), que sólo será váli- nueva dirección con lo que hayamos sumado o sustraído del
da dentro del procedimiento. entero. Esto es lo que hacemos, por ejemplo, cuando recorre-
No sabemos la cantidad de registros que hay dentro del ar- mos un vector. Podemos ir sumando la longitud del tipo de da-
chivo; por eso los punteros son las estructuras más útiles to del array al puntero para lograr lo mismo. Éstas son todas
para estos casos, ya que usan solamente la memoria necesa- las operaciones que podemos realizar con ellos.
ria y son mucho más rápidos en el momento de la ejecución.
Este ejemplo se podría hacer con menos punteros, pero pa- Punteros forever
ra poder entenderlo y para nuestros primeros programas con El de los punteros es un tema sumamente interesante y con
esta estructura, lo mejor es que usemos los que necesitemos, muchísimas posibilidades; de hecho, sin darnos cuenta los es-
ya que un puntero es una variable que sólo guarda una direc- tamos utilizando desde hace tiempo: cuando direccionamos un
ción de memoria y casi no ocupa espacio. Una vez que este- vector, no hacemos otra cosa que decirle a un puntero [i] dón-
mos cancheros, podremos probar los programas con menos de posicionarse, o cuando asignamos el nombre de una variable
punteros, y nos quedará un código más profesional y legible. a un archivo, no es más que un puntero al archivo.
Por ejemplo, podríamos hacer desaparecer el puntero que in- Generalmente nos dicen que antes de escribir un código,
dica el final de la lista, ya que este nodo siempre se recono- debemos razonarlo primero en lápiz y papel. Lamentable-
ce porque su sig apunta a nil. mente, pocos lo hacen, y casi siempre nos ponemos a escri-
Otro punto importante a observar es la utilización de de- bir un código sin pensarlo previamente, y que salga lo que
claraciones de tipos dentro del procedimiento; haciéndolo, Dios quiera. Con los punteros nos vamos a acostumbrar a ha-
podemos ver el puntero declarado directamente allí. Esto cerlo, ya que no hay otra manera de entenderlos que dibu-
nos impide escribir otro procedimiento para eliminar códi- jando lo que queremos hacer. Generalmente, es muy difícil
go repetido que utilice este tipo de dato, ya que sólo es vá- entender punteros de buenas a primeras, pero al dibujarlos
lido dentro del procedimiento. Por otro lado, es recomen- se facilita mucho la comprensión.
dable usar este tipo de declaraciones, que hacen que los La gran mayoría de los programas que trabajan con registros
procedimientos sean más independientes del programa; es del tipo ABM. Con lo que hemos aprendido hasta hoy, te-
esto significa que el código es transferible a cualquier otra nemos todo lo necesario para realizar un buen programa de
manipulación de datos, algo bastante importante. Queremos
Tabla 2: Objetos principales resaltar que si captaron los conceptos entregados desde la
❙
Tipo de objeto Nombre USERS #117 (donde empezamos a hablar de Delphi), están ca-
TButtons (x3) Nombre, Guardar, Borrar pacitados para realizar proyectos de gran nivel, y si a esto le
TEdit (x3) Nombre, Cole, Edad sumamos la integridad y flexibilidad del lenguaje Delphi, se
TListBox Lista darán cuenta de que lograron mucho. Los animamos a que si-
gan adelante con Delphi. ✕

Delphi, El Hijo de Pascal

Cargado por

Copyright:

Formatos disponibles

Delphi, El Hijo de Pascal

Cargado por

Información del documento

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Delphi, El Hijo de Pascal

Cargado por

Copyright:

Formatos disponibles

ProgramacionU#117.

qxd 4/28/01 6:06 PM Page 76

CREANDO NUESTRA PROPIA CALCULADORA

Delphi: el hijo de Pascal

D elphi es un lenguaje de programación muy flexible y fácil

application.messagebox(‘hello World’, ‘mensaje de

display} rificar la existencia del punto.

BATALLA NAVAL BAJO DELPHI

L as estructuras de datos son elementos que utilizaremos

Aquí está el programa

Registros código está dentro del CD que acompaña a la revista.

Estructura Declaración utiliza (recordemos que es uno general, lo que signifi-

procedure registrar_disponibles (var vec:vector; function comprobar_matriz_vacia (mat:matriz):boo-

Tabla 2: Procedimientos y funciones que usan estructuras

Procedimiento o función Descripción Estructura que usa

Tabla 3: Tipos de datos Algunas sugerencias para practicar

Como habrán visto hasta acá, falta agregar un montón de co-

Delphi: el hijo de Pascal

L os archivos son una parte fundamental de cualquier len-

Digámosle adiós al odioso

Tabla 1: Objetos de la aplicación

Objetos que usaremos en nuestra aplicación FastPad.

Nombre del objeto Descripción

en su método execute no permite utilizar el tan conocido diá- ¡Hora de escribir!

Ahora asociamos el código para abrir el archivo a la función filename:= dialogo_salvar.FileName;

cial hasta el final del texto en el Richedit}

CÓMO TRABAJAR CON ELLOS DESDE DELPHI

E l tema de los passwords suele ser un dolor de cabeza

Acá podemos setear la

i:=0; sitemos directamente en tiempo de ejecución. Como es algo

APRENDIENDO A APUNTAR CON DELPHI

E stuvimos viendo muchos elementos que son imprescindi-

Tipo de estructura Descripción

Viene de la página 83 begin

volcar_datos(p,nombre,edad,cole); aplicación y no tendremos que definir nada nuevo para uti-

Actualizando el Password DB Algunos otras operaciones con punteros

También podría gustarte