未說明的標識符PosEx'

Question

我想在我的程序在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使用此代碼。壓縮「我下載它，但不知道如何使用它來使代碼高於作品。請幫忙！

Answer 1

PosEx在StrUtils單位中定義。確保將其包含在您的使用條款中。