fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Some fixes for PICTURE "9"

Browse Source
This commit is contained in:
Antonio Linares
2003-05-31 13:45:49 +00:00
parent 93981e8239
commit 4cf5ef4edf
1 changed files with 19 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
harbour/source/rtl/tget.prg
View File

@@ -1054,17 +1054,15 @@ METHOD Input( cChar ) CLASS Get
case ::type == "N"
do case
case cChar == "-"
::minus := .t.
/* The minus symbol can be write in any place */
case cChar == "-"
::minus := .t. /* The minus symbol can be write in any place */
case cChar $ ".,"
::toDecPos()
return ""
case !( cChar $ "0123456789" )
return ""
case cChar $ ".,"
::toDecPos()
return ""
case ! ( cChar $ "0123456789+" )
return ""
endcase
case ::type == "D"
@@ -1096,33 +1094,42 @@ METHOD Input( cChar ) CLASS Get
if ! IsAlpha( cChar )
cChar := ""
endif
case cPic == "N"
if ! IsAlpha( cChar ) .and. ! IsDigit( cChar )
cChar := ""
endif
case cPic == "9"
if ! IsDigit( cChar ) .and. cChar != "-"
if ! IsDigit( cChar ) .and. ! cChar $ "-+"
cChar := ""
endif
if ::type != "N" .and. cChar $ "-+"
cChar := ""
endif
case cPic == "#"
if ! IsDigit( cChar ) .and. !( cChar == " " ) .and. !( cChar $ ".+-" )
cChar := ""
endif
case cPic == "L"
if !( Upper( cChar ) $ "YNTF" + ;
hb_langmessage( HB_LANG_ITEM_BASE_TEXT + 1 ) + ;
hb_langmessage( HB_LANG_ITEM_BASE_TEXT + 2 ) )
cChar := ""
endif
case cPic == "Y"
if !( Upper( cChar ) $ "YN" )
cChar := ""
endif
case ( cPic == "$" .or. cPic == "*" ) .and. ::type == "N"
if ! IsDigit( cChar ) .and. cChar != "-"
cChar := ""
endif
other
otherwise
cChar := Transform( cChar, cPic )
end case
endif
@@ -1607,4 +1614,4 @@ STATIC FUNCTION IsBadDate( cBuffer, cPicFunc )
return .f.
//---------------------------------------------------------------------------//
//---------------------------------------------------------------------------//