[fpc-pascal] Virtual Constants

[Daniel Gaspary]

The idea is strange. But here it is:

Is possible to have a Class constant with different values in class
descendants ?

Would be something like that:

TA = class
const
        c1: integer; virtual;

        class function GetC1: integer; //returns c1
end;

TB = class(TA)
const
        c1: integer = 1;
end;

TC = class(TA)
const
        c1: integer = 2;
end;