Как писать в файл без буфферизации в Delphi?

Question

[artem78]

Этот код записывает в файл строки не сразу а частями:

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.

Как отключить буфферизацию. чтобы после каждой строки данные сразу сохранялись на диск?

Answer 1

[Freeman]

Сбрасывать буфера процедурой Flush.