Запись и чтение строк текста в\из текстового файла

My Help » Pascal Delphi » Запись и чтение строк текста виз текстового файла

Запись и чтение строк текста в\из текстового файла

Автор: reader hlp от 21-04-2023, 20:04, посмотрело: 25

var
myFile : TextFile;
text   : string;

begin
AssignFile(myFile, 'Test.txt'); // Попытка открыть файл Test.txt для записи
ReWrite(myFile);

WriteLn(myFile, 'Hello');   // Запись нескольких известных слов в этот файл
WriteLn(myFile, 'World');

CloseFile(myFile);     // Закрытие файла

Reset(myFile);         // Переооткрытие файла в режиме только для чтения

while not Eof(myFile) do   // Показ содержимого файла
begin
    ReadLn(myFile, text);
    ShowMessage(text);
end;

CloseFile(myFile); // Закрытие файла в последний раз
end;

0
1
2
3
4
5

Категория: Pascal Delphi

Моя записная книжка. Всегда при мне

Запись и чтение строк текста в\из текстового файла