How can I read and write a binary file larger than 7 GBytes?
The assign(f,'xx' and reset(f) work but when I go to start the file traversal, the eof(f) function does not work properly, I understand that it is because the TFileRec structure has the BufPos and BufEnd fields defined as cardinal and can only represent up to 4 GBytes.
What group of functions can I use to perform the described operation?
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;
Thank you