モナーの *やさしい* Delphi質問スレ Ver3
■ このスレッドは過去ログ倉庫に格納されています
0499名無しヘタぐらま ◆B18Bks.Y
NGNG全角文字を含む文字列の中の文字の場合，
ByteType関数などを使ってチェックしないといけないです．
例：文字列sの中の半角英数すべてを"#"に痴漢．
for i := 1 to Length(s) do
if (s[i] in ['A'..'Z', 'a'..'z', '0'..'9']) and (ByteType(s, i) = mbSingleByte) then
s[i] := '#';
■ このスレッドは過去ログ倉庫に格納されています