過程與函數
過程與函數表格
過程或函數首部形式 | 說明 |
procedure assigncrt(var f:text); | 将文本文件f與顯示器CRT建立聯系 |
function keypressed:boolean; | 檢測是否有鍵按下,有則函數值為true |
function readkey:char; | 等待從鍵盤輸入一個字符 |
procedure textmode(mode:integer); | 設置字符顯示模式,mode值見下表,可以用常量标識符或常數值 |
procedure window(x1,y1,x2,y2:byte); | 定義字符窗口:(x1,y1)為左上角坐标,(x2,y2)為右下角坐标;必須在設置模式允許範圍内。窗口定義後,所有顯示均在窗口進行 |
展開表格
Testmode的顯示模式常數表
常量标識符 | 常數值 | 顯示模式 |
BW40 | 0 | 彩色顯示卡40*25黑白模式 |
CO40 | 1 | 彩色顯示卡40*25彩色模式 |
C40 | 1 | 同上,用于兼容3.0版本 |
BW80 | 2 | 彩色顯示卡80*25黑白模式 |
CO80 | 3 | 彩色顯示卡80*25彩色模式 |
展開表格
Textcolor等的前景和背景顔色常數表
常量标識符 | 常數值 | 顔色 | 前景 | 背景 | 常量标識符 | 常數值 | 顔色 | 前景 | 背景 |
Black | 0 | 黑 | Y | Y | DarkGray | 8 | 深灰 | Y | Y |
Blue | 1 | 藍 | Y | Y | LightBlue | 9 | 淺灰 | Y | Y |
Green | 2 | 綠 | Y | Y | LightGreen | 10 | 淺綠 | Y | Y |
Cyan | 3 | 青 | Y | Y | LightCyan | 11 | 淺青 | Y | Y |
Red | 4 | 紅 | Y | Y | LightRed | 12 | 淺紅 | Y | Y |
展開表格
變量
變量表格
變量名 | 類型 | 單元中作用 |
checkbreak | boolean | 程序在執行下一個write或writeln語句之前是否做Ctrl+Break檢查 |
checkeof | boolean | 允許文件結束的Ctrl+Z檢查 |
directvideo | boolean | 為true時采用直接訪問視頻内存方式 |
checksnow | boolean | 為true時進行雪花過濾控制 |
lastmode | word | 保存上一次顯示模式 |
展開表格
lastmode文件注釋
bit0~bit2:前景顔色(bit0:Blue;bit1:Green;bit2:Red)
bit3:亮度(Brightness)
bit4~bit6:背景顔色(bit4:Blue;bit5:Green;bit6:Red)
bit7:是否閃爍(Blinking)
樣例程序
設置屏幕為25行*40列正文模式,并改變字符的前景顔色,背景顔色.
program testtext; //Pascal
uses crt;
begin
textmode(c40);
textbackground(blue);
textcolor(red);
writeln('text mode test');
textbackground(green);
textcolor(blink+yellow);
writeln('blink test');
end.