// Unicode 版 Delphi での例
var
  Dmy: String;
  S: UnicodeString;
  B: TBytes;
  i: Integer;
begin
  S := 'ABCあいう';
  B := BytesOf(S);
  Dmy := '';
  for i:=Low(B) to High(B) do
    Dmy := Dmy + Format('0x%.2x ', [B[i]]);
  ShowMessage(Dmy);
end;

// Unicode 版 Delphi での例
var
  Dmy: String;
  S: UnicodeString;
  B: TBytes;
  i: Integer;
begin
  S := 'ABCあいう';
  B := WideBytesOf(S);
  Dmy := '';
  for i:=Low(B) to High(B) do
    Dmy := Dmy + Format('0x%.2x ', [B[i]]);
  ShowMessage(Dmy);
end;

// Unicode 版 Delphi での例
var
  Dmy: String;
  A: AnsiString;
  B: TBytes;
  i: Integer;
begin
  A := AnsiString('ABCあいう');
  B := MecsBytesOf(A);
  Dmy := '';
  for i:=Low(B) to High(B) do
    Dmy := Dmy + Format('0x%.2x ', [B[i]]);
  ShowMessage(Dmy);
end;

// Unicode 版 Delphi での例
var
  Dmy: String;
  S: UnicodeString;
  B: TBytes;
  i: Integer;
begin
  S := 'ABCあいう';
  B := MecsBytesOf(S);
  Dmy := '';
  for i:=Low(B) to High(B) do
    Dmy := Dmy + Format('0x%.2x ', [B[i]]);
  ShowMessage(Dmy);
end;

// Unicode 版 Delphi での例
var
  Dmy: String;
  A: AnsiString;
  B: TBytes;
  i: Integer;
begin
  SetLength(B, 6);
  B[0] := $81; // 81E6 : ∵
  B[1] := $E6;
  B[2] := $87; // 879A : ∵
  B[3] := $9A;
  B[4] := $FA; // FA5B : ∵
  B[5] := $5B;
  A := StringOf(B);
  Dmy := '';
  for i:=1 to Length(A) do
    Dmy := Dmy + Format('0x%.2x ', [Byte(A[i])]);
  ShowMessage(Dmy);
end;

// Unicode 版 Delphi での例
var
  Dmy: String;
  A: RawByteString;
  B: TBytes;
  i: Integer;
begin
  SetLength(B, 7);
  B[0] := $81; // 81E6 : ∵
  B[1] := $E6;
  B[2] := $87; // 879A : ∵
  B[3] := $9A;
  B[4] := $FA; // FA5B : ∵
  B[5] := $5B;
  B[6] := $00; // ヌル終端
  MecsStringOf(B, A);
  SetCodePage(A, DefaultAnsiCodePage, False); // デフォルトの ANSI コードページにする
  Dmy := '';
  for i:=1 to Length(A) do
    Dmy := Dmy + Format('0x%.2x ', [Byte(A[i])]);
  ShowMessage(Dmy)
end;

// Unicode 版 Delphi での例
// (SJIS.TXT は Shift-JIS のファイル)
var
  SL: TStringList;
  Enc: TEncoding;
begin
  SL := TstringList.Create;
  Enc := TEncoding.GetEncoding(932);
  try
    SL.LoadFromFile('C:\SJIS.TXT', Enc);
    ShowMessage(SL.Text);                                 // CP932 非互換文字へマッピングされる
    SL.Text := MecsMappingFix_CP932ToUnicode(SL.Text);
    ShowMessage(SL.Text);                                 // CP932 互換文字へマッピングされる
  finally
    Enc.Free;
    SL.Free;
  end;
end;

// Unicode 版 Delphi での例
// (JISX0208.TXT は JisCode のファイル)
var
  SL: TStringList;
  Enc: TEncoding;
begin
  SL := TstringList.Create;
  Enc := TEncoding.GetEncoding(50220);
  try
    SL.LoadFromFile('C:\JISX0208.TXT', Enc);
    ShowMessage(SL.Text);                                 // JIS X 0208 非互換文字へマッピングされる
    SL.Text := MECSMappingFix_JISX0208ToUnicode(SL.Text);
    ShowMessage(SL.Text);                                 // JIS X 0208 互換文字へマッピングされる
  finally
    Enc.Free;
    SL.Free;
  end;
end;

// Unicode 版 Delphi での例
var
  SL: TStringList;
  Enc: TEncoding;
  S: UnicodeString;
begin
  SL := TstringList.Create;
  Enc := TEncoding.GetEncoding(932);
  try
    S := #$2014#$203E#$525D#$5861#$9830#$20B9F;
    SL.Text := S;
    SL.SaveToFile('C:\UNICODE1.TXT', Enc);                // 文字化けする
    SL.Text := MecsMappingFix_UnicodeToCP932(S);
    SL.SaveToFile('C:\UNICODE2.TXT', Enc);                // 文字化けしない
  finally
    Enc.Free;
    SL.Free;
  end;
end;

// Unicode 版 Delphi での例
var
  SL: TStringList;
  Enc: TEncoding;
  S: UnicodeString;
begin
  SL := TstringList.Create;
  Enc := TEncoding.GetEncoding(50220);
  try
    S := #$2014#$203E#$2225#$FF0D#$FF5E#$FFE0#$FFE1#$FFE2#$525D#$5861#$9830#$20B9F;
    SL.Text := S;
    SL.SaveToFile('C:\UNICODE1.TXT', Enc);                // 文字化けする
    SL.Text := MECSMappingFix_UnicodeToJISX0208(S);
    SL.SaveToFile('C:\UNICODE2.TXT', Enc);                // 文字化けしない
  finally
    Enc.Free;
    SL.Free;
  end;
end;

// Unicode 版 Delphi での例
type
  SJISString = type AnsiString(932);
var
  A: SJISString;
  Idx: Integer;
begin
  A := 'ABあいうCD';

  // CharLength の引数 Index は文字インデックスではなくエレメントインデックス
  Idx := CharLength(A, 3);     // 2
  ShowMessage(IntToStr(Idx));
  Idx := CharLength(A, 4);     // 1
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharLength(A, 3); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharLength(A, 4); // 2
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通の例
var
  A: AnsiString;
  Idx: Integer;
begin
  A := 'ABあいうCD';

  // CharLength の引数 Index は文字インデックスではなくエレメントインデックス
  Idx := CharLength(A, 3);          // 2
  ShowMessage(IntToStr(Idx));
  Idx := CharLength(A, 4);          // 1
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharLength(A, 3, 932); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharLength(A, 4, 932); // 2
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  U := 'AB' + #$20BB7 + '野屋CD';

  // CharLength の引数 Index は文字インデックスではなくエレメントインデックス
  Idx := CharLength(U, 3);     // 4 (エレメント単位ではなくバイト単位)
  ShowMessage(IntToStr(Idx));
  Idx := CharLength(U, 4);     // 2 (エレメント単位ではなくバイト単位)
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharLength(U, 3); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharLength(U, 4); // 1
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通の例
var
  W: WideString;
  Idx: Integer;
begin
  W := 'AB' + #$D842#$DFB7  + '野屋CD';

  Idx := MecsCharLength(W, 3); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharLength(W, 4); // 1
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
begin
  U8 := 'AB' + #$20BB7 + '野屋CD';

  // CharLength の引数 Index は文字インデックスではなくエレメントインデックス
  Idx := AnsiStrings.CharLength(U8, 3); // 1 (NG)
  ShowMessage(IntToStr(Idx));
  Idx := AnsiStrings.CharLength(U8, 4); // 1 (NG)
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharLength(U8, 3);         // 4
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharLength(U8, 4);         // 3
  ShowMessage(IntToStr(Idx));
end;

// ANSI 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
begin
  U8 := 'AB' + #$20BB7 + '野屋CD';

  // CharLength の引数 Index は文字インデックスではなくエレメントインデックス
  Idx := CharLength(U8, 3);     // 1 (NG)
  ShowMessage(IntToStr(Idx));
  Idx := CharLength(U8, 4);     // 1 (NG)
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharLength(U8, 3); // 4
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharLength(U8, 4); // 3
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  U := 'AB' + #$20BB7 + '野屋CD';

  // CharLength の引数 Index は文字インデックスではなくエレメントインデックス
  Idx := CharLength(U, 3) div StringElementSize(U); // 2 (エレメント単位)
  ShowMessage(IntToStr(Idx));
  Idx := CharLength(U, 4) div StringElementSize(U); // 1 (エレメント単位)
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  U := 'AB' + #$20BB7 + '野屋CD';

  Idx := MecsCharLength(U, 3) * StringElementSize(U); // 4 (バイト単位)
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharLength(U, 4) * StringElementSize(U); // 2 (バイト単位)
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
type
  SJISString = type AnsiString(932);
var
  A: SJISString;
  Idx: Integer;
begin
  A := 'ABあいうCD';

  Idx := CharToElementIndex(A, 3);     // 3
  ShowMessage(IntToStr(Idx));
  Idx := CharToElementIndex(A, 4);     // 5
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharToElementIndex(A, 3); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharToElementIndex(A, 4); // 5
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通の例
var
  A: AnsiString;
  Idx: Integer;
begin
  A := 'ABあいうCD';

  Idx := CharToByteIndex(A, 3);             // 3
  ShowMessage(IntToStr(Idx));
  Idx := CharToByteIndex(A, 4);             // 5
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharToElementIndex(A, 3, 932); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharToElementIndex(A, 4, 932); // 5
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  U := 'AB' + #$20BB7 + '野屋CD';

  Idx := CharToElementIndex(U, 3);     // 3
  ShowMessage(IntToStr(Idx));
  Idx := CharToElementIndex(U, 4);     // 5
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharToElementIndex(U, 3); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharToElementIndex(U, 4); // 5
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通の例
var
  W: WideString;
  Idx: Integer;
begin
  W := 'AB' + #$D842#$DFB7  + '野屋CD';

  {$IFDEF UNICODE}
  Idx := CharToElementIndex(W, 3);     // 3
  ShowMessage(IntToStr(Idx));
  Idx := CharToElementIndex(W, 4);     // 5
  ShowMessage(IntToStr(Idx));
  {$ELSE}
  // ANSI 版 Delphi の CharToByteIndex() に WideString 版はない
  // ANSI 版 Delphi に CharToElementIndex() はない
  {$ENDIF}

  Idx := MecsCharToElementIndex(W, 3); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharToElementIndex(W, 4); // 5
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
begin
  U8 := 'AB' + #$20BB7 + '野屋CD';

  Idx := CharToElementIndex(U8, 3);     // 3
  ShowMessage(IntToStr(Idx));
  Idx := CharToElementIndex(U8, 4);     // 4 (NG)
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharToElementIndex(U8, 3); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharToElementIndex(U8, 4); // 7
  ShowMessage(IntToStr(Idx));
end;

// ANSI 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
begin
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';

  Idx := CharToByteIndex(U8, 3);                 // 3
  ShowMessage(IntToStr(Idx));
  Idx := CharToByteIndex(U8, 4);                 // 5 (NG)
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharToElementIndex(U8, 3, CP_UTF8); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharToElementIndex(U8, 4, CP_UTF8); // 7
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
type
  SJISString = type AnsiString(932);
var
  A: SJISString;
  Idx: Integer;
begin
  A := 'ABあいうCD';

  Idx := CharToElementLen(A, 3);     // 4
  ShowMessage(IntToStr(Idx));
  Idx := CharToElementLen(A, 4);     // 6
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharToElementLen(A, 3); // 4
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharToElementLen(A, 4); // 6
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通の例
var
  A: AnsiString;
  Idx: Integer;
begin
  A := 'ABあいうCD';

  Idx := CharToByteLen(A, 3);             // 4
  ShowMessage(IntToStr(Idx));
  Idx := CharToByteLen(A, 4);             // 6
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharToElementLen(A, 3, 932); // 4
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharToElementLen(A, 4, 932); // 6
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  U := 'AB' + #$20BB7 + '野屋CD';

  Idx := CharToElementLen(U, 3);     // 4
  ShowMessage(IntToStr(Idx));
  Idx := CharToElementLen(U, 4);     // 5
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharToElementLen(U, 3); // 4
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharToElementLen(U, 4); // 5
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通の例
var
  W: WideString;
  Idx: Integer;
begin
  W := 'AB' + #$D842#$DFB7  + '野屋CD';

  {$IFDEF UNICODE}
  Idx := CharToElementLen(W, 3);     // 4
  ShowMessage(IntToStr(Idx));
  Idx := CharToElementLen(W, 4);     // 5
  ShowMessage(IntToStr(Idx));
  {$ELSE}
  // ANSI 版 Delphi の CharToByteLen() に WideString 版はない
  // ANSI 版 Delphi に CharToElementLen() はない
  {$ENDIF}

  Idx := MecsCharToElementLen(W, 3); // 4
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharToElementLen(W, 4); // 5
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
begin
  U8 := 'AB' + #$20BB7 + '野屋CD';

  Idx := CharToElementLen(U8, 3);     // 3 (NG)
  ShowMessage(IntToStr(Idx));
  Idx := CharToElementLen(U8, 4);     // 4 (NG)
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharToElementLen(U8, 3); // 6
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharToElementLen(U8, 4); // 9
  ShowMessage(IntToStr(Idx));
end;

// ANSI 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
begin
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';

  Idx := CharToByteLen(U8, 3);                 // 4 (NG)
  ShowMessage(IntToStr(Idx));
  Idx := CharToByteLen(U8, 4);                 // 5 (NG)
  ShowMessage(IntToStr(Idx));

  Idx := MecsCharToElementLen(U8, 3, CP_UTF8); // 6
  ShowMessage(IntToStr(Idx));
  Idx := MecsCharToElementLen(U8, 4, CP_UTF8); // 9
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
type
  SJISString = type AnsiString(932);
var
  A: SJISString;
  Idx: Integer;
begin
  A := 'ABあいうCD';

  Idx := ElementToCharIndex(A, 3);     // 3
  ShowMessage(IntToStr(Idx));
  Idx := ElementToCharIndex(A, 6);     // 4
  ShowMessage(IntToStr(Idx));

  Idx := MecsElementToCharIndex(A, 3); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCharIndex(A, 6); // 4
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通の例
var
  A: AnsiString;
  Idx: Integer;
begin
  A := 'ABあいうCD';

  Idx := ByteToCharIndex(A, 3);             // 3
  ShowMessage(IntToStr(Idx));
  Idx := ByteToCharIndex(A, 6);             // 4
  ShowMessage(IntToStr(Idx));

  Idx := MecsElementToCharIndex(A, 3, 932); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCharIndex(A, 6, 932); // 4
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  U := 'AB' + #$20BB7 + '野屋CD';

  Idx := ElementToCharIndex(U, 4);     // 3
  ShowMessage(IntToStr(Idx));
  Idx := ElementToCharIndex(U, 5);     // 4
  ShowMessage(IntToStr(Idx));

  Idx := MecsElementToCharIndex(U, 4); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCharIndex(U, 5); // 4
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通の例
var
  W: WideString;
  Idx: Integer;
begin
  W := 'AB' + #$D842#$DFB7  + '野屋CD';

  {$IFDEF UNICODE}
  Idx := ElementToCharIndex(W, 4);     // 3
  ShowMessage(IntToStr(Idx));
  Idx := ElementToCharIndex(W, 5);     // 5
  ShowMessage(IntToStr(Idx));
  {$ELSE}
  // ANSI 版 Delphi の ByteToCharIndex() に WideString 版はない
  // ANSI 版 Delphi に ElementToCharIndex() はない
  {$ENDIF}

  Idx := MecsElementToCharIndex(W, 4); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCharIndex(W, 5); // 5
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
begin
  U8 := 'AB' + #$20BB7 + '野屋CD';

  Idx := ElementToCharIndex(U8, 5);     // 5 (NG)
  ShowMessage(IntToStr(Idx));
  Idx := ElementToCharIndex(U8, 8);     // 6 (NG)
  ShowMessage(IntToStr(Idx));

  Idx := MecsElementToCharIndex(U8, 5); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCharIndex(U8, 8); // 4
  ShowMessage(IntToStr(Idx));
end;

// ANSI 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
begin
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';

  Idx := ByteToCharIndex(U8, 5);                 // 4 (NG)
  ShowMessage(IntToStr(Idx));
  Idx := ByteToCharIndex(U8, 8);                 // 6 (NG)
  ShowMessage(IntToStr(Idx));

  Idx := MecsElementToCharIndex(U8, 5, CP_UTF8); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCharIndex(U8, 8, CP_UTF8); // 4
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
type
  SJISString = type AnsiString(932);
var
  A: SJISString;
  Idx: Integer;
begin
  A := 'ABあいうCD';

  Idx := ElementToCharLen(A, 3);     // 3
  ShowMessage(IntToStr(Idx));
  Idx := ElementToCharLen(A, 6);     // 4
  ShowMessage(IntToStr(Idx));

  Idx := MecsElementToCharLen(A, 3); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCharLen(A, 6); // 4
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通の例
var
  A: AnsiString;
  Idx: Integer;
begin
  A := 'ABあいうCD';

  Idx := ByteToCharLen(A, 3);             // 3
  ShowMessage(IntToStr(Idx));
  Idx := ByteToCharLen(A, 6);             // 4
  ShowMessage(IntToStr(Idx));

  Idx := MecsElementToCharLen(A, 3, 932); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCharLen(A, 6, 932); // 4
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  U := 'AB' + #$20BB7 + '野屋CD';

  Idx := ElementToCharLen(U, 4);     // 3
  ShowMessage(IntToStr(Idx));
  Idx := ElementToCharLen(U, 5);     // 4
  ShowMessage(IntToStr(Idx));

  Idx := MecsElementToCharLen(U, 4); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCharLen(U, 5); // 4
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通の例
var
  W: WideString;
  Idx: Integer;
begin
  W := 'AB' + #$D842#$DFB7  + '野屋CD';

  {$IFDEF UNICODE}
  Idx := ElementToCharLen(W, 4);     // 3
  ShowMessage(IntToStr(Idx));
  Idx := ElementToCharLen(W, 5);     // 5
  ShowMessage(IntToStr(Idx));
  {$ELSE}
  // ANSI 版 Delphi の ByteToCharLen() に WideString版はない
  // ANSI 版 Delphi に ElementToCharLen() はない
  {$ENDIF}

  Idx := MecsElementToCharLen(W, 4); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCharLen(W, 5); // 5
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
begin
  U8 := 'AB' + #$20BB7 + '野屋CD';

  Idx := ElementToCharLen(U8, 5);     // 5 (NG)
  ShowMessage(IntToStr(Idx));
  Idx := ElementToCharLen(U8, 8);     // 6 (NG)
  ShowMessage(IntToStr(Idx));

  Idx := MecsElementToCharLen(U8, 5); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCharLen(U8, 8); // 4
  ShowMessage(IntToStr(Idx));
end;

// ANSI 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
begin
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';

  Idx := ByteToCharLen(U8, 5);                 // 4 (NG)
  ShowMessage(IntToStr(Idx));
  Idx := ByteToCharLen(U8, 8);                 // 6 (NG)
  ShowMessage(IntToStr(Idx));

  Idx := MecsElementToCharLen(U8, 5, CP_UTF8); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCharLen(U8, 8, CP_UTF8); // 4
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
procedure TForm1.Button1Click(Sender: TObject);
var
  U: UnicodeString;
begin
  U := 'Aαあ' + #$20BB7;

  Memo1.Lines.Clear;
  Memo1.Font.Name    := 'ＭＳ ゴシック';
  Memo1.Font.Size    := 10;
  Memo1.Font.CharSet := SHIFTJIS_CHARSET;

  Memo2.Lines.Clear;
  Memo2.Font.Name    := 'Courier New';
  Memo2.Font.Size    := 10;
  Memo2.Font.CharSet := ANSI_CHARSET;

  Memo1.Lines.Add(StringOfChar('*', 10));
  Memo1.Lines.Add(StringOfChar(' ', 10 - Length(U)) + U);

  Memo2.Lines.Add(StringOfChar('*', 10));
  Memo2.Lines.Add(StringOfChar(' ', 10 - Length(U)) + U);
end;

// Unicode 版 Delphi での例
procedure TForm1.Button1Click(Sender: TObject);
var
  U: UnicodeString;
  i: Integer;
  Cnt: Integer;
begin
  U := 'Aαあ' + #$20BB7;

  Memo1.Lines.Clear;
  Memo1.Font.Name    := 'ＭＳ ゴシック';
  Memo1.Font.Size    := 10;
  Memo1.Font.CharSet := SHIFTJIS_CHARSET;

  Memo2.Lines.Clear;
  Memo2.Font.Name    := 'Courier New';
  Memo2.Font.Size    := 10;
  Memo2.Font.CharSet := ANSI_CHARSET;

  Memo1.Lines.Add(StringOfChar('*', 10));
  Cnt := 0;
  for i:=1 to MecsLength(U) do
    if MecsIsFullWidth(U, i, IsFarEastCharSet(Memo1.Font.CharSet)) then
      Inc(Cnt, 2)
    else
      Inc(Cnt, 1);
  Memo1.Lines.Add(StringOfChar(' ', 10 - Cnt) + U);

  Memo2.Lines.Add(StringOfChar('*', 10));
  Cnt := 0;
  for i:=1 to MecsLength(U) do
    if MecsIsFullWidth(U, i, IsFarEastCharSet(Memo2.Font.CharSet)) then
      Inc(Cnt, 2)
    else
      Inc(Cnt, 1);
  Memo2.Lines.Add(StringOfChar(' ', 10 - Cnt) + U);
end;

// Unicode 版 Delphi での例
type
  SJISString = type AnsiString(932);
var
  A: SJISString;
begin
  // LeftStr
  A := 'ABあいうCD';
  A := StrUtils.LeftStr(A, 3);
  ShowMessage(A);                       // AB?

  // LeftBStr                            
  A := 'ABあいうCD';
  A := StrUtils.LeftBStr(A, 3);
  ShowMessage(A);                       // AB?

  // AnsiLeftStr                         
  A := 'ABあいうCD';
  A := AnsiStrings.AnsiLeftStr(A, 3);
  ShowMessage(A);                       // ABあ

  // MecsLeftStr                         
  A := 'ABあいうCD';
  A := MecsLeftStr(A, 3);
  ShowMessage(A);                       // ABあ
end; 

// ANSI 版 Delphi での例
var
  A: AnsiString;
begin
  // LeftStr
  A := 'ABあいうCD';
  A := LeftStr(A, 3);
  ShowMessage(A);                // AB?

  // LeftBStr
  A := 'ABあいうCD';
  A := LeftBStr(A, 3);
  ShowMessage(A);                // AB?

  // AnsiLeftStr
  A := 'ABあいうCD';
  A := AnsiLeftStr(A, 3);
  ShowMessage(A);                // ABあ

  // MecsLeftStr
  A := 'ABあいうCD';
  A := MecsLeftStr(A, 3, 932);
  ShowMessage(A);                // ABあ
end;

// Unicode 版 Delphi での例
type
  SJISString = type AnsiString(932);
var
  A: SJISString;
  procedure ShowBinary(S: RawByteString);
  var
    i: Integer;
    Dmy: RawByteString;
  begin
    Dmy := #$0D#$0A;
    for i:=1 to Length(S) do
      begin
        Dmy := Dmy + AnsiStrings.Format('%.2x', [Ord(S[i])]);
        if i < Length(S) then
          Dmy := Dmy + ',';
      end;
    ShowMessage(S + Dmy);
  end;
begin
  // AnsiLeftStr
  A :=     'A';
  A := A + 'B';
  A := A + #$81#$E6;
  A := A + #$87#$9A;
  A := A + #$FA#$5B;
  A := A + 'C';
  A := A + 'D';
  A := StrUtils.AnsiLeftStr(A, 5);
  ShowBinary(A);                     // #$41 #$42 #$81#$E6 #$81#$E6 #$81#$E6 (NG)

  // MecsLeftStr
  A :=     'A';
  A := A + 'B';
  A := A + #$81#$E6;
  A := A + #$87#$9A;
  A := A + #$FA#$5B;
  A := A + 'C';
  A := A + 'D';
  A := MecsLeftStr(A, 5);
  ShowBinary(A);                     // #$41 #$42 #$81#$E6 #$87#$9A #$FA#$5B
end;

// ANSI 版 Delphi での例
var
  A: AnsiString;
  procedure ShowBinary(S: AnsiString);
  var
    i: Integer;
    Dmy: AnsiString;
  begin
    Dmy := #$0D#$0A;
    for i:=1 to Length(S) do
      begin
        Dmy := Dmy + Format('%.2x', [Ord(S[i])]);
        if i < Length(S) then
          Dmy := Dmy + ',';
      end;
    ShowMessage(S + Dmy);
  end;
begin
  // AnsiLeftStr
  A := 'AB' + #$81#$E6 + #$87#$9A + #$FA#$5B + 'CD';
  A := AnsiLeftStr(A, 5);
  ShowBinary(A);                     // #$41 #$42 #$81#$E6 #$81#$E6 #$81#$E6 (NG)

  // MecsLeftStr
  A := 'AB' + #$81#$E6 + #$87#$9A + #$FA#$5B + 'CD';
  A := MecsLeftStr(A, 5, 932);
  ShowBinary(A);                     // #$41 #$42 #$81#$E6 #$87#$9A #$FA#$5B #$43 #$44
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  // LeftStr
  U := 'AB' + #$20BB7 + '野屋CD';
  U := LeftStr(U, 5);            // AB𠮷野 (サロゲートペアが考慮されない)
  ShowMessage(U);


  // AnsiLeftStr
  U := 'AB' + #$20BB7 + '野屋CD';
  U := AnsiLeftStr(U, 5);        // AB𠮷野 (サロゲートペアが考慮されない)
  ShowMessage(U);

  // MecsLeftStr
  U := 'AB' + #$20BB7 + '野屋CD';
  U := MecsLeftStr(U, 5);        // AB𠮷野屋
  ShowMessage(U);
end;

// ANSI 版 Delphi での例
// (通常、ShowMessage ではサロゲートペアを表示できない)
var
  W: WideString;
  Idx: Integer;
begin
  // LeftStr
  W := 'AB' + #$D842#$DFB7 + '野屋CD';
  W := LeftStr(W, 5);             // AB𠮷野 (サロゲートペアが考慮されない)
  ShowMessage(W);


  // AnsiLeftStr
  W := 'AB' + #$D842#$DFB7 + '野屋CD';
  W := AnsiLeftStr(W, 5);        // AB𠮷野 (サロゲートペアが考慮されない)
  ShowMessage(W);

  // MecsLeftStr
  W := 'AB' + #$D842#$DFB7 + '野屋CD';
  W := MecsLeftStr(W, 5);        // AB𠮷野屋
  ShowMessage(W);
end;

// Unicode 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
  procedure ShowBinary(S: RawByteString);
  var
    i: Integer;
    Dmy: RawByteString;
  begin
    Dmy := #$0D#$0A;
    for i:=1 to Length(S) do
      begin
        Dmy := Dmy + AnsiStrings.Format('%.2x', [Ord(S[i])]);
        if i < Length(S) then
          Dmy := Dmy + ',';
      end;
    ShowMessage(S + Dmy);
  end;
begin
  // LeftStr
  U8 := 'AB' + #$20BB7 + '野屋CD';
  U8 := StrUtils.LeftStr(U8, 5);        // #$41#$42#$3F#$3F#$E3#$83#$BB (NG)     
  ShowBinary(U8);

  // AnsiLeftStr
  U8 := 'AB' + #$20BB7 + '野屋CD';
  U8 := AnsiStrings.AnsiLeftStr(U8, 5); // #$41#$42#$3F#$3F#$E9#$87#$8E (NG)   
  ShowBinary(U8);

  // MecsLeftStr
  U8 := 'AB' + #$20BB7 + '野屋CD';
  U8 := MecsLeftStr(U8, 5);             // #$41 #$42 #$F0#$A0#$AE#$B7 #$E9#$87#$8E #$E5#$B1#$8B
  ShowBinary(U8);
end;

// ANSI 版 Delphi での例
// (通常、ShowMessage ではサロゲートペアを表示できない)
var
  U8: UTF8String;
  Idx: Integer;
  procedure ShowBinary(S: AnsiString);
  var
    i: Integer;
    Dmy: AnsiString;
  begin
    Dmy := #$0D#$0A;
    for i:=1 to Length(S) do
      begin
        Dmy := Dmy + Format('%.2x', [Ord(S[i])]);
        if i < Length(S) then
          Dmy := Dmy + ',';
      end;
    ShowMessage(S + Dmy);
  end;
begin
  // LeftStr
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';
  U8 := LeftStr(U8, 5);              // #$41#$42#$F0#$A0#$AE (NG)
  ShowBinary(U8);

  // AnsiLeftStr
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';
  U8 := AnsiLeftStr(U8, 5);          // #$41#$42#$F0#$A0#$AE#$B7 (NG)
  ShowBinary(U8);

  // MecsLeftStr
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';
  U8 := MecsLeftStr(U8, 5, CP_UTF8); // #$41 #$42 #$F0#$A0#$AE#$B7 #$E9#$87#$8E #$E5#$B1#$8B
  ShowBinary(U8);
end;

// Unicode 版 Delphi での例
type
  SJISString = type AnsiString(932);
var
  A: SJISString;
begin
  // MidStr
  A := 'ABあいうCD';
  A := StrUtils.MidStr(A, 2, 3);
  ShowMessage(A);                       // Bあ

  // MidBStr                            
  A := 'ABあいうCD';                    
  A := StrUtils.MidBStr(A, 2, 3);       
  ShowMessage(A);                       // Bあ

  // AnsiMidStr                         
  A := 'ABあいうCD';                    
  A := AnsiStrings.AnsiMidStr(A, 2, 3); 
  ShowMessage(A);                       // Bあい

  // MecsMidStr                         
  A := 'ABあいうCD';                    
  A := MecsMidStr(A, 2, 3);             
  ShowMessage(A);                       // Bあい
end; 

// ANSI 版 Delphi での例
var
  A: AnsiString;
begin
  // MidStr
  A := 'ABあいうCD';
  A := MidStr(A, 2, 3);
  ShowMessage(A);                // Bあ

  // MidBStr
  A := 'ABあいうCD';
  A := MidBStr(A, 2, 3);
  ShowMessage(A);                // Bあ

  // AnsiMidStr
  A := 'ABあいうCD';
  A := AnsiMidStr(A, 2, 3);
  ShowMessage(A);                // Bあい

  // MecsMidStr
  A := 'ABあいうCD';
  A := MecsMidStr(A, 2, 3, 932);
  ShowMessage(A);                // Bあい
end;

// Unicode 版 Delphi での例
type
  SJISString = type AnsiString(932);
var
  A: SJISString;
  procedure ShowBinary(S: RawByteString);
  var
    i: Integer;
    Dmy: RawByteString;
  begin
    Dmy := #$0D#$0A;
    for i:=1 to Length(S) do
      begin
        Dmy := Dmy + AnsiStrings.Format('%.2x', [Ord(S[i])]);
        if i < Length(S) then
          Dmy := Dmy + ',';
      end;
    ShowMessage(S + Dmy);
  end;
begin
  // AnsiMidStr
  A :=     'A';
  A := A + 'B';
  A := A + #$81#$E6;
  A := A + #$87#$9A;
  A := A + #$FA#$5B;
  A := A + 'C';
  A := A + 'D';
  A := StrUtils.AnsiMidStr(A, 3, 3);
  ShowBinary(A);                     // #$81#$E6 #$81#$E6 #$81#$E6 (NG)

  // MecsMidStr
  A :=     'A';
  A := A + 'B';
  A := A + #$81#$E6;
  A := A + #$87#$9A;
  A := A + #$FA#$5B;
  A := A + 'C';
  A := A + 'D';
  A := MecsMidStr(A, 3, 3);
  ShowBinary(A);                     // #$81#$E6 #$87#$9A #$FA#$5B
end;

// ANSI 版 Delphi での例
var
  A: AnsiString;
  procedure ShowBinary(S: AnsiString);
  var
    i: Integer;
    Dmy: AnsiString;
  begin
    Dmy := #$0D#$0A;
    for i:=1 to Length(S) do
      begin
        Dmy := Dmy + Format('%.2x', [Ord(S[i])]);
        if i < Length(S) then
          Dmy := Dmy + ',';
      end;
    ShowMessage(S + Dmy);
  end;
begin
  // AnsiMidStr
  A := 'AB' + #$81#$E6 + #$87#$9A + #$FA#$5B + 'CD';
  A := AnsiMidStr(A, 3, 3);
  ShowBinary(A);                     // #$81#$E6 #$81#$E6 #$81#$E6 (NG)

  // MecsMidStr
  A := 'AB' + #$81#$E6 + #$87#$9A + #$FA#$5B + 'CD';
  A := MecsMidStr(A, 3, 3);
  ShowBinary(A);                     // #$81#$E6 #$87#$9A #$FA#$5B
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  // MidStr
  U := 'AB' + #$20BB7 + '野屋CD';
  U := MidStr(U, 3, 3);
  ShowMessage(U);                  // 𠮷野 (サロゲートペアが考慮されない)


  // AnsiMidStr
  U := 'AB' + #$20BB7 + '野屋CD';
  U := AnsiMidStr(U, 3, 3);        // 𠮷野 (サロゲートペアが考慮されない)
  ShowMessage(U);

  // MecsMidStr
  U := 'AB' + #$20BB7 + '野屋CD';
  U := MecsMidStr(U, 3, 3);
  ShowMessage(U);                  // 𠮷野屋
end;

// ANSI 版 Delphi での例
// (通常、ShowMessage ではサロゲートペアを表示できない)
var
  W: WideString;
  Idx: Integer;
begin
  // MidStr
  W := 'AB' + #$D842#$DFB7 + '野屋CD';
  W := MidStr(W, 3, 3);
  ShowMessage(W);                  // 𠮷野 (サロゲートペアが考慮されない)


  // AnsiMidStr
  W := 'AB' + #$D842#$DFB7 + '野屋CD';
  W := AnsiMidStr(W, 3, 3);        // 𠮷野 (サロゲートペアが考慮されない)
  ShowMessage(W);

  // MecsMidStr
  W := 'AB' + #$D842#$DFB7 + '野屋CD';
  W := MecsMidStr(W, 3, 3);
  ShowMessage(W);                  // 𠮷野屋
end;

// Unicode 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
  procedure ShowBinary(S: RawByteString);
  var
    i: Integer;
    Dmy: RawByteString;
  begin
    Dmy := #$0D#$0A;
    for i:=1 to Length(S) do
      begin
        Dmy := Dmy + AnsiStrings.Format('%.2x', [Ord(S[i])]);
        if i < Length(S) then
          Dmy := Dmy + ',';
      end;
    ShowMessage(S + Dmy);
  end;
begin
  // MidStr
  U8 := 'AB' + #$20BB7 + '野屋CD';
  U8 := StrUtils.MidStr(U8, 3, 3);        // #$3F#$3F#$E3#$83#$BB (NG)
  ShowBinary(U8);

  // AnsiMidStr
  U8 := 'AB' + #$20BB7 + '野屋CD';
  U8 := AnsiStrings.AnsiMidStr(U8, 3, 3); // #$3F#$3F#$E9#$87#$8E (NG)
  ShowBinary(U8);

  // MecsMidStr
  U8 := 'AB' + #$20BB7 + '野屋CD';
  U8 := MecsMidStr(U8, 3, 3);             // #$F0#$A0#$AE#$B7 #$E9#$87#$8E #$E5#$B1#$8B
  ShowBinary(U8);
end;

// ANSI 版 Delphi での例
// (通常、ShowMessage ではサロゲートペアを表示できない)
var
  U8: UTF8String;
  Idx: Integer;
  procedure ShowBinary(S: AnsiString);
  var
    i: Integer;
    Dmy: AnsiString;
  begin
    Dmy := #$0D#$0A;
    for i:=1 to Length(S) do
      begin
        Dmy := Dmy + Format('%.2x', [Ord(S[i])]);
        if i < Length(S) then
          Dmy := Dmy + ',';
      end;
    ShowMessage(S + Dmy);
  end;
begin
  // MidStr
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';
  U8 := MidStr(U8, 3, 3);              // #$F0#$A0#$AE (NG)
  ShowBinary(U8);

  // AnsiMidStr
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';
  U8 := AnsiMidStr(U8, 3, 3);          // #$F0#$A0#$AE#$B7 (NG)
  ShowBinary(U8);

  // MecsMidStr
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';
  U8 := MecsMidStr(U8, 3, 3, CP_UTF8); // #$F0#$A0#$AE#$B7 #$E9#$87#$8E #$E5#$B1#$8B
  ShowBinary(U8);
end;

// Unicode 版 Delphi での例
type
  SJISString = type AnsiString(932);
var
  A: SJISString;
begin
  // RightStr
  A := 'ABあいうCD';
  A := StrUtils.RightStr(A, 3);
  ShowMessage(A);                       // ?CD

  // RightBStr                            
  A := 'ABあいうCD';                    
  A := StrUtils.RightBStr(A, 3);       
  ShowMessage(A);                       // ?CD

  // AnsiRightStr                         
  A := 'ABあいうCD';                    
  A := AnsiStrings.AnsiRightStr(A, 3); 
  ShowMessage(A);                       // うCD

  // MecsRightStr                         
  A := 'ABあいうCD';                    
  A := MecsRightStr(A, 3);             
  ShowMessage(A);                       // うCD
end; 

// ANSI 版 Delphi での例
var
  A: AnsiString;
begin
  // RightStr
  A := 'ABあいうCD';
  A := RightStr(A, 3);
  ShowMessage(A);                // ?CD

  // RightBStr
  A := 'ABあいうCD';
  A := RightBStr(A, 3);
  ShowMessage(A);                // ?CD

  // AnsiRightStr
  A := 'ABあいうCD';
  A := AnsiRightStr(A, 3);
  ShowMessage(A);                // うCD

  // MecsRightStr
  A := 'ABあいうCD';
  A := MecsRightStr(A, 3, 932);
  ShowMessage(A);                // うCD
end;

// Unicode 版 Delphi での例
type
  SJISString = type AnsiString(932);
var
  A: SJISString;
  procedure ShowBinary(S: RawByteString);
  var
    i: Integer;
    Dmy: RawByteString;
  begin
    Dmy := #$0D#$0A;
    for i:=1 to Length(S) do
      begin
        Dmy := Dmy + AnsiStrings.Format('%.2x', [Ord(S[i])]);
        if i < Length(S) then
          Dmy := Dmy + ',';
      end;
    ShowMessage(S + Dmy);
  end;
begin
  // AnsiRightStr
  A :=     'A';
  A := A + 'B';
  A := A + #$81#$E6;
  A := A + #$87#$9A;
  A := A + #$FA#$5B;
  A := A + 'C';
  A := A + 'D';
  A := StrUtils.AnsiRightStr(A, 5);
  ShowBinary(A);                     // #$81#$E6 #$81#$E6 #$81#$E6 #$43 #$44 (NG)

  // MecsRightStr
  A :=     'A';
  A := A + 'B';
  A := A + #$81#$E6;
  A := A + #$87#$9A;
  A := A + #$FA#$5B;
  A := A + 'C';
  A := A + 'D';
  A := MecsRightStr(A, 5);
  ShowBinary(A);                     // #$81#$E6 #$87#$9A #$FA#$5B #$43 #$44
end;

// ANSI 版 Delphi での例
var
  A: AnsiString;
  procedure ShowBinary(S: AnsiString);
  var
    i: Integer;
    Dmy: AnsiString;
  begin
    Dmy := #$0D#$0A;
    for i:=1 to Length(S) do
      begin
        Dmy := Dmy + Format('%.2x', [Ord(S[i])]);
        if i < Length(S) then
          Dmy := Dmy + ',';
      end;
    ShowMessage(S + Dmy);
  end;
begin
  // AnsiRightStr
  A := 'AB' + #$81#$E6 + #$87#$9A + #$FA#$5B + 'CD';
  A := AnsiRightStr(A, 5);
  ShowBinary(A);                     // #$81#$E6 #$81#$E6 #$81#$E6 #$43 #$44 (NG)

  // MecsRightStr
  A := 'AB' + #$81#$E6 + #$87#$9A + #$FA#$5B + 'CD';
  A := MecsRightStr(A, 5, 932);
  ShowBinary(A);                     // #$81#$E6 #$87#$9A #$FA#$5B #$43 #$44
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  // RightStr
  U := 'AB' + #$20BB7 + '野屋CD';
  U := RightStr(U, 5);            // 野屋CD (サロゲートペアが考慮されない)
  ShowMessage(U);


  // AnsiRightStr
  U := 'AB' + #$20BB7 + '野屋CD';
  U := AnsiRightStr(U, 5);        // 野屋CD (サロゲートペアが考慮されない)
  ShowMessage(U);

  // MecsRightStr
  U := 'AB' + #$20BB7 + '野屋CD';
  U := MecsRightStr(U, 5);        // 𠮷野屋CD
  ShowMessage(U);
end;

// ANSI 版 Delphi での例
// (通常、ShowMessage ではサロゲートペアを表示できない)
var
  W: WideString;
  Idx: Integer;
begin
  // RightStr
  W := 'AB' + #$D842#$DFB7 + '野屋CD';
  W := RightStr(W, 5);
  ShowMessage(W);                  // ?野屋CD (サロゲートペアが考慮されない)


  // AnsiRightStr
  W := 'AB' + #$D842#$DFB7 + '野屋CD';
  W := AnsiRightStr(W, 5);        // ?野屋CD (サロゲートペアが考慮されない)
  ShowMessage(W);

  // MecsRightStr
  W := 'AB' + #$D842#$DFB7 + '野屋CD';
  W := MecsRightStr(W, 5);        // 𠮷野屋
  ShowMessage(W);
end;

// Unicode 版 Delphi での例
var
  U8: UTF8String;
  Idx: Integer;
  procedure ShowBinary(S: RawByteString);
  var
    i: Integer;
    Dmy: RawByteString;
  begin
    Dmy := #$0D#$0A;
    for i:=1 to Length(S) do
      begin
        Dmy := Dmy + AnsiStrings.Format('%.2x', [Ord(S[i])]);
        if i < Length(S) then
          Dmy := Dmy + ',';
      end;
    ShowMessage(S + Dmy);
  end;
begin
  // RightStr
  U8 := 'AB' + #$20BB7 + '野屋CD';
  U8 := StrUtils.RightStr(U8, 5);        // #$E3#$83#$BB#$EF#$BD#$AE#$43#$44 (NG)     
  ShowBinary(U8);

  // AnsiRightStr
  U8 := 'AB' + #$20BB7 + '野屋CD';
  U8 := AnsiStrings.AnsiRightStr(U8, 5); // #$3F#$E9#$87#$8E#$E5#$B1#$8B#$43#$44 (NG)   
  ShowBinary(U8);

  // MecsRightStr
  U8 := 'AB' + #$20BB7 + '野屋CD';
  U8 := MecsRightStr(U8, 5);             // #$F0#$A0#$AE#$B7 #$E9#$87#$8E #$E5#$B1#$8B #$43 #$44
  ShowBinary(U8);
end;

// ANSI 版 Delphi での例
// (通常、ShowMessage ではサロゲートペアを表示できない)
var
  U8: UTF8String;
  Idx: Integer;
  procedure ShowBinary(S: AnsiString);
  var
    i: Integer;
    Dmy: AnsiString;
  begin
    Dmy := #$0D#$0A;
    for i:=1 to Length(S) do
      begin
        Dmy := Dmy + Format('%.2x', [Ord(S[i])]);
        if i < Length(S) then
          Dmy := Dmy + ',';
      end;
    ShowMessage(S + Dmy);
  end;
begin
  // RightStr
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';
  U8 := RightStr(U8, 5);              // #$E5#$B1#$8B#$43#$44 (NG)
  ShowBinary(U8);

  // AnsiRightStr
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';
  U8 := AnsiRightStr(U8, 5);          // #$E9#$87#$8E#$E5#$B1#$8B#$43#$44 (NG)
  ShowBinary(U8);

  // MecsRightStr
  U8 := 'AB' + #$F0#$A0#$AE#$B7 + #$E9#$87#$8E + #$E5#$B1#$8B + 'CD';
  U8 := MecsRightStr(U8, 5, CP_UTF8); // #$F0#$A0#$AE#$B7 #$E9#$87#$8E #$E5#$B1#$8B #$43 #$44
  ShowBinary(U8);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := MecsStrConv(Edit1.Text, LCMAP_HIRAGANA);
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  U := 'AB' + #$20BB7 + '野屋' + #$304B#$3099 + 'CD';

  Idx := MecsCCSLength(U, 2); // 1
  ShowMessage(IntToStr(Idx));
  Idx := MecsCCSLength(U, 3); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsCCSLength(U, 6); // 2
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 Delphi 共通 の例
var
  W: WideString;
  Idx: Integer;
begin
  W := 'AB' + #$D842#$DFB7 + '野屋' + #$304B#$3099 + 'CD';

  Idx := MecsCCSLength(W, 2); // 1
  ShowMessage(IntToStr(Idx));
  Idx := MecsCCSLength(W, 3); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsCCSLength(W, 6); // 2
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  U := 'AB' + #$20BB7 + '野屋' + #$304B#$3099 + 'CD';

  Idx := MecsCCSToElementIndex(U, 2); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsCCSToElementIndex(U, 3); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsCCSToElementIndex(U, 6); // 7
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 Delphi 共通 の例
var
  W: WideString;
  Idx: Integer;
begin
  W := 'AB' + #$D842#$DFB7 + '野屋' + #$304B#$3099 + 'CD';

  Idx := MecsCCSToElementIndex(W, 2); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsCCSToElementIndex(W, 3); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsCCSToElementIndex(W, 6); // 7
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  U := 'AB' + #$20BB7 + '野屋' + #$304B#$3099 + 'CD';

  Idx := MecsCCSToElementLen(U, 2); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsCCSToElementLen(U, 4); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsCCSToElementLen(U, 8); // 7
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通 の例
var
  W: WideString;
  Idx: Integer;
begin
  W := 'AB' + #$D842#$DFB7 + '野屋' + #$304B#$3099 + 'CD';

  Idx := MecsCCSToElementLen(W, 2); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsCCSToElementLen(W, 4); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsCCSToElementLen(W, 8); // 7
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  U := 'AB' + #$20BB7 + '野屋' + #$304B#$3099 + 'CD';

  Idx := MecsElementToCCSIndex(U, 2); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCCSIndex(U, 4); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCCSIndex(U, 8); // 6
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通の例
var
  W: WideString;
  Idx: Integer;
begin
  W := 'AB' + #$D842#$DFB7 + '野屋' + #$304B#$3099 + 'CD';

  Idx := MecsElementToCCSIndex(W, 2); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCCSIndex(W, 4); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCCSIndex(W, 8); // 6
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  U := 'AB' + #$20BB7 + '野屋' + #$304B#$3099 + 'CD';

  Idx := MecsElementToCCSLen(U, 2); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCCSLen(U, 3); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCCSLen(U, 7); // 6
  ShowMessage(IntToStr(Idx));
end;

// ANSI / Unicode 版 共通の例
var
  W: WideString;
  Idx: Integer;
begin
  W := 'AB' + #$D842#$DFB7 + '野屋' + #$304B#$3099 + 'CD';

  Idx := MecsElementToCCSLen(W, 2); // 2
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCCSLen(W, 3); // 3
  ShowMessage(IntToStr(Idx));
  Idx := MecsElementToCCSLen(W, 7); // 6
  ShowMessage(IntToStr(Idx));
end;

// Unicode 版 Delphi での例
var
  U: UnicodeString;
  Idx: Integer;
begin
  // LeftStr
  U := 'AB' + #$20BB7 + '野屋' + #$304B#$3099 + 'CD';
  U := LeftStr(U, 6);
  ShowMessage(U);                 // AB𠮷野屋

  // MecsLeftStr
  U := 'AB' + #$20BB7 + '野屋' + #$304B#$3099 + 'CD';
  U := MecsLeftStr(U, 6);
  ShowMessage(U);                 // AB𠮷野屋か

  // MecsLeftStrC
  U := 'AB' + #$20BB7 + '野屋' + #$304B#$3099 + 'CD';
  U := MecsLeftStrC(U, 6);
  ShowMessage(U);                 // AB𠮷野屋が
end;

// ANSI / Unicode 版 共通の例
var
  W: WideString;
  Idx: Integer;
begin
  // LeftStr
  W := 'AB' + #$D842#$DFB7 + '野屋' + #$304B#$3099 + 'CD';
  W := LeftStr(W, 6);
  ShowMessage(W);                 // AB𠮷野屋

  // MecsLeftStr
  W := 'AB' + #$D842#$DFB7 + '野屋' + #$304B#$3099 + 'CD';
  W := MecsLeftStr(W, 6);
  ShowMessage(W);                 // AB𠮷野屋か

  // MecsLeftStrC
  W := 'AB' + #$D842#$DFB7 + '野屋' + #$304B#$3099 + 'CD';
  W := MecsLeftStrC(W, 6);
  ShowMessage(W);                 // AB𠮷野屋が
end;