Estimados foreros:
Tengo el problema de crear un archivo de mas de 2GB de tamaño y debo emplear la rutina seek. El problema es que por defecto esta rutina no sirve para estos tamaños de archivo por lo que he decidido probar con TFileStream.
Se trata de usar TFileStream en lugar de lo siguiente. Unas lineas de codigo por vuestra parte me iria de perlas.
Código Delphi
[-]
const
max = 1024*1024;
type
TArr = array [1..max] of double;
var
buf:TArr;
F: File of TArr;
procedure CreaArchivo;
var i: integer;
begin
AssignFile(F,'C:\1.tmp');
rewrite(F);
for i := 1 to 1024 do write(F,buf);
closefile(F);
end;
procedure Busca(pos: Integer);
begin
AssignFile(F,'C:\1.tmp');
reset(F);
Seek(F,Pos); read(F,buf);
closefile(F);
end;
Muchas gracias