26. Файлы
Понятие файла
| Тип файла |
Описание файла |
Пример |
| текстовый файл (текст) |
text |
var t: text; |
| типизированный файл |
file of тип-элемента |
var a: file of integer; |
| Процедуры и функции |
Операция |
Пример |
| read( файл, список ввода ) |
Ввод данных из файла |
read(t,a,b,c); |
| readln( файл, список ввода ) |
Ввод данных из файла |
readln(t,a,b,c); |
| write( файл, список вывода ) |
Вывод данных в файл |
write(t,x,y,z); |
| writeln( файл, список вывода ) |
Вывод данных в файл |
writeln(t,x,y,z); |
| assign( файл, имя файла ) |
Определить имя файла |
assign(t,'c:\text\info.txt'); |
| reset( файл ) |
Открыть файл для ввода |
reset(t); |
| rewrite( файл ) |
Открыть файл для вывода |
rewrite(t); |
| close( файл ) |
Закрыть файл |
close(t); |
| eof( файл ) |
Если конец файла, то true (функция) |
while not eof(t) do read(t,a); |
| eoln( файл ) |
Если конец строки, то true (функция) |
while not eoln(t) do read(t,a);
|
var
F: file of TPerson;
var
F: file;
var
F: TextFile;
Работа с файлами
AssignFile(F, 'MyFile.txt');
Rewrite(F);
Writeln(F, 'Pi = ', Pi);
Writeln(F, 'Exp = ', Exp(1));
CloseFile(F);
Reset(F);
program Console;
uses
SysUtils;
var
F: TextFile;
S: string;
begin
AssignFile(F, 'MyFile.txt');
Reset(F);
while not Eof(F) do
begin
Readln(F, S);
Writeln(S);
end;
CloseFile(F);
Writeln('Press Enter to exit...');
Readln;
end.
Стандартные подпрограммы управления файлами
AssignFile(var F; FileName: string)
Reset(var F [: File; RecSize: Word ] )
Rewrite(var F [: File; RecSize: Word ] )
Append(var F: TextFile)
Read(F, V1 [, V2, ..., Vn ])
Read(var F: TextFile; V1 [, V2, ..., Vn ] )
Write(F, V1 [, V2, ..., Vn ])
Write(var F: TextFile; V1 [, V2, ..., Vn ] )
CloseFile(var F)
Rename(var F; NewName: string)
Erase(var F)
Seek(var F; NumRec: Longint)
SetTextBuf(var F: TextFile; var Buf [; Size: Word])
SetLineBreakStyle(var T: Text; Style: TTextLineBreakStyle)
Flush(var F: TextFile)
Truncate(var F)
IOResult: Integer
FilePos(var F): Longint
FileSize(var F): Longint
Eoln(var F: Text): Boolean
Eof(var F): Boolean
SeekEoln(var F: Text): Boolean
SeekEof(var F: Text): Boolean
BlockRead(var F: File; var Buf; Count: Word [; Result: Word] )
BlockWrite(var F: File; var Buf; Count: Word [; Result: Word])
ChDir(const S: string)
ChDir(const S: string)
MkDir(const S: string)
DeleteFile(const FileName: string): Boolean
DirectoryExists(const Directory: string): Boolean
FileAge(const FileName: string): Integer
FileExists(const FileName: string): Boolean
FileIsReadOnly(const FileName: string): Boolean
FileSearch(const Name, DirList: string): string
FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean
ForceDirectories(Dir: string): Boolean
GetCurrentDir: string
SetCurrentDir(const Dir: string): Boolean
RemoveDir(const Dir: string): Boolean
RenameFile(const OldName, NewName: string): Boolean
ChangeFileExt(const FileName, Extension: string): string
ExcludeTrailingPathDelimiter(const S: string): string
IncludeTrailingPathDelimiter(const S: string): string
ExpandFileName(const FileName: string): string
ExpandUNCFileName(const FileName: string): string
ExpandFileNameCase(const FileName: string; out MatchFound: TFilenameCaseMatch): string
ExtractFileDir(const FileName: string): string
ExtractFilePath(const FileName: string): string
ExtractRelativePath(const BaseName, DestName: string): string
ExtractFileDrive(const FileName: string): string
ExtractFileExt(const FileName: string): string
ExtractFileName(const FileName: string): string
IsPathDelimiter(const S: string; Index: Integer): Boolean
MatchesMask(const Filename, Mask: string): Boolean
| 
