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

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;
Delphi
スポンサーリンク
あとで読むときはポチッ!▼
WorkToolSmith [ワークツールスミス]