{$codepage utf8} {$ifdef win32} Uses sysutils; {$endif} {$ifdef Unix} Uses sysutils,cwstring; {$endif} Var Arch:File of integer; b:integer; NombreArch:Unicodestring; Begin NombreArch:='numeros.dat'; {$ifdef Unix} NombreArch:='の番号.dat'; {$endif} NombreArch:=SetDirSeparators(NombreArch); Assign(Arch,NombreArch); Writeln('Creando el archivo'); Rewrite(Arch); Randomize; for b:=0 to 10 do Write(Arch,b); Writeln('Mostrando'); Reset(Arch); While Not(EOF(Arch)) do Begin read(Arch,b); Writeln(b) End; Writeln('Truncado hasta 5'); seek(Arch,5); //mueve el puntero de archivo al 5to entero. truncate(Arch); //truncate cierra el archivo, igual que close. reset(Arch); While Not(EOF(Arch)) do Begin Read(Arch,b); Writeln(b) End; close(Arch) End.