Delphi-Help

Описание

procedure Flush ( var FileHandle : TextFile ) ;

Процедура Flush сбрасывает на диск незаписанные данные текстового файла на диск.
Тот же самый эффект может быть достигнут, закрытием файла.

Пример кода

var
myFile : TextFile;
text   : string;
begin
// Попытка открыть файл Test.txt для записи
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);
// Запись нескольких известных слов в этот файл
WriteLn(myFile, 'Hello');
WriteLn(myFile, 'World');
Flush(myFile);
// Закрытие файла
CloseFile(myFile);
// Повторное открытие файла для чтения
Reset(myFile);
// Показ содержимого файла
while not Eof(myFile) do
begin
ReadLn(myFile, text);
ShowMessage(text);
end;
// Закрытие файла в последний раз
CloseFile(myFile);
end;

Hello
World

Примечание