[fpc-pascal] Virtual Constants

Daniel Gaspary dgaspary at gmail.com
Fri Mar 1 21:31:50 CET 2013


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;



More information about the fpc-pascal mailing list