delphi 获取两个关键词之间的字符串

// delphi 获取两个关键词之间的字符串

function CenterStr(const strSrc : String; const strBegin : String; const strEnd : String) : String;

var

    iPosBegin, iPosEnd: integer;

    strSrcLow, strBeginLow, strEndLow: String;

begin

    strSrcLow := LowerCase(strSrc);

    strBeginLow := LowerCase(strBegin);

    strEndLow := LowerCase(strEnd);

    iPosBegin := Pos(strBeginLow, strSrcLow) + Length(strBeginLow);

    iPosEnd := Pos(strEndLow, strSrcLow);

    result := Copy(strSrc, iPosBegin, iPosEnd - iPosBegin);

end;