Cómo puedo leer y escribir un archivo binario de más de 7 GBytes?
El assign(f,'xx' y el reset(f) funcionan pero cuando voy a iniciar el recorrido del archivo, la función eof(f) no opera adecuadamente, entiendo que es porque la estructura TFileRec tiene los campos BufPos y BufEnd definidos como cardinal y solo pueden representar hasta 4 GBytes.
Qué grupo de funciones puedo utilizar para realizar la operación descrita?
procedure TForm1.BtnSplitClick1(Sender: TObject);
Var
F,G : File Of RecCustom;
begin
System.Assign(F,'NameInputF');
System.Reset(F);
System.Assign(F,'NameOutputF');
System.Reset(F);
while Not System.Eof(F) Do Begin
BlockRead(F,Arr,1);
// Modifica record Arr
BlockWrite(G,Arr,1);
End;
System.Close(F);
end;
Gracias