procedimiento

descripci�n

ejemplo

Presente en

Read

Lectura de datos desde un dispositivo hacia una zona de memoria. El dispositivo puede ser un disco, una l�nea de comunicaciones o un teclado. Los datos que se pueden leer son enteros, reales, cadenas y caracteres. No se puede leer un booleano o un enumerado. Los datos estructurados como matrices, arreglos o conjuntos no se pueden leer globalmente.

Formato :

Read (f, v)

F: archivo

X : buffer

En Pascal,  al poder leer desde una consola, se admite el formato

Read (v1, v2, ..., vn) siendo v1, v2,..., vn variables.

Var f: TEXTFILE;

      x : char;

a, b : integer;

Read (f, x)

Read (a, b)

Pascal

Delphi

Write

Escribe en el dispositivo indicado. El dispositivo por defecto es la pantalla (Pascal).

Formato :

Write (f, v)

F: archivo

X : buffer

En Pascal se admite para salida de datos :

Write (expr1, expr2,...,exprn)

Write (expr1, expr2,...,exprn)

Siendo expr1, expr2,...,exprn expresiones.

La diferencia entre ambos formatos es la siguiente :

Al ejecutarse write, el cursor permanece a continuaci�n, en tanto que luego de ejecutarse writeln el cursor salta al principio de la siguiente l�nea.

Writeln sin par�metros realiza un salto de l�nea (rengl�n en blanco).

Cuando en Pascal queremos formatear datos reales empleamos m�scaras :

Write (expresi�n real : ancho : decimales)

Ancho es una expresi�n num�rica que indica el ancho total del campo que incluye el total de lugares a ocupar y el punto decimal.

Write (�HOLA MUNDO�);

Writeln (�2 + 2 = �, 2+2);

Var z : file of byte;

       X : byte;

x:=3;

Write (z, x);  graba un 3 en un archivo de bytes.

Write ( 78.9754 : 10 : 5)

   78.9754

Write ( 78.9754 : 9 : 3)

   78.975

Pascal

Delphi

Delete

Borra una subcadena de otra

Delete (cadena fuente, posici�n, n�mero)

Posici�n : posici�n del primer car�cter a suprimir

N�mero : cantidad de caracteres a suprimir

X:=�PROGRAMACION�;

Delete (X, 3, 5);

WRITE (X);

La salida es

PRACION

Pascal

Delphi

Insert

Inserta una subcadena en una cadena

Insert (cad, s, posici�n)

Cad : cadena a insertar

S : cadena fuente

Posici�n : lugar a partir del cual se inserta

X1 :=�LENGUAJE ES LO MEJOR�

X2 :=�PASCAL�

Insert (x2, x1, 10)

Write (X1) - �

�LENGUAJE PASCAL ES LO MEJOR�

Pascal

Delphi

Str

Convierte un  dato num�rico a cadena.

Formato :

Str (expresi�n num�rica, variable string)

M�scara para reales :

Str ( x   : 8 : 3, z) siendo x : real y z : string

Str (456, cad);

Write (cad); -- � �456�

Str(6.89, cad);

Write (cad); -- � �6.89000000000000E+0000�

Pascal

Delphi

Val

Convierte una cadena de caracteres a un valor entero o real.

Formato :

Val (cadena, variable entera o real, c�digo)

C�digo es una variable entera que es cero si la conversi�n fue exitosa y distinta de cero en caso contrario.

Val (�345.06�, vari, cod);

Writeln (cod) --- � 0

Writeln (vari) -- � 345.06

Val (�99jhd.9867dq�, vari, cod)

Writeln (cod) --- � 1

Writeln (vari) -- � 0 � indefinida

Pascal

Delphi

Decodedate

Devuelve el a�o, mes y d�a a partir de un campo de tipo Tdatetime.

Formato :

Decodedate (f : tdatetime; var y, m, a : word)

Decodedate (now, y, m, a)

Delphi

decodetime

Devuelve hora, minuto, segundo y mil�simas de segundo a partir de un campo de tipo Tdatetime.

Formato :

decodetime (Time: TDateTime; var Hour, Min, Sec, MSec: Word);

procedure TForm1.Button1Click(Sender: TObject);

var

  Present: TDateTime;

  Year, Month, Day, Hour, Min, Sec, MSec: Word;

  begin

  Present:= Now;

  DecodeTime(Present, Hour, Min, Sec, MSec);

  Label2.Caption := intToStr ( hour *60 + Min)

end;

Delphi