この発言は
#00026　Fermion         さんの[D3]半角全角混合の文字位置
に対するコメントです






ByteToCharIndex関数で全角半角混在の文字位置が取得でき
ByteToCharLen関数で全角半角混在の文字数が取得できます。
Fermion さんのサンプルを当該関数を使用した形に書き換えてみました。

■サンプルコード
//=====================================================================
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  with Edit1 do
    begin
      Label1.Caption
        := Format( 'SelStart: %d / SelLength: %d',
                  [ ByteToCharIndex( Text, SelStart ),
                    ByteToCharLen( SelText, SelLength )]);
    end;
end;
//=====================================================================

                                     JBC01362  アトリエ まっちゃん

Original document by Atelier Macchan 氏 ID:(JBC01362)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。