掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
全角文字を変数から一文字ずつ抽出するには？ (ID:35328)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自己レスです。 procedure TForm1.Button3Click(Sender: TObject); var s,s2:string; i:integer; begin s := edit3.Text; s2 := ''; for i := 1 to Length(s) do begin if (s[i] in LeadBytes) then begin if s[i] + s[i+1] = '０' then begin s2 := s2 + '0'; if (s[i+2] in LeadBytes) then begin //s2 := s2 +s[i+2]+s[i+3]; end else begin s2 := s2 + s[i+2]; end; end; if s[i] + s[i+1] = '１' then begin s2 := s2 + '1'; if (s[i+2] in LeadBytes) then begin //s2 := s2 +s[i+2]+s[i+3]; end else begin s2 := s2 + s[i+2]; end; end; //...省略 end; end; edit3.Text := s2; end; 全角→半角変換の試作も無事、出来ました。 あとはコピー＆ペーストしながら文字を登録して、出来たら移植用に仕上げるだけです。 ほぼ全部何とかなりました。 ありがとうございましたｍ（＿＿）ｍ。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.