掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphi5での全角文字の処理について (ID：45368)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
回答ありがとうございます。今のところ array[1..2] of Char; では不具合は起きていません。 TZS2 = string[2]; ではアプリを立ち上げた直後不具合が起こるときと、起きないときがあります。 > 予約語stringはメモリを確保するだけで初期化はしてくれないみたいです。 ということであれば string でも適当な文字を放り込んで初期化すればいいと思い、一応下のようにしたら、不具合は起きませんでした。もうしばらく様子を見たいと思います。 var j,L: Intger; S: string; zs: TZS2; begin zs[1] := 'a'; zs[2] := 'b'; //適当な文字で初期化 j := 1; L := Length(S); repeat if S[j] in [#$81..#$9F, #$E0..#$FC] then begin zs[1] := S[j]; zs[2] := S[j+1]; if CheckZenMap(zs) then ・・・・・・・・・・・・・・・・ end; until j > L;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.