1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
const
XFlag_A_Int = $0001;
XFlag_A_Float = $0002;
XFlag_A_Array = $0010;
XFlag_B_Int = $0100;
XFlag_B_Float = $0200;
XFlag_B_Array = $1000;
XFlag_AB_Int = XFlag_A_Int or XFlag_B_Int;
XFlag_AB_Float = XFlag_A_Float or XFlag_B_Float;
XFlag_AB_Array = XFlag_A_Array or XFlag_B_Array;
function X(A, B: pointer; Flag: word);
// appels à X :
x(@AI, @BF, XFlag_A_Int or XFlag_B_Float);
x(@AAF, @BAI, XFlag_A_Float or XFlag_B_Int or XFlag_AB_Array);
x(@AF, nil, XFlag_A_Float); |
Partager