1 2 3 4 5
function CCEQ(val,c : cc_t) : boolean ; begin CCEQ:=((c=val) and (val<>_POSIX_VDISABLE)); end;