Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Процедуры и функции для рабты с файлами
   Категория: Файловая система
  Округление в меньшую сторону
   Категория: Математика
  Компоненты CoolBar и ControlBar
   Категория: Компоненты
  Как создать вычисляемые поля
   Категория: Базы данных
  Замена подстроки в строке
   Категория: Текст и строки
  Группировка TopAdvGrid
   Категория: Компоненты
  Компонент SpeedButton
   Категория: Компоненты
  Создание цветных строк в ListBox
   Категория: Компоненты
  Загрузка файлов в THTMLViewer и TFrameBrowser
   Категория: Интернет и Сети
  Прочитать содержимое папки
   Категория: Файловая система

Delphi - Справочник: Reset

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 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

  << Вернуться