01.04.2010 13:19, Przemysław Czerpak написав(ла):
On Thu, 01 Apr 2010, vatzct wrote:
01.04.2010 12:03, vatzct написав(ла):
This is result of cpinfo from $Id: ChangeLog 14262 2010-03-30
19:55:52Z druzus $
The cpinfo.txt:
04/01/10 12:30:03 Windows XP 5.1.2600 Service Pack 1 Harbour
2.1.0dev (Rev. 14111)
Character encoding: UA866
==================================================
upper:
"ABCDEFGHАБВГДЕЁЄЖЗИIЇЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯJKLMNOPQRSTUVWXYZ"
lower:
"abcdefghабвгдеёєжзиiїйклмнопрстуфхцчшщъыьэюяjklmnopqrstuvwxyz"
==================================================
in console:
04/01/10 12:32:27 Windows XP 5.1.2600 Service Pack 1 Harbour
2.1.0dev (Rev. 1411
1)
Character encoding: UA866
==================================================
upper:
"ABCDEFGHCueaaa??aceI?eeiiiAAE??ooouuyOU?????JKLMNOPQRSTUVWXYZ"
lower:
"abcdefghaiounN+????i??┐???<>??????ч?????????jklmnopqrstuvwxyz"
==================================================
For some GTs you should also use:
HB_SETTERMCP( "UA866" )
to inform them about character encoding in string buffer.
This requirement will be removed in UNICODE builds in the future
when we switch internal screen buffer to operate on UNICODE values.
best regards,
Przemek
PROC MAIN()
LOCAL i
REQUEST HB_CODEPAGE_UA866
REQUEST HB_LANG_UA866
HB_SETTERMCP( "UA866" )
SET( _SET_CODEPAGE, "UA866" )
SET( _SET_LANGUAGE, "UA866" )
? "LANG:", hb_langName()
? "CP:", hb_cdpInfo()
FOR i := 1 TO 12
? CMonth( SToD( "2010" + strzero( i, 2 ) + "01" ) )
NEXT
RETURN
Ok, i add the hb_settermcp("UA866") and with default gt:
LANG: Harbour Language: UA866 Ukrainian (o┐?a????┐a)
CP: Ukrainian CP-866
???N??
i????
uN?N?N??
eo??N??
??aoN??
uN?oN??
i?>N??
?N?>N??
eN?N?N??
a<o?N??
i???<>an
a??nN??
With gtstd result is
LANG: Harbour Language: UA866 Ukrainian (Українська)
CP: Ukrainian CP-866
Сўчень
Лютий
Березень
Квўтень
Травень
Червень
Липень
Серпень
Вересень
Жовтень
Листопад
Грудень
Regards,
Alexey Myronenko
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
