Delphi换行符

概述我有一个函数,它通过分隔符拆分字符串： function ExtractURL(url: string; pattern: string; delimiter: char): string;var indexMet, i: integer; urlSplit: TArray<String>; delimiterSet: array [0 .. 0] of char;begin 我有一个函数,它通过分隔符拆分字符串：

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),但他们没有用.

解决方法 @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;

总结

以上是内存溢出为你收集整理的Delphi换行符全部内容，希望文章能够帮你解决Delphi换行符所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。