implementation

uses
  MECSUtils;

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//  テスト用の文字列をセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := #$D842#$DFB7 + '野屋吉';
end;

//=============================================================================
//  サロゲートペアを含む文字列のテスト
//  MecsIsLeadElement,MecsIsTrailElement 関数を使用してサロゲートペアを検出 
//
//  このコードの実行には uses に MECSUtils が必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LString  : string;
  LChar    : Char;
  LCharStr : string;
  LStrCnt  : Integer;
  LIndex   : Integer;
begin
  Memo1.Lines.Clear;

  LString := Edit1.Text;
  LStrCnt := 0;

  for LIndex := 1 to Length(LString) do begin
    LChar := LString[LIndex];
    if MecsIsLeadElement(LChar) then begin
      SetLength(LCharStr, 2);
      Move(LString[LIndex], LCharStr[1], SizeOf(Char) * 2);
      Memo1.Lines.Add(LCharStr);
      Memo1.Lines.Add('High Surrogate');
    end else
    if MecsIsTrailElement(LChar) then begin
      Memo1.Lines.Add('Low Surrogate');

      Inc(LStrCnt);
    end else begin
      Memo1.Lines.Add(LChar);
      Memo1.Lines.Add('Non Surrogate');

      Inc(LStrCnt);
    end;
  end;

  Memo1.Lines.Add('');
  Memo1.Lines.Add('エレメント : ' + IntToStr(Length(LString)));
  Memo1.Lines.Add('文字数 : ' + IntToStr(LStrCnt));
end;

//=============================================================================
//  Unicode (UTF-32) の文字符号の値ををサロゲートペアに分解
//  String 型 (UTF-16) の変数に代入すれば自動的に分解してくれる
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LString : string;
  LCode   : Integer;
  LIndex  : Integer;
begin
  Memo1.Lines.Clear;

  LCode := $20BB7;
  Memo1.Lines.Add('$' + IntToHex(LCode, 8) + '  U+' + intToHex(LCode, 5));

  LString    := #$20BB7;
  Edit1.Text := LString;

  for LIndex := 1 to Length(LString) do begin
    LCode := Ord(LString[LIndex]);
    Memo1.Lines.Add('$' + IntToHex(LCode, 4));
  end;
end;

implementation

uses
  MECSUtils;

{$R *.dfm}

//=============================================================================
//  コードポイントから文字を取得
//  MECSUtils の CodePointToUTF16 関数を使用する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LBase : Integer;
  LRow  : Integer;
  LCol  : Integer;
  LCode : Integer;
  LText : string;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;

  LBase := $2A60;
  for LRow := LBase to LBase + $F do begin
    for LCol := 0 to $F do begin
      LCode := (LRow shl 4) + LCol;

      LText := '$' + IntToHex(LCode, 5) + '  ' + CodePointToUTF16(LCode);
      Memo1.Lines.Add(Ltext);
    end;
  end;

  Memo1.Lines.EndUpdate;
end;

implementation

uses
  MECSUtils;

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//  テスト用の文字列をセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  // $0075 は単なるアルファベットの u
  Edit1.Text := #$01D6
              + #$00FC#$0304
              + #$0075#$0308#$0304 + 'ABC';
end;

//=============================================================================
//  結合文字の判定テスト
//  このコードの実行には uses に MECSUtils が必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LString    : string;
  LCode      : Integer;
  LStrCnt    : Integer;
  LStrIndex  : Integer;
  LNextIndex : Integer;
  LEachStr   : string;
  LIndex     : Integer;
begin
  LString := Edit1.Text;

  Memo1.Lines.Clear;

  LStrCnt := 0;
  for LIndex := 1 to Length(LString) do begin
    // LIndex 番目のエレメントのコードポイントの値を取得
    LCode := Ord(LString[LIndex]);

    if MecsCombiningType(LCode) = ctBase then begin
      // 文字のインデックスと次の文字のエレメントインデックスを取得
      LStrIndex := MecsElementToCCSIndex(LString, LIndex);
      LNextIndex := MecsNextCCSIndex(LString, LIndex);

      // 現在のエレメントインデックス位置の文字を取得
      SetLength(LEachStr, LNextIndex - LIndex);
      Move(LString[LIndex], LEachStr[1], SizeOf(Char) * (LNextIndex - LIndex));

      // 文字を表示
      Memo1.Lines.Add(IntToStr(LStrIndex) + ' 番目の文字 : ' + LEachStr);

      // 文字数をインクリメント
      Inc(LStrCnt);
    end else begin
      // 結合文字の 2 番目以降のエレメントの場合
      // 本サンプルの場合は具体的な文字なので表示可能
    end;
  end;

  Memo1.Lines.Add('');
  Memo1.Lines.Add('エレメント : ' + IntToStr(Length(LString)));
  Memo1.Lines.Add('文字数 : ' + IntToStr(LStrCnt));
end;

//=============================================================================
//  フォーム生成時の処理
// テスト用の文字をTEditにセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Font.Name := 'メイリオ';
  Edit2.Font.Name := 'メイリオ';
  Edit3.Font.Name := 'メイリオ';
  Edit1.Font.Size := 30;
  Edit2.Font.Size := 30;
  Edit3.Font.Size := 30;

  // 東京都葛飾区の「葛」の異体字
  // 基底文字のコードポイントは U+845B
  // 実際にはもっとある
  Edit1.Text := #$845B#$E0100
              + #$845B#$E0101;

  // ワタナベの「邉」の異体字
  // 基底文字のコードポイントは U+9089
  // 実際にはもっとある
  Edit2.Text := #$9089#$E0100
              + #$9089#$E0101
              + #$9089#$E0102
              + #$9089#$E0103;

  // ワタナベの「邊」の異体字
  // 基底文字のコードポイントは U+908A
  // 実際にはもっとある
  Edit3.Text := #$908A#$E0100
              + #$908A#$E0101
              + #$908A#$E0102
              + #$908A#$E0103;
end;

//=============================================================================
//  フォントを変更してみる
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Font.Name := 'ＭＳ Ｐ明朝';
  Edit2.Font.Name := 'ＭＳ Ｐ明朝';
  Edit3.Font.Name := 'ＭＳ Ｐ明朝';
  Edit1.Font.Size := 34;
  Edit2.Font.Size := 34;
  Edit3.Font.Size := 34;
end;

//=============================================================================
//  フォーム生成時の処理
//  テスト用の文字列をセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := #$845B#$E0100 + 'AB'
              + #$4FAE#$FE01
              + #$9089#$E0101;
end;

//=============================================================================
//  異体字セレクタを使用している文字かを調べるテスト
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LString   : string;
  LLen      : Integer;
  LCodeHigh : Cardinal;
  LCodeLow  : Cardinal;
  LStrCnt   : Integer;
  LIndex    : Integer;
begin
  Memo1.Lines.Clear;

  LString := Edit1.Text;
  LLen    := Length(LString);

  LIndex  := 1;
  LStrCnt := 0;
  while LIndex <= LLen do begin
    LCodeHigh := 0;
    LCodeLow  := 0;
    if LLen >= (LIndex + 1) then begin
      LCodeHigh := Ord(LString[LIndex + 1]);
    end;
    if LLen >= (LIndex + 2) then begin
      LCodeLow  := Ord(LString[LIndex + 2]);
    end;

    if (LCodeHigh >= $180B) and (LCodeHigh <= $180D) then begin
      Memo1.Lines.Add('use Variation Selector');
      Memo1.Lines.Add('$' + IntToHex(LCodeHigh, 4));

      Inc(LIndex);
    end else
    if (LCodeHigh >= $FE00) and (LCodeHigh <= $FE0F) then begin
      Memo1.Lines.Add('use Variation Selector');
      Memo1.Lines.Add('$' + IntToHex(LCodeHigh, 4));

      Inc(LIndex);
    end else
    // サロゲートペアかの判定
    if (LCodeHigh = $DB40)
        and (LCodeLow >= $DB00) and (LCodeLow <= $DDEF) then begin
      Memo1.Lines.Add('use Variation Selector');
      Memo1.Lines.Add('$' + IntToHex(LCodeHigh, 4) + '   High');
      Memo1.Lines.Add('$' + IntToHex(LCodeLow, 4)  + '   Low');

      Inc(LIndex, 2);
    end else begin
      // 異体字セレクタを使用していない文字の場合
      Memo1.Lines.Add('Other');
    end;

    Inc(LIndex);
    Inc(LStrCnt)
  end;

  Memo1.Lines.Add('');
  Memo1.Lines.Add('エレメント : ' + IntToStr(LLen));
  Memo1.Lines.Add('文字数 : ' + IntToStr(LStrCnt));
end;

implementation  

uses
  MECSUtils;

{$R *.dfm}

//=============================================================================
//  邉 の異体字を列挙
//
//  フォントが IPAmj明朝 の場合は，異体字セレクタとして
//  漢字異体字データベースの Moji_Joho collection の値を使用する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LLastPt : Integer;
  LText   : string;
  LIndex  : Integer;
  LColCnt : Integer;
begin
  Memo1.Lines.Clear;

  Memo1.Font.Name := 'IPAmj明朝';
  Memo1.Font.Size := 36;

  LColCnt := 0;
  LText   := '';
  LLastPt := $E011F;
  for LIndex := $E010F to LLastPt do begin
    LText := LText + Char($9089) + CodePointToUTF16(LIndex) + '   ';
    Inc(LColCnt);

    if (LColCnt = 4) or (LIndex = LLastPt) then begin
      Memo1.Lines.Add(Trim(LText));
      LColCnt := 0;
      LText   := '';
    end;
  end;
end;

//=============================================================================
//  邉 の異体字を列挙
//
//  フォントが Yu Gothic UI, 游ゴシック, 游明朝 の場合は，異体字セレクタとして
//  漢字異体字データベースの Adobe-Japan1 collection の値を使用する
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LLastPt : Integer;
  LText   : string;
  LIndex  : Integer;
  LColCnt : Integer;
begin
  Memo1.Lines.Clear;

  Memo1.Font.Name := 'Yu Gothic UI';
  Memo1.Font.Size := 36;

  LColCnt := 0;
  LText   := '';
  LLastPt := $E010E;
  for LIndex := $E0100 to LLastPt do begin
    LText := LText + Char($9089) + CodePointToUTF16(LIndex) + '   ';
    Inc(LColCnt);

    if (LColCnt = 4) or (LIndex = LLastPt) then begin
      Memo1.Lines.Add(Trim(LText));
      LColCnt := 0;
      LText   := '';
    end;
  end;
end;

implementation  

uses
  MECSUtils;

{$R *.dfm}

//=============================================================================
//  邉 の異体字を列挙
//
//  フォントが 源ノ角ゴシック の場合は，異体字セレクタとして
//  漢字異体字データベースの Adobe-Japan1 collection の値を使用する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LLastPt : Integer;
  LText   : string;
  LIndex  : Integer;
  LColCnt : Integer;
begin
  Memo1.Lines.Clear;

  Memo1.Font.Name := '源ノ角ゴシック';
  Memo1.Font.Size := 36;

  LColCnt := 0;
  LText   := '';
  LLastPt := $E010E;
  for LIndex := $E0100 to LLastPt do begin
    LText := LText + Char($9089) + CodePointToUTF16(LIndex) + '   ';
    Inc(LColCnt);

    if (LColCnt = 4) or (LIndex = LLastPt) then begin
      Memo1.Lines.Add(Trim(LText));
      LColCnt := 0;
      LText   := '';
    end;
  end;
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 Wide}
    FTestText   : string;
    FSearchText : string;
    FSelStart   : Integer;
  end;

var
  Form1: TForm1;

implementation

uses
  MECSUtils,
  System.StrUtils;

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
// テスト用の文字列をTEditにセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  FTestText  := '同じ文字と同' + #$3057#$3099 +'文字の検索';
  Edit1.Text := FTestText;

  FSearchText := '同じ文字';
  FSelStart := 1;
  Edit1.AutoSelect := False;
end;

//=============================================================================
//  検索文字列を現在エレメントの位置から検索(逐次検索となる)
//  検索した文字列をハイライト表示
//
//  このコードの実行には uses に System.StrUtils が必要
//=============================================================================
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  LIndex : Integer;
begin
  Edit1.SetFocus;

  LIndex := PosEx(FSearchText, Edit1.Text, FSelStart);
  if LIndex >= 1 then begin
    Edit1.SelStart  := LIndex - 1;
    Edit1.SelLength := Length(FSearchText);
    FSelStart := LIndex + Length(FSearchText);
  end else begin
    MessageBox(Handle, '検索が終了しました．', '終了', MB_ICONINFORMATION);
    FSelStart := 1;
  end;
end;

//=============================================================================
//  ユニコードの正規化
//  このコードの実行には uses に MECSUtils が必要
//=============================================================================
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  LTempStr : WideString;
begin
  LTempStr := FTestText;
  MECSUtils.MecsNormalize(FTestText, LTempStr, NormalizationC);
  Edit1.Text := LTempStr;
end;

end.