耳搔:程式问题......!!!!

0 - black
1 - blue
2 - green
3 - cyan
4 - red
5 - magenta
6 - brown
7 - gray
8 - dark gray
9 - light blue
10 - light green
11 - light light cyan
12 - light red
13 - light magenta
14 - yellow
15 - white

十多年前的事了, 不知有没有记错. 另外, 它不能说是pascal中共有16种颜色, 而是EGA/VGA中的颜色. Turbo Pascal程序在使用EGA/VGA时用这16种颜色.

Color Constants

Use these color constants with SetPalette,
SetAllPalette, TextColor, and TextBackground:

Dark Colors:
(Foreground & Background)
=========================
Black 0
Blue 1
Green 2
Cyan 3
Red 4
Magenta 5
Brown 6
LightGray 7

Light Colors:
(Foreground)
===================
DarkGray 8
LightBlue 9
LightGreen 10
LightCyan 11
LightRed 12
LightMagenta 13
Yellow 14
White 15

For flashing (blinking) text foreground, Blink
= 128.

哎呀，现在的孩子都没有看帮助的习惯了，想当年我是基本不看书的，主要是没得看，唉……
多用 shift+F1 啊，会找到你想要的！