测试自定义着色代码

procedure TfrmMain.btnParseClick(Sender: TObject);
var
RExp: TRegExpr;
begin
RExp := TRegExpr.Create;
try // ensure memory clean-up
RExp.Expression := edtExp.Text;
RExp.InputString := edtString.Text;
if RExp.Exec then begin
repeat
memOut.Lines.Add(RExp.Match[0]);
until not RExp.ExecNext;
end else begin
memOut.Lines.Add('---No matchs---');
end;
memOut.Lines.Add('===Parsing End===');
finally
RExp.Free;
end;
end;