[dxMos]

Hello,

just for information!

Delphi 5 + Ver.14.20

I have to replace …

Code:

if CharInSet(Key, [#32..#255]) and

with

Code:

if (KEY IN [#32..#255]) and
(FDataLink.Field <> nil) and
not (Key IN ['0'..'9']) and
(Key <> {$IFDEF DELPHI_XE2}FormatSettings.{$ENDIF}DecimalSeparator) and
(Key <> '-') then begin

Thomas

[Support]

Thank you.

The AlphaDB package is updated now for using with old versions of Delphi:

http://www.alphaskins.com/sfiles/stable/alphadb.zip

[JM-DG]

'dxMos' wrote:

Hello,

just for information!

Delphi 5 + Ver.14.20

I have to replace …

Code:

if CharInSet(Key, [#32..#255]) and

with

Code:

if (KEY IN [#32..#255]) and
(FDataLink.Field nil) and
not (Key IN ['0'..'9']) and
(Key {$IFDEF DELPHI_XE2}FormatSettings.{$ENDIF}DecimalSeparator) and
(Key '-') then begin

Thomas

I just added the file acntUtils in the uses of the problematic files & everything worked out.

[Author]

Posts