Файлови процедури и функции - Процедури и функции на Pascal - Pascal - Цифрова библиотека
Книгата е предназначена за професионалисти по продажбите, служители в отделите за обслужване на клиенти и всички, които се стремят да предоставят качествено обслужване.
Абсолютните предимства на технологиите от ново поколение са на върха. На първо място, простотата и лекотата са за програмистите, а удобството и комфортът са за потребителите.
Книгата на Dan Siderholm ще ви помогне да използвате CSS3 точно сега, като се възползвате от технологиите, въведени в новите стандарти.
Файлови процедури и функции
Процедура AssignFile(var F; FileName: String);
За да се избегнат конфликти, AssignFile замества стандартната процедура на Delphi Assign. Въпреки това, за обратна съвместимост, можете да използвате Assign. Процедурата AssignFile преобразува име на външен файл във файлова променлива.
F е файлова променлива от всеки файлов тип, FileName е String израз или PChar израз, ако е разрешен разширен синтаксис. Всички по-нататъшни операции с F се извършват с външен файл.
Не използвайте AssignFile с вече отворена файлова променлива.
Затворете ProcedureFile(var F);
Поради конфликти при именуване процедурата CloseFile замества стандартната процедура Close от Borland Pascal. Използвайте CloseFile, за да прекъснете връзката между файлова променлива и файл на външен диск и да затворите файла.
F е файлова променлива от всеки файлов тип, отворена от процедурите Reset, Rewrite или Append. Външният файл, свързан с F, е напълно модифициран и след товазатваря, освобождавайки манипулатора на файла за повторна употреба.
Директивата ви позволява да обработвате грешки по време на изпълнение на програмата, като използвате обработка на изключения.
Когато директивата е деактивирана, трябва да използвате IOResult, за да проверите за I/O грешки.
Функция Eof(var F): Boolean;
(въведени или невъведени файлове)
Функция Eof[(var F: Text)]: Boolean;
Проверява дали текущата файлова позиция е краят на файла или не.
Eof(F) връща True, ако текущата файлова позиция е след последния символ на файла или ако файлът е празен; в противен случай Eof(F) връща False.
Директивата ви позволява да обработвате грешки по време на изпълнение на програмата, като използвате обработка на изключения.
Когато директивата е деактивирана, трябва да използвате IOResult, за да проверите за I/O грешки.
Процедура Erase(var F);
Изтрива външния файл, свързан с F.
F е файлова променлива от всеки файлов тип.
Преди да извикате процедурата Erase, файлът трябва да бъде затворен.
Директивата ви позволява да обработвате грешки по време на изпълнение на програмата, като използвате обработка на изключения.
Когато директивата е деактивирана, трябва да използвате IOResult, за да проверите за I/O грешки.
Функция FileSize(var F): Integer;
Връща размера в байтове на файл F. Въпреки това, ако F е въведен файл, FileSize ще върне броя на записите във файла.
Преди да използвате функцията FileSize, файлът трябва да е отворен.
Ако файлът е празен, FileSize(F) връща 0.
F е променлива от произволен тип файл.
Функция FilePos(varF): LongInt;
Връща текущата позиция на файл във файл.
Преди употребаФункция FilePos, файлът трябва да е отворен. Функцията FilePos не се използва с текстови файлове.
F е променлива от всеки файлов тип, с изключение на тип Text.
Reset на процедурата (var F [: File ; RecSize: Word ]);
Отваря съществуващ файл.
F е променлива от всеки файлов тип, свързан с външен файл с помощта на AssignFile. RecSize е незадължителен израз, който се използва, ако F е нетипизиран файл. Ако F е нетипизиран файл, RecSize определя размера на записа, който се използва при прехвърляне на данни. Ако RecSize е пропуснат, размерът на записа по подразбиране е 128 байта.
Процедурата Reset отваря съществуващ външен файл, свързан с файлова променлива F. Ако няма външен файл с това име, възниква грешка по време на изпълнение. Ако файлът, свързан с F, вече е отворен, той първо се затваря и след това се отваря отново. Текущата позиция на файла е зададена в началото на файла.
Процедура Rewrite(var F: File[; Recsize: Word]);
Създава и отваря нов файл.
F е променлива от всеки файлов тип, свързан с външен файл с помощта на AssignFile. RecSize е незадължителен израз, който се използва, ако F е нетипизиран файл. Ако F е нетипизиран файл, RecSize определя размера на записа, който се използва при прехвърляне на данни. Ако RecSize е пропуснат, размерът на записа по подразбиране е 128 байта.
Процедурата Rewrite създава нов външен файл с името, свързано с F.
Ако вече съществува външен файл със същото име, той се изтрива и се създава нов празен файл.
Търсене на процедура (var F; N: LongInt);
Премества текущата файлова позиция към посочения компонент. Можете да използвате само процедура с публичен тип илинетипизирани файлове.
Текущата позиция на файл F се премества на номер N. Номерът на първия компонент на файла е 0.
Инструкцията Seek(F, FileSize (F)) премества текущата файлова позиция в края на файла.
Отваря съществуващ текстов файл, за да добави информация към края на файла (добавяне).
Ако външен файл с даденото име не съществува, възниква грешка по време на изпълнение.
Ако файл F вече е отворен, той се затваря и отваря отново. Текущата позиция на файла е зададена в края на файла.
Функция Eoln[(var F: Text )]: Boolean;
Проверява дали текущата файлова позиция е краят на ред в текстов файл.
Eoln(F) връща True, ако текущата файлова позиция е в края на ред или файл; в противен случай Eoln(F) връща False.
Процедура за четене (F, V1 [, V2, .Vn]);
(въведени и невъведени файлове)
Процедура за четене ([var F: Text ;] V1 [, V2, . Vn]);
За въведени файлове процедурата чете файловия компонент в променлива. При всяко четене текущата позиция във файла преминава към следващия елемент.
За текстови файлове една или повече стойности се четат в една или повече променливи.
С променливи от тип String Read чете всички знаци до (но не включително) следващия маркер за край на реда или докато Eof(F) изчисли True. Полученият символен низ се присвоява на променливата.
В случай на променлива от цял или реален тип, процедурата изчаква поредица от знаци, които образуват число според синтаксисните правила на езика Object Pascal. Четенето спира, когато се срещне първият интервал, табулация или край на реда, или когато Eof(F) се изчисли като True. Ако числовият низне съответства на очаквания формат, възниква I/O грешка.
Read Procedureln([var F: Text ;] V1 [, V2, . Vn]);
Това е разширение на процедурата Read и е дефинирано за текстови файлове. Чете низ от знаци във файла (включително маркера за край на реда) и преминава към началото на следващия ред. Извикването на функцията Readln(F) без параметри премества текущата позиция на файла в началото на следващия ред, ако има такъв, в противен случай тя скача в края на файла.
Функция SeekEof[(var F: Text )]: Boolean;
Връща края на файла и може да се използва само за отворени текстови файлове. Обикновено се използва за четене на числови стойности от текстови файлове.
Функция SeekEoln[(var F: Text )]: Boolean;
Връща знака за край на ред във файл и може да се използва само за отворени текстови файлове. Обикновено се използва за четене на числови стойности от текстови файлове.
Процедура за запис ([var F: Text ;] P1 [, P2, . Pn]);
Записва една или повече стойности в текстов файл.
Всеки входен параметър трябва да бъде от тип Char, един от типовете цели числа ( Byte , ShortInt, Word, LongInt, Cardinal ), един от типовете с плаваща запетая ( Single , Real, Double , Extended, Currency ), един от типовете низове ( PChar, AnsiString, ShortString) или един от булевите типове ( Boolean , Bool).
Процедура за запис (F, V1, .Vn);
Записва променлива във файлов компонент. Променливи V1. Vn трябва да бъде от същия тип като елементите на файла. Всеки път, когато се записва променлива, текущата позиция във файла се премества към следващия елемент.
Write Procedureln([var F: Text ;] P1 [, P2, . Pn]);
Извършва операция за запис, след което поставя маркер за край на реда във файла.
Обадете сеWriteln(F) без параметри записва маркер за край на реда във файла.