Delphi换行符答案

【问题标题】：Delphi newline characterDelphi换行符
【发布时间】：2014-08-04 02:08:03
【问题描述】：

我有一个用分隔符分割字符串的函数：

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

【问题讨论】：

分隔符变量声明为Char。如果需要多个分隔符，请将分隔符声明为字符串。
删除换行符，然后根据回车提取。
为什么不使用 TStringList？这已经在 sLineBreak 上拆分了字符串。看看这里：stackoverflow.com/questions/15424293/…
@SertacAkyuk：AdjustLineBreaks() 单元中有一个用于此目的的 AdjustLineBreaks() 函数。
@Remy - 谢谢，我以前从未听说过。

标签： delphi delimiter string-split

【解决方案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;

【讨论】：

你可以shorten it一点。附言对不起，但我已经删除了我的评论，因为我意识到 SplitString 不是你要找的。字符串助手的 Split 有一个使用字符串分隔符的重载。