摘要:
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... 阅读全文
posted @ 2012-02-05 14:29 程诗 阅读(174) 评论(0) 推荐(0)