2

Как сделать, чтобы данные сразу сбрасывались на диск при записи новой строки?

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.

1 ответ 1

4

Надо добавить

Flush(f);

после WriteLn

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.