<TRegEx & TMatch>正規表現

正規表現の使い方をまとめました
関数化してサンプルソースを書いてみました

ユニットファイル

uses
    System.RegularExpressions ;

宣言

function IsMatch(SMatch: String; line: String): String;

関数内容

function TFMain.IsMatch(SMatch: string; line: string): string;
var
  regex: TRegEx;
  match: TMatch;
begin
  regex := TRegEx.Create(SMatch);
  match := regex.match(line);
  if match.Success then
    Result := 'Match'
  else
    Result := 'NoMatch';
end;

使い方

Edit1.Text := IsMatch("正規表現", "対象文字列");