未声明的标识符：'PosEx'

Question

我尝试在delphi 2007中的程序中使用此代码

function ExtractText(const Str: string; const Delim1, Delim2: string): string;
var
  pos1, pos2: integer;
begin
  result := '';
  pos1 := Pos(Delim1, Str);
  if pos1 > 0 then begin
    pos2 := PosEx(Delim2, Str, pos1+1);
    if pos2 > 0 then
      result := Copy(Str, pos1 + 1, pos2 - pos1 - 1);
  end;
end;  

我在google上搜索了我发现我需要“FastCode.Libraries-0.6.4.zip”我下载它但不知道如何使用它来使代码在上面工作。请帮忙！

Answer 1

PosEx在StrUtils单元中定义。请务必将其包含在使用子句中。