try this entering -333, you'll get 33, at least this is what i get.
proc main()
local v := 0
cls
@ 10,10 get v
read
? v
if compiled with $Id: tget.prg 10172 2009-02-04 18:21:23Z vszakats $
then it is OK
--
View this message in context:
http://n2.nabble.com/Bug-in-Get-system-tp2899254p2
Hi Viktor,
I know you are very busy these days and I appreciate all the work you and
Przemek have put in the Harbour project. I hope you and/or Przemek could be
able to slice some time to fix this bug.
My regards to the whole team and thanks again,
Ed
--
View this message in context:
http://
Yes, it's a known bug, also related to the one
Edmer has sent not long ago. I don't know when
I'll have free time to look at this and fix it,
so I'd welcome if someone would do some fixing
work on this remaining untested part of
TGet(): ::unTransform(), ::PutMask() and ::Picture().
I highly recom
In the following sample press a numeric key and you will see that the
decimal separator become the dot:
FUNCTION MAIN()
LOCAL GetList := {}
LOCAL nVar := 0
@ 10, 10 GET nVar;
PICTURE "@EZ 999,999.99"
READ
RETURN NIL
EMG
--
EMAG Software Homepage: http://www.
