Procedure AssignFile(var f; FileName: String);присвоить имя

Procedure CloseFile(var F);

Procedure Erase(var F);

Удаляет внешний файл, связанный с F.

Procedure Reset(var F [: File; RecSize: Word]);

Открывает существующий файл.

Procedure Seek(var F; N: LongInt);

Перемещает текущую позицию файла к определенному компоненту. Вы можете использовать процедуру только с открытыми типизированными или нетипизированными файлами.

Procedure Rewrite(var F: File [; Recsize: Word]);

Создает и открывает новый файл.

Function Eoln[(var F: Text)]: Boolean;

Проверяет, является ли текущая позиция файла концом строки текстового файла.

7. Текстовые файлы. Понятие, процедуры (не менее 10 штук), пример создания и вывода текстового файла на экран. Пример подсчета букв «А» в каждой строке текстового файла и затем замены этой буквы «*» (пример реализации в среде Delphi).

Существует специальный тип файловых переменных – текстовый файл. Это файл, в котором произвольная последовательность символов разбита на строки. Для описания используется специальное слово text (var t:text).

Текстовые файлы открываются и закрываются так же, как и любые другие. Но процедуру Reset в текстовых файлах можно использовать лишь для их чтения. Для записи текстового файла его нужно открыть с помощью Rewrite (в этом случае создается новый файл) или использовать процедуру Append:

Append Открывает файл в режиме "только запись" и устанавливает указатель в конец файла.

AssignPrn Связывает файловую переменную с принтером.

Eof Определяет, стоит ли указатель в конце файла.

Eoln Определяет, стоит ли указатель в конце строки текстового файла.

Flush Очищает буфер текстового файла.

Read Читает одно или больше значений из текстового файла в соответствующее количество переменных.

Readln Читает строку текста из файла и переводит указатель на следующую строку.

SeekEof Определяет, достигнут ли конец текстового файла.

SeekEoln Определяет, достигнут ли конец строки.

SetTextBuf Устанавливает буфер ввода-вывода для текстового файла.

Write Записывает одно или больше значений в текстовый файл.

Writeln Записывает одно или больше значений с маркером конца строки в текстовый файл.

procedure Append(var F: Text);

   Она открывает текстовый файл (именно текстовый, с другими типами файлов процедура Append не работает) для дополнения, то есть новые строки текста будут добавляться в конец файла после существующих строк. Если открывать текстовый файл с помощью Rewrite, то он будет доступен для записи, но строки будут добавляться в начало файла.

procedure TForm1.Button1CI ick(Sender: TObject); varF:TextFile; begin AssignFile(F,myfile.txt); Rewrite(F); WriteLn(F,Привет! Это первая строка в текстовом файле); CloseFile(F); end;

var

i, j, kol: integer; //для цикла

s: string; //строка

begin

for j := 0 to Memo1.Lines.Count - 1 do

begin

kol := 0;

s := Memo1.Lines[j];

for i := 1 to Length(s) do

if s[i] = 'A' then begin

inc(kol);

s[i] := '*';

end;

if kol<>0 then Memo1.Lines[j] := s;

ShowMessage('В ' + IntToStr(j + 1) + ' строке находится ' + IntToStr(kol) + ' букв А');

end;

end;

ля доступа к файлу использеутся процедура AssignFile()

Reset() - Эта процидура открывает существующий файл на диске

Rewrite() - Эта процидура создаёт новый файл а также очищает уже существующий файл.

Процидура CloseFile.

Процидура для записи в файл Write и WriteLn.

Чтения из файла осуществляется процедурой: Read() или ReadLn()