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

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

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

AssignFile
Процедура
Связывает дескриптор файла с бинарным или текстовым файлом System unit
  
1 procedure AssignFile ( var FileHandle : TextFile; const FileName : string ) ;

2 procedure AssignFile ( var FileHandle : File; const FileName : string ) ;

Delphi Sources

Описание
Процедура AssignFile назначает значение FileName значению FileHandle при подготовке к чтению или записи этого файла.

Версия 1

Берет тип переменной текстового файла как дескриптор. Когда файл открыт он обрабатывается как textfile.

Если имя файла пустая строка, то доступ к файлу осушествляется через стандартные потоки input и output.

Версия 2

Берет бинарный тип файла как дескриптор. Файл обрабатывается как двоичный файл.

В обоих случаях, когда файл открыт с помощью Append, Reset или ReWrite предполагается, что он находится в текущем каталоге.
Примечания
FileHandle не должен быть перепутанным с дескриптором файла, используемым для файла низкого уровня, обращающегося с подпрограммами типа FileOpen и FileRead.
Похожие команды
Append  Открывает текстовый файл, для добавления записей в файл (добавляет в конец файла)

AssignPrn  Обрабатывает принтер как текстовый файл - простой способ печати текста

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

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

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

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

 
Пример кода : Запись в текстовый файл, и затем чтение его содержимого
var
  myFile : TextFile;
  text   : string;

begin
  // Попытка открыть файл Test.txt для записи
  AssignFile(myFile, '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;
Hello
World
 


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

DeLiKaTeS Tetris (Тетрис)

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

 

Айболит (remote control)

ListBox Drag & Drop

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

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

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

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

 

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

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