How to write to a file without buffering in Delphi?

Question

Delphi

This code writes the lines to the file not at once, but in parts:

var
  f: textfile;
  i: integer;
begin
  AssignFile(f, 'file.txt');
  ReWrite(f);
  for i := 0 to 200 do
  begin
    WriteLn(f, 'string number ' + IntToStr(i));
    Sleep(1000);
  end;
  CloseFile(f);
end.

How to disable buffering. so that after each line the data is immediately saved to disk?

Answer 1

Flush buffers with the Flush procedure .