regex 를 사용하여 매칭되는지 true false 로 리턴

program RegexMatchExample;


uses
  RegExpr;


function IsMatch(const InputText, Pattern: string): Boolean;
var
  Regex: TRegExpr;
begin
  Regex := TRegExpr.Create;
  try
    Regex.Expression := Pattern;
    Result := Regex.Exec(InputText);
  finally
    Regex.Free;
  end;
end;


var
  InputText: string;
  Pattern: string;
  Matched: Boolean;


begin
  InputText := '이것은 예제 텍스트입니다.';
  Pattern := '예제';


  Matched := IsMatch(InputText, Pattern);


  if Matched then
    WriteLn('텍스트와 패턴이 일치합니다.')
  else
    WriteLn('텍스트와 패턴이 일치하지 않습니다.');
end.