2013年10月7日 星期一

PASCAL 的 REGEX

uses RegExpr;


  procedure myregex()
var
  savePath: string;
const
  Template = '.*/(.*$)?';

 with TRegExpr.Create do try
      Expression := Template;
      if Exec (trim(EDITURL.Text)) then
        begin
          viaHttpVBS := Match[1] ;
          //showmessage(viaHttpVBS);
        end;
      finally  Free;
      end;        

END;