Справочник функций и процедур Delphi: Reset

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

Reset
Процедура
Открывает текстовый файл для чтения, или двоичный файл для чтения/записи System unit
  
1 procedure Reset ( var FileHandle : TextFile ) ;

2 procedure Reset ( var FileHandle : File {RecordSize ) ;

Delphi Sources

Описание
Процедура Reset открывает файл указанный в FileHandle для чтения, записи или чтения и записи.

Вы должны использовать AssignFile, чтобы назначить файл на FileHandle перед использованием Reset.

Используйте Write или WriteLn для записи в файл после этого выполнится Reset.

Версия 1

Используется для текстовых файлов. Они могут читаться только после открытия с помощью Reset.

Версия 2

Она для двоичных файлов. Перед использованием Reset, вы должны установить FileMode в одно из следующих:

fmOpenRead : Только для чтения
fmOpenWrite : Только для записи
fmOpenReadWrite : Чтения и записи

Дополнительное значение RecordSize используется, чтобы отменить заданный по умолчанию 128-байтовый размер записи для двойных файлов (нетипизированных). Для таких файлов может использоваться только BlockRead и BlockWrite.
Похожие команды
Append  Открывает текстовый файл, для добавления записей в файл (добавляет в конец файла)

AssignFile  Связывает дескриптор файла с бинарным или текстовым файлом

CloseFile  Закрывает открытый файл

File  Определяет типизированный или нетипизированный файл

ReWrite  Открывает текстовый или двоичный файл для записи

TextFile  Объявляет типа файл для того, чтобы сохранить строки текста

 
Пример кода : Запись и чтение строк текста в\из текстового файла
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
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте