TRegExprで半角カタカナにマッチ

2008.03.22

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;

お時間がありましたらこちらの記事もどうぞ