ID: 25496, MBCSUtils v1.14

by Hideaki Tominaga Email: Anonymous

MBCSUtils unit constains several functions and classes to support international characters with AnsiString.

Download

Details

Download 121.8K

CDN Login Required to Download. (You will be redirected to the login page if you click on the Download Link)

To download this, you must have registered:

A free membership

For Delphi, Version 11.0 to 11.0 232 downloads
Copyright: Open Source or other

Updated on Wed, 17 Sep 2008 09:43:22 GMT
Originally uploaded on Thu, 27 Mar 2008 12:00:58 GMT

Explore the files in this upload

Description

MBCSUtils unit constains several functions and classes to support international characters with AnsiString.

<!> "MECSUtils" now available. (CC#26061)<!>

# Please check source code for detail.
# (with Powerpoint document)

Classes:
- TLeadBytes
- UTF8Char
- PUTF8Char
- TMwcsWordType
- TIndexCount
- TNORM_FORM <- added v1.02

Functions/Procedures:
[Codepage]
- CodePageToFontCharset
- FontCharsetToCodePage
[AnsiString/UTF8String]
- GetLeadBytes
- IsMBCSLeadByte
- MbcsByteToAnsiCharIndex
- MbcsByteToAnsiCharLen
- MbcsByteType
- MbcsAnsiCharLength
- MbcsAnsiCharToByteIndex
- MbcsAnsiCharToByteIndexCount
- MbcsAnsiCharToByteLen
- MbcsCopy
- MbcsDelete
- MbcsInsert
- MbcsLeftStr
- MbcsLength
- MbcsMidStr
- MbcsNextAnsiCharIndex
- MbcsRightStr
- MbcsStrByteType
- MbcsStrAnsiCharLength
- MbcsStrLen
- MbcsStrNextAnsiChar
[WideString(UCS-2/UTF-16)]
- IsSurrogate <- added v1.01
- IsSurrogate1
- IsSurrogate2
- MwcsWordToWideCharIndex
- MwcsWordToWideCharLen
- MwcsWordType
- MwcsWideCharLength
- MwcsWideCharToWordIndex
- MwcsWideCharToWordIndexCount
- MwcsWideCharToWordLen
- MwcsCopy
- MwcsDelete
- MwcsInsert
- MwcsIsNormalized <- added v1.02
- MwcsLeftStr
- MwcsLength
- MwcsMidStr
- MwcsNextWideCharIndex
- MwcsNormalize <- added v1.02
- MwcsRightStr
- MwcsStrWordType
- MwcsStrWideCharLength
- MwcsStrLen
- MwcsStrNextWideChar
[Convert]
- AnsiStringToWideString
- AnsiStringToUCS4String
- AnsiStringToUTF8String
- ConvertMultiByteToUnicode <- added v1.09
- ConvertString <- added v1.05
- ConvertUnicodeToMultiByte <- added v1.09
- UCS4CharToWideString <- added v1.12
- UCS4CharToUTF8String <- added v1.12
- UCS4StringToAnsiString
- UCS4StringToWideString
- UCS4StringToUTF8String
- UTF8StringToAnsiString
- UTF8StringToWideString
- UTF8StringToUCS4String
- WideStringToAnsiString
- WideStringToUCS4String
- WideStringToUTF8String
[EastAsia]
- EastAsianWidth <- added v1.11
- IsFullWidth <- added v1.11

Example:

var
A: AnsiString;
B: UTF8String;
begin
A := '11?22?33?44';
A := MbcsCopy(A, 1, 5); // '11?22'
B := AnsiStringToUTF8String(A);
B := MbcsCopy(B, 2, 2, CP_UTF8); // '1?'
ShowMessage(IntToStr(MbcsLength(B, CP_UTF8))); // return '2'

# '?' is Multi-byte charcter.

Latest Comments View All Add New

Move mouse over comment to see the full text

Reply Posted by Hideaki Tominaga on Mar 29 2008

Example 3

// When the codepage of your PC is *not* CP932. // And, If you need to use Japanese. var A: AnsiString; MB: UTF8String; W: WideString; begin // set codepage MbcsUtils.DefaultAnsiCodePage :=...

Reply Posted by Hideaki Tominaga on Mar 29 2008

Example 2

// When the codepage of your PC is *not* CP932. // And, If you need to use Japanese. var A: AnsiString; MB: UTF8String; W: WideString; begin // ANSI (Japanese SHIFT-JIS(CP932): double byte...

Reply Posted by Hideaki Tominaga on Mar 29 2008

Example

// When the codepage of your PC is CP932(Japanese SHIFT-JIS). var A: AnsiString; MB: UTF8String; W: WideString; begin // ANSI (Japanese SHIFT-JIS(CP932): double byte character) A...

CodeCentral

ID: 25496, MBCSUtils v1.14

Explore the files in this upload

File Exploration is Disabled

Latest Comments View All Add New