Write/es

From Lazarus wiki
Revision as of 00:56, 12 March 2009 by Jma sp (talk | contribs)
Jump to navigationJump to search

write

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,.......