Re: [fpc-pascal]Using UInt32 {LongWords} as Indexes for Properties.

2004-04-06 Thread Peter Vreman
> To give a better picture of my problem: > > Type > tQSDL_Surface > = Class (SomeClass) > Protected > fFlags : UInt32; {LongWord} > > Function GetFlag(aBit: UInt32): Boolean; > Function SetFlag(aBig: UInt32; aBool: Boolean); > > Public > Constructo

Re: [fpc-pascal]Using UInt32 {LongWords} as Indexes for Properties.

2004-04-06 Thread Jon D. Sawyer
To give a better picture of my problem: Type tQSDL_Surface = Class (SomeClass) Protected fFlags : UInt32; {LongWord} Function GetFlag(aBit: UInt32): Boolean; Function SetFlag(aBig: UInt32; aBool: Boolean); Public Constructor Create(); Des

Re: [fpc-pascal]Using UInt32 {LongWords} as Indexes for Properties.

2004-04-06 Thread Jon D. Sawyer
I appreciate the help but I'm not sure if you understand what it is I'm trying to do. SetFlag() and GetFlag() do binary operations on the flags controling an SDL Surface. Passing the BitMask to the GetFlag() will return weither or not the bit is on in the flags variable. Passing the BitMask and

Re: [fpc-pascal]Using UInt32 {LongWords} as Indexes for Properties.

2004-04-06 Thread Matt Emson
> Property SWSurface : Boolean Index SDL_SWSurface > Read GetFlags Write SetFlags; > > If I declare Get/Set Flags as the following: > Function GetFlags(aBit: UInt32): Boolean; > Procedure SetFlags(aBit: UInt32; aBool: Boolean); Looks like you're tying to use an indexed property. Dunno what mode yo

Re: [fpc-pascal]QWORD error ?

2004-04-06 Thread Jonas Maebe
On 5 apr 2004, at 12:12, [EMAIL PROTECTED] wrote: L:=-1; qw:=qw+(-L);{ qw=99 O.K. } (* qw:=qw-L; { run time error 201 } qw:=qw+L; { run time error 201 } *) [snip] Could somebody help me what's wrong ? The problem is that the compiler has

[fpc-pascal]Using UInt32 {LongWords} as Indexes for Properties.

2004-04-06 Thread Jon D. Sawyer
Ran into a problem of where I'm not sure how the code will work once I'm finished and I'd rather not write all this if its not going to work: I want to provide access to Bit-Flags that control a class of mine: ig: Property SWSurface : Boolean Index SDL_SWSurface Read GetFlags Write SetFlags; I