Delphiの正規表現ユニットTRegExprで、半角カタカナにマッチさせる
procedure TForm1.Button1Click(Sender: TObject);
var
r: TRegExpr;
begin
r := TRegExpr.create;
r.Expression := '[ｱ-ﾝﾞﾟ]';
if r.exec(Edit1.text) then
ShowMessage('OK')
else
ShowMessage('No');
r.Free;
end;
