I tried with fpc 2.6.4
-
program Project1;
uses classes;
type
TSmall = 4..12;
TA=class
public
N : TSmall; //default to 0 after create, should raise range check error
end;
var
A : TA;
begin
A := TA.Create; //no range check error
writeln(A.N); //no range check error
in
On Thu, 15 Oct 2015 15:30:41 +0700
Ryan Joseph wrote:
>
> > On Oct 14, 2015, at 1:49 PM, Michael Van Canneyt
> > wrote:
> >
> > Type
> > TMyImage = Class(TFPCompactImgRGBA8Bit)
> > Public
> > property Data : PFPCompactImgRGBA8BitValue read FData;
> > end;
> >
> >
> > Should do it. Or if y
> On Oct 14, 2015, at 1:49 PM, Michael Van Canneyt
> wrote:
>
> Type
> TMyImage = Class(TFPCompactImgRGBA8Bit)
> Public
> property Data : PFPCompactImgRGBA8BitValue read FData;
> end;
>
>
> Should do it. Or if you don't need Alpha:
>
> TMyImage = Class(TFPCompactImgRGB8Bit)
> Public
> pro
> On Oct 14, 2015, at 4:59 PM, Graeme Geldenhuys
> wrote:
>
> I assume it should work. I guess there is only one way to found out. ;-)
Yes it did work which is nice.
I didn’t do any speed tests yet but from what I read this unit is faster than
FPImage and it's easier to implement also, being
