Графикаси касб-ҳунар коллежлари учун ўқув қулланма

 
Матнли қурилмалар драйвери. 
Матнли киритиш-чиқаришни соддалаштириш учун F_GrText модулида 
матнли қурилмаларнинг шахсий драйвери қўшилган. У график режимда 
Write/Writeln ва Read/Readln стандарт процедураларини ишлатишга имкон 

---

187 
беради. Бу бўлимда матнли қурилмалар драйверларини тузиш саволи кўриб 
ўтилади.
Турбо Паскал ҳар бир матнли файл билан Text типидаги ўзгарувчи 
орқали боғланади, у қуйидаги типдаги ѐзув орқали аниқланади.
Type 
TextBuf=array [0..127] of Char; 
TextRec=record 
 
Handle:Word; 
{Файл дескриптори} 
Mode:Word; 
{Файлни ишлатиш режими} 
BufSize:Word; 
{Буфер узунлиги} 
Private:Word; 
{Ишлатилмайди} 
BufPos:Word; 
{Буфердаги кейинги рамз индекси} 
BufEnd:Word; 
{Ишлов берилмаган рамзлар сони} 
BufPr:^TextBuf; {Буфер адреси} 
OpenFunc:Pointer; 
InOutFunc:Pointer; 
FlushFunc:Pointer; 
Closefunc: Pointer; 
UserData:array [1..16] of Byte; 
Name:array [1..16] of Byte; 
Buffer:TextBuf; 
End; 
Handle майдони файл дескрипторини сақлайди ва DOS воситалари 
орқали диск файли билан ишлашда қўлланилади.
Mode майдони қуйидаги қийматлардан бирини қабул қилади:
Const 
fmClosed=$D7B0; 
{Файл ѐпилган} 
fmInput=$D7B1; {Файл-маълумотларни ўқиш режимида} 
fmOutput=$D7B2; 
{Файл-маълумотларни ѐзищ режимида} 
fmInOut=$D7B3; {Файл-ѐзиш/ўқиш режимида} 
Бу майдоннинг қолган ихтиѐрий қиймати файл очилмаганлигидан дарак 
беради. 
UserData майдони Турбо Паскал томонидан ҳеч қачон ишлатилмайди ва 
чақирилувчи дастур ички талаблари учун қолдирилган. 
Name майдони ASCIIZ форматида файлга тўлиқ йўлни сақлайди. Бу 
форматда қатор рамзлар занжири сифатида аниқланиб, #0 рамзи билан 
тугайди.
TextRec ѐзувида Pointer типидаги 4 майдон қуйидаги моҳиятга эга
 
OpenFunc – матнли файлни очишда бошқарувни оладиган 
функция манзили 
 
CloseFunc – матнли файлни ѐпишда чақириладиган функция 
манзили 

---

188 
 
InOutFunc – маълумотни ўқиш ѐки ѐзиш учун қурилмага физик 
мурожаат моментидаги фаол функция манзили 
 
FlushFunc – маълумотни буферлашган чиқиришда матнли 
буферни «сиқиб чиқарувчи» функция манзили. 
Бу тўртала функцияни ҳар бири хотиранинг узоқ моделига қараб 
трансляция бўлиши керак ва қуйидаги сарлавҳага мос келиши керак.
Type 
FuncType=Function(var F:TextRec):Integer; 
Функция қайтарадиган қиймат мос операцияни омадли бажарилишига 
боғлиқ ва агар операция омадли бажарилса 0 га тенг.
Барча 4 функция тўплами матнли қурилма драйверини аниқлайди.