测试自定义着色代码

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;

在万一的热心帮助下基本搞定了。 他的博客 http://www.cnblogs.com/del

在Chrome和FireFox里看着都挺像那么回事，在IE里也很像，不过是很像假货。^$%&$#!@$#!@微软啊，说你啥好呢。