{$codepage utf8} {$ifdef win32} Uses sysutils; {$endif} {$ifdef Unix} Uses sysutils,cwstring; {$endif} Var Arch:Longint; b:array [0..10] of longint; i:integer; BytesEscritos:longint; Begin Arch:=FileCreate('numeros.dat'); {$ifdef Unix} Arch:=FileCreate('の番号.dat'); {$endif} Writeln('Creando el archivo'); for i:=0 to 10 do b[i]:=i; BytesEscritos:=FileWrite(Arch,b,SizeOf(longint)*11); if BytesEscritos=SizeOf(longint)*11 then Begin Writeln('Mostrando'); FileSeek(Arch,0,fsFromBeginning); FileRead(Arch,b,BytesEscritos); for i:=0 to 10 do Writeln(b[i]); Writeln('Truncando hasta 5'); FileTruncate(Arch,SizeOf(longint)*5); FileSeek(Arch,0,fsFromBeginning); FillDWord(b,11,-1); FileRead(Arch,b,SizeOf(longint)*11); for i:=0 to 10 do Writeln(b[i]); End; FileClose(Arch) End.