Pascal / System - Manejo de Archivos / Truncate

Append, Assign, BlockRead, BlockWrite, Close, EOF, EOLn, Erase, FilePos, FileSize, Flush, IOResult, Read, ReadLn, Rename, Reset, Rewrite, Seek, SeekEOF, SeekEOLn, SetTextBuf, � Truncate, Write, WriteLn,

Funcion: Truncate()
Sintaxis:

procedure Truncate(
 
  var F: File
 
);

Descripcion: Trunca el archivo abierto a la posicion del archivo actual.
Ejemplo:

Program Example71;
 
{ Program to demonstrate the Truncate function. }
 
Var F : File of longint;
    I,L : Longint;
 
begin
  Assign (F,'test.tmp');
  Rewrite (F);
  For I:=1 to 10 Do
    Write (F,I);
  Writeln ('Filesize before Truncate : ',FileSize(F));
  Close (f);
  Reset (F);
  Repeat
    Read (F,I);
  Until i=5;
  Truncate (F);
  Writeln ('Filesize after Truncate  : ',Filesize(F));
  Close (f);
end.

Librerias Pascal

Libreria crt - CRT - Pantalla y teclado del PASCAL de Turbo que maneja la unidad
Libreria dos - DOS - Interface Turbo Pascal MS-DOS
Libreria Graph - Unidad para manipular los graficos de la pantalla compatible con TP
Libreria Objects - Objetos basicos compatible con TP
Libreria math - Rutinas adicionales matematicas
Libreria Printer - Provee de acceso a la impresora
Libreria strings - Rutinas para el manejo de cadenas
Libreria BaseUnix - Funcionalidad Basica de Linux
Libreria System - Manejo de Archivos - Funciones para la manipulacion de archivos en Pascal