Primeira letra maiúscula/FOR EACH @
Enviado: 02 Abr 2020 15:13
REQUEST HB_CODEPAGE_PTISO
PROCEDURE MAIN
LOCAL cText
SET( _SET_CODEPAGE, "PTISO" )
CLS
cText := "ISTO É UMA BENÇÃO"
@ 1, 0 SAY cText
@ 2, 0 SAY CaseCapital( cText )
Inkey(0)
RETURN
FUNCTION CASECapital( cText )
LOCAL lUpper := .T., cLetter
cText := Lower( cText )
FOR EACH cLetter IN @cText
IF lUpper .AND. cLetter != Space(1)
cLetter := Upper( cLetter )
lUpper := .F.
ENDIF
IF cLetter == Space(1)
lUpper := .T.
ENDIF
NEXT
RETURN cText