|
Ê òèïèçèðîâàííûì ôàéëàì îòíîñÿòñÿ ôàéëû ñòðîãî îïðåäåëåííîãî òèïà. ×àùå âñåãî ýòî ôàéëû, ñîñòîÿùèå èç çàïèñåé. Îíè ïðèìåíÿþòñÿ äëÿ ñîçäàíèÿ ðàçëè÷íûõ áàç äàííûõ. Ñòàíäàðòíîå çàäàíèå â ïðîãðàììå òàêîé ôàéëîâîé ïåðåìåííîé îñóùåñòâëÿåòñÿ ñëåäóþùèì îáðàçîì:
type
FileRec = record
end;
var F : file of FileRec;
Åñëè ñîäåðæèìîå òåêñòîâûõ ôàéëîâ ðàññìàòðèâàåòñÿ êàê íàáîð ñèìâîëîâ, ïîäãîòîâëåííûé ñïåöèàëüíûì îáðàçîì ñ ó÷åòîì îáùåïðèíÿòûõ ñîãëàøåíèé î ïðåäñòàâëåíèè òåêñòîâîé èíôîðìàöèè, òî ñîäåðæèìîå òèïèçèðîâàííûõ ôàéëîâ ðàññìàòðèâàåòñÿ êàê ïîñëåäîâàòåëüíîñòü çàïèñåé îïðåäåëåííîé ñòðóêòóðû. Åäèíèöåé èçìåðåíèÿ òàêîãî íàáîðà äàííûõ ÿâëÿåòñÿ ñàìà çàïèñü. Äëèíà çàïèñè îïðåäåëÿåòñÿ êàê SizeOf(FileRec).
Òàê êàê äëèíà ëþáîãî êîìïîíåíòà òèïèçèðîâàííîãî ôàéëà ñòðîãî ïîñòîÿííà, ýòî äàåò âîçìîæíîñòü îðãàíèçîâàòü ïðÿìîé äîñòóï ê ëþáîìó êîìïîíåíòó ïî åãî ïîðÿäêîâîìó íîìåðó, ïîýòîìó òèïèçèðîâàííûå ôàéëû ÷àñòî íàçûâàþò ôàéëàìè ïðÿìîãî äîñòóïà.
Seek(var F; NumRec: Longlnt)
Ýòà ïðîöåäóðà óñòàíàâëèâàåò òåêóùóþ ôàéëîâóþ ïåðåìåííóþ F íà çàïèñü ñ íîìåðîì NumRec; F – ôàéëîâàÿ ïåðåìåííàÿ äëÿ òèïèçèðîâàííûõ è íåòèïèçèðîâàííûõ íàáîðîâ äàííûõ. Ïðè îòêðûòèè òèïèçèðîâàííîãî ôàéëà òåêóùàÿ ïîçèöèÿ äëÿ ðàáîòû ñ íèì óñòàíîâëåíà íà íà÷àëî ïåðâîé çàïèñè, êîòîðàÿ ïî ïðèíÿòûì ñîãëàøåíèÿì èìååò íîìåð 0, ò. å. íîìåð ôèçè÷åñêîé çàïèñè íà åäèíèöó ìåíüøå íîìåðà ëîãè÷åñêîé çàïèñè. Ýòî íåáîëüøîå íåñîîòâåòñòâèå â íîìåðàõ ìîæåò ñëóæèòü ïðè÷èíîé âîçíèêíîâåíèÿ îøèáîê ÷òåíèÿ-çàïèñè, ÷òî â ðåçóëüòàòå ìîæåò ïðèâåñòè ê íàðóøåíèþ öåëîñòíîñòè âàæíîé èíôîðìàöèè. Ïîëîæåíèå óñóãóáëÿåòñÿ òåì, ÷òî íåâåðíîå ïîçèöèîíèðîâàíèå íà çàïèñü ñ ïîìîùüþ ïðîöåäóðû Seek, êàê ïðàâèëî, íå ïðèâîäèò ê êàêèì-ëèáî âèäèìûì îøèáêàì ââîäà-âûâîäà, íà êîòîðûå âñåãäà ìîæíî îòðåàãèðîâàòü. Èñêëþ÷åíèå ñîñòàâëÿþò ñèòóàöèè, êîãäà íåò äîñòóïà ê ôàéëó, ôàéë íå áûë îòêðûò èëè íàçíà÷åíî ïîçèöèîíèðîâàíèå íà íåñóùåñòâóþùóþ çàïèñü. Òàêèå ñèòóàöèè îáðàáàòûâàþòñÿ ñ ïîìîùüþ ôóíêöèè IOresult.
Òèïèçèðîâàííûå ôàéëû ïîçâîëÿþò îðãàíèçîâàòü ðàáîòó â ðåæèìå ÷òåíèÿ-çàïèñè. Ýòà âîçìîæíîñòü èãðàåò ðåøàþùóþ ðîëü ïðè îïðåäåëåíèè, êàêèì òèïàì ôàéëîâ îòäàòü ïðåäïî÷òåíèå äëÿ áîëüøèíñòâà ïðèêëàäíûõ çàäà÷. Èíôîðìàöèÿ â òèïèçèðîâàííûõ íàáîðàõ äàííûõ ïðåäñòàâëåíà â òîì æå âèäå, êàê èâ ïàìÿòè êîìïüþòåðà âî âðåìÿ âûïîëíåíèÿ ïðîãðàììû, ïîýòîìó íå òðåáóåòñÿ îòñëåæèâàòü óïðàâëÿþùèå ïîñëåäîâàòåëüíîñòè òèïà êîíåö ñòðîêè èëè âîçâðàò êàðåòêè.
Äëÿ ðàáîòû ñ ôàéëàìè ïðÿìîãî äîñòóïà äîïîëíèòåëüíî ìîæíî èñïîëüçîâàòü ñëåäóþùèå ñðåäñòâà:
Truncate(var F)
Ýòà ïðîöåäóðà óíè÷òîæàåò âñå êîìïîíåíòû ôàéëà F, íà÷èíàÿ ñ ìåñòà òåêóùåãî ïîëîæåíèÿ ôàéëîâîãî óêàçàòåëÿ.
FilePos(var F) : Longlnt
Ýòà ôóíêöèÿ âîçâðàùàåò äëÿ ôàéëà F òåêóùóþ ôàéëîâóþ ïîçèöèþ (íîìåð çàïèñè, íà êîòîðóþ îíà óñòàíîâëåíà) â âèäå çíà÷åíèÿ òèïà Longlnt.
FileSize(var F) : Longlnt
Ýòà ôóíêöèÿ âîçâðàùàåò ðàçìåð ôàéëà (êîëè÷åñòâî çàïèñåé) â âèäå çíà÷åíèÿ òèïà Longlnt.
Äëÿ ïóñòîãî ôàéëà âûçîâ FileSize âîçâðàùàåò çíà÷åíèå 0. Îáíàðóæåíèå îøèáîê ïðè îáðàùåíèè ê âíåøíèì íîñèòåëÿì äëÿ îáåèõ ôóíêöèé ïðîèçâîäèòñÿ ÷åðåç IOresult.
Äëÿ òîãî ÷òîáû î÷åðåäíàÿ çàïèñü ìîãëà áûòü çàïèñàíà â êîíåö òèïèçèðîâàííîãî ôàéëà, íåîáõîäèìî ïåðåìåñòèòü òåêóùóþ ôàéëîâóþ ïîçèöèþ â êîíåö ôàéëà. Êîãäà ñîçäàåòñÿ íîâûé ôàéë, ýòî ïðîèñõîäèò àâòîìàòè÷åñêè ïîñëå ôîðìèðîâàíèÿ êàæäîé î÷åðåäíîé çàïèñè. Åñëè ôàéë óæå ñîçäàí è ôàéëîâàÿ ïîçèöèÿ, óñòàíîâëåííàÿ ïðè ïîìîùè Seek, íàõîäèòñÿ ãäå-íèáóäü â íà÷àëå ôàéëà (FilePos(F) < FileSize(F)), òî â êîíåö ôàéëà åå ïîçâîëÿåò ïåðåìåñòèòü âûçîâ Seek(F, FileSize(F));
 êàæäîì ôàéëå ÷èñëî ëîãè÷åñêèõ è ôèçè÷åñêèõ çàïèñåé ñîâïàäàåò, à ïðè ïîçèöèîíèðîâàíèè íîìåð ôèçè÷åñêîé çàïèñè íà åäèíèöó ìåíüøå íîìåðà ëîãè÷åñêîé çàïèñè.
Êîãäà çàïèñè ðàñïîëàãàþòñÿ â íåîòñîðòèðîâàííîì ïîðÿäêå, ïîèñê íåîáõîäèìî îñóùåñòâëÿòü ïîñëåäîâàòåëüíî ïî âñåìó ôàéëó. Òàêîå ðàñïîëîæåíèå çàïèñåé íåóäîáíî è òðåáóåò çíà÷èòåëüíûõ ðàñõîäîâ ðåñóðñîâ ñèñòåìû äëÿ ïîèñêà íóæíîé çàïèñè. Ëþáàÿ ïðîãðàììíàÿ ñèñòåìà ïî ìàíèïóëèðîâàíèþ áàçàìè äàííûõ âñåãäà èìååò â ñâîåì ñîñòàâå ñðåäñòâà óïîðÿäî÷åíèÿ çàïèñåé ïî êëþ÷ó.
| 
