用正则表达式获取指定的字符串

有一网友问了一个有关正则的问题，即取出以单词begin开头和单词end结尾之间的字符串，很感兴趣便动手试下，可试了很多次效果不是太理想，今天简单的实现了，代码如下：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RegularExpressions, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Regex: TRegex;
begin
  Regex := TRegex.Create(Edit1.Text, [roIgnoreCase]);
  try
    if Regex.Match(Memo1.Text).Success then
      begin
        ShowMessage(Regex.Match(Memo1.Text).Value);
      end;
  finally

  end;
end;

end.

　　（注：开发环境XE）

（

Edit1.Text := '(?<=Begin)([.\S\s]*)(?=End)';//正则

Memo1.Text:= 'dklewjsabegindiekdjekdenickdkekkdiuiuijujenddkeidkkd'

）

内容中可以有换行符，这里只是简单的实现，可能还有些情况要处理，比如内容中不只一个begin~end，这就要另作处理了

转载于:https://www.cnblogs.com/Stwo/archive/2011/08/29/2158260.html