Delphiの関数で、文字列に全角が含まれているか判別できる関数

E 2006-01-20 00:14:43 No: 19780

Delphiの関数で、
文字列に全角が含まれているか判別できる関数を教えてください。

＜イメージ＞
xxxxxx(abＣd) 戻り値 0：「全角有」
xxxxxx(abcd) 戻り値 1：「全角無」
※xxxxxx：関数名

関数を作るとしたら、下記のLeadBytesを使うとできそうなんですが、
Delphiの関数があるのであれば、Delphiの関数を使いたいので質問しました。

横ヤリ 2006-01-20 01:20:17 No: 19781

> 文字列に全角が含まれているか判別できる関数を教えてください。
ない・・・はず。

これでいいのか？
function IncludeDByteText(aText: AnsiString): Boolean;
begin
Result := Length(WideString(aText)) <> Length(aText);
end;

HOta 2006-01-21 07:30:12 No: 19782

そうですね。LeadBytesで検査していきます。