|
@@ -29,7 +29,8 @@ type
|
|
wnfNo, // other than number
|
|
wnfNo, // other than number
|
|
wnfInteger, // 00
|
|
wnfInteger, // 00
|
|
wnfHex, // 0xABC
|
|
wnfHex, // 0xABC
|
|
- wnfFloat // 0.000
|
|
|
|
|
|
+ wnfFloat, // 0.000
|
|
|
|
+ wnfFloatHex // 0x000.bced
|
|
);
|
|
);
|
|
|
|
|
|
{ TWatScanner }
|
|
{ TWatScanner }
|
|
@@ -266,6 +267,7 @@ begin
|
|
token:=weNumber;
|
|
token:=weNumber;
|
|
case fmt of
|
|
case fmt of
|
|
nfFloat: numformat := wnfFloat;
|
|
nfFloat: numformat := wnfFloat;
|
|
|
|
+ nfFloatHex: numFormat := wnfFloatHex;
|
|
nfHex: numformat := wnfHex;
|
|
nfHex: numformat := wnfHex;
|
|
else
|
|
else
|
|
numformat := wnfInteger;
|
|
numformat := wnfInteger;
|