Разное
Облака / Clouds

The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>

time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: Reset
Reset
|
1 procedure Reset ( var FileHandle : TextFile ) ; 2 procedure Reset ( var FileHandle : File {RecordSize ) ; |
Процедура (Unit System)
|
Открывает текстовый файл для чтения, или двоичный файл для чтения/записи
|
Описание:
|
Процедура Reset открывает файл указанный в FileHandle для чтения, записи или чтения и записи. Вы должны использовать AssignFile, чтобы назначить файл на FileHandle перед использованием Reset. Используйте Write или WriteLn для записи в файл после этого выполнится Reset. Версия 1 Используется для текстовых файлов. Они могут читаться только после открытия с помощью Reset. Версия 2 Она для двоичных файлов. Перед использованием Reset, вы должны установить FileMode в одно из следующих: fmOpenRead : Только для чтения fmOpenWrite : Только для записи fmOpenReadWrite : Чтения и записи Дополнительное значение RecordSize используется, чтобы отменить заданный по умолчанию 128-байтовый размер записи для двойных файлов (нетипизированных). Для таких файлов может использоваться только BlockRead и BlockWrite. |
Пример кода: Запись и чтение строк текста виз текстового файла
|
var myFile : TextFile; text : string; begin // Попытка открыть файл Test.txt для записи AssignFile(myFile, 'Test.txt'); ReWrite(myFile); // Запись нескольких известных слов в этот файл WriteLn(myFile, 'Hello'); WriteLn(myFile, 'World'); // Закрытие файла CloseFile(myFile); // Переооткрытие файла в режиме только для чтения FileMode := fmOpenRead; Reset(myFile); // Показ содержимого файла while not Eof(myFile) do begin ReadLn(myFile, text); ShowMessage(text); end; // Закрытие файла в последний раз CloseFile(myFile); end;
Результат:
|
Hello World |