[bpranoto]

Hello Kim,

I hope you didn’t miss this.

Thank you.

[bpranoto]

Glad to hear the bug is fixed. It made me lose some sleeps 🙂

[bpranoto]

I have placed the demo project and the fix to my google drive, however it looks like this forum doesn’t let me posted urls. Anyway, I have emailed those files to Kim Bo Madsen. I hope he doesn’t miss my email.

[bpranoto]

Looking the definition of  TFPGObjectList in fgl unit:

generic TFPGObjectList<T: TObject> = class(TFPSList)
private

…

I change the offending line 50 in unit kbmMemTypes to:

TkbmGObjectList<T:TObject> = class(fgl.TFPGObjectList<T>);

Now it compiles fine. Hope it will be fixed.

• This reply was modified 5 years, 5 months ago by bpranoto.

[bpranoto]

any chance it will be reviewed? Thanks

[bpranoto]

Typo: “Issue with TBCDField and IGDBEdit” should be “Issue with TBCDField and TDBEdit”….

[bpranoto]

The problem is on kbmmemtable.pas line 12870:

DataEvent(deFieldChange, TkbmNativeInt(Field) );

it seems the casting to TkbmNativeInt is not correct. If I change the line to:

DataEvent(deFieldChange, int64(Field)  );

the problem goes away.

So the problem must be in the definition of TkbmNativeInt in KbmMemTypes.pas line 31:

 

{$IFDEF LEVEL16}
TkbmNativeInt = nativeint;
TkbmNativeUInt = nativeuint;
{$ELSE}
TkbmNativeInt = integer;    <=== here
TkbmNativeUInt = cardinal;
{$ENDIF}

 

What’s LEVEL16?

[Author]

Posts