Delphi FAQ: 文字列をバイト単位ではなく、文字単位で１文字ずつ取出す。

１５番会議室「ＦＡＱ編纂委員会」に寄せられた「よくある質問の答え」

[Ｑ]
DelphiのCopy関数などは文字列をバイト単位で切り出しますが、これを１バイト・２バイトの区別無く、文字単位で取り扱いたい。

[Ａ]

 WideString型を使うと、簡単に行えます。
 実はStringとWideStringは互換性があり、「例」にあるように
相互に代入出来ます。
 WideStringは総ての文字を内部では２バイトとして扱うので、
半角・全角の区別無く"文字"単位で文字列を取り扱えます。

[例]

 Formの上にEdit、Button、ListBoxを１つずつ置き、Buttonの
OnClickイベントに下記のコードを記述します。

var
  WS : WideString;
  i : Integer;
Begin
  ListBox1.Items.Clear;
  WS := Edit1.Text;
  For i := 1 To Length(WS) Do
   ListBox1.Items.Add(Copy(WS, i, 1));
End;

これで、Edit1に１バイトと２バイト文字を混在して入力し、
Buttonをクリックすると、1"文字"ずつListBoxに追加されます。

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。　したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。