Write/es
write es un procedimiento que indica que se muestren algún/nos caracteres en la pantalla. Para ello se sitúa lo que queremos mostrar entre los paréntesis, pudiendo ser tanto texto directamente, como texto representado por una variable.
<delphi> PROGRAM Mostrar_Texto_en_Pantalla;
VAR
variable_texto:string;
begin
variable_texto:='Esto es lo que contiene la variable';
write ('El contenido de la variable es: ',variable_texto);
end. </delphi> Imprime lo siguiente:
El contenido de la variable es: Esto es lo que contiene la variable
También podemos imprimir en pantalla un carácter con su código alternativo gráfico (ALTGR+código de carácter), para ello utilizaríamos por ejemplo:
<delphi> write ('La letra X se puede imprimir como se ve en este ejemplo:' , #88); </delphi>
que obtiene el mismo resultado que si utilizamos:
<delphi> write ('La letra X se puede imprimir como se ve en este ejemplo: ',chr(88)); </delphi>
Estos últimos ejemplos imprimen en pantalla lo siguiente:
La letra X se puede imprimir como se ve en este ejemplo: X Además permite el formateado de los datos a imprimir, siendo muy útil a la hora de generar columnas numéricas. Supongamos que tenemos una variable de tipo real con valor 3.14159 llamada numero, entonces si escribimos:
write (numero);
Obtendríamos la impresión:
3.141520000000000E+000
En cambio si escribimos:
write (numero:1:2);
Obtendríamos esto otro:
3.14
Con write (numero:1:3);
Obtendríamos:
3.145
En el caso de que la variable hubiese tenido valor 3.1 habría rellenado con ceros dando los resultados:
3.10 3.100
Se observa por tanto que podemos escoger el número de decimales a imprimir.
Es frecuente combinar el uso de write con otras funciones como writeln, gotoxy, settexcolor, setbkcolor,.......