掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphi5での全角文字の処理について (ID:45366)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
type TZS2 = string[2]; //(#1) TZS2 = array[1..2] of Char; //(#2) RZMax = 110; RZenMap: array[1..RZMax] of TZS2 = (' ', '。', '”', '゛', '゜', '´', '（', '）', '〔', '〕', // 1 '［', '］', '｛', '｝', '【', '】', '《', '》', '「', '」', // 2 ・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・ '◎', '○', '●', '☆', '★', '⊿', '∮', '§', '£', '∑'); //11 function CheckZenMap(const S: TZS2): Boolean; var i: Integer; begin Result := False; i := 1; repeat if RZenMap[i] = S then Result := True; Inc(i); until (i > RZMax) or Result; end; S[j]、S[j+1] には漢字の ShiftJis 第1,第2コードが入っている zs[1] := S[j]; zs[2] := S[j+1]; if CheckZenMap(zs) then (#1)のときzs[2]にゴミのコードが入るときがあります。 (#1)と(#2)では何が違うのでしょうか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.