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)，但它们都不起作用。

- bob_saginowski

---

分隔符变量被声明为 Char。如果你想要多个分隔符字符，将分隔符声明为字符串。 - LU RD

删除换行符，然后根据回车符提取。 - Sertac Akyuz

为什么不使用TStringList？它已经在sLineBreak上拆分了字符串。请看这里：https://dev59.com/tmUp5IYBdhLWcg3wNVlb#15427587 - Uwe Raabe

@SertacAkyuk：SysUtils单元中有一个名为AdjustLineBreaks()的函数可以实现这个目的。 - Remy Lebeau

@Remy - 谢谢，我以前从未听说过它。 - Sertac Akyuz

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;

- bob_saginowski

---

你可以将它缩短一点。顺便说一句，抱歉，我已经删除了我的评论，因为我意识到SplitString不是你要找的东西。字符串助手的Split有一个重载，它接受一个字符串分隔符。 - TLama