Delphi的換行符

Question

我是具有由分隔符分割的字符串的函數：

function ExtractURL(url: string; pattern: string; delimiter: char): string; 
var 
    indexMet, i: integer; 
    urlSplit: TArray<String>; 
    delimiterSet: array [0 .. 0] of char; 
begin 
    delimiterSet[0] := delimiter; 
    urlSplit := url.Split(delimiterSet); 
    Result := ''; 

    for i := 0 to Length(urlSplit) - 1 do 
    begin 
    if urlSplit[i].Contains(pattern) then 
    begin 
     indexMet := urlSplit[i].LastIndexOf('=') + 1; // extracts pairs key=value 
     Result := urlSplit[i].Substring(indexMet); 
     Exit; 
    end; 
    end; 
end; 

的功能時，分隔符是一個單獨的字符正常工作（'&」，‘|’）。我怎樣才能將換行符作爲分隔符。我嘗試了＃13＃10，＃13＃10，sLineBreak，Chr（13）+ Chr（10），但他們不工作。

Answer 1

@TLama對這個問題的第一評論解決了我的問題。我重寫了該函數：

function ExtractURL(url: string; pattern: string; delimiter: string): string; 
var 
    indexMet, i: integer; 
    urlSplit: TStringDynArray; 
begin 
    // note that the delimiter is a string, not a char 
    urlSplit := System.StrUtils.SplitString(url, delimiter); 
    result := ''; 

    for i := 0 to Length(urlSplit) - 1 do 
    begin 
    if urlSplit[i].Contains(pattern) then 
    begin 
     indexMet := urlSplit[i].LastIndexOf('=') + 1; 
     result := urlSplit[i].Substring(indexMet); 
     Exit; 
    end; 
    end; 
end;