TC2.0AGV模式下16种标准颜色在Delphi中对应的TColor值是多少，谢谢！

Question

如题，谢谢。

Answer 1

查到了，是：
var FColor: array[0..15] of TColor;
FColor[0]:=RGB($00,$00,$00); FColor[1]:=RGB($00,$00,$FF); FColor[2]:=RGB($00,$FF,$00); FColor[3]:=RGB($00,$FF,$FF); FColor[4]:=RGB($FF,$00,$00); FColor[5]:=RGB($FF,$00,$FF); FColor[6]:=RGB($80,$80,$00); FColor[7]:=RGB($C0,$C0,$C0); FColor[8]:=RGB($80,$80,$80); FColor[9]:=RGB($00,$00,$80); FColor[10]:=RGB($00,$80,$00); FColor[11]:=RGB($00,$80,$80);
FColor[12]:=RGB($80,$00,$00); FColor[13]:=RGB($80,$00,$80); 
FColor[14]:=RGB($FF,$FF,$00); FColor[15]:=RGB($FF,$FF,$FF);