delphi - 未声明的标识符 : '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;  

我在谷歌上进行了搜索，发现我需要“FastCode.Libraries-0.6.4.zip”，我下载了它，但不知道如何使用它来使上面的代码起作用。请帮忙!

Answer 1

PosEx 在 StrUtils 单元中定义。确保将其包含在您的uses子句中。