Delphi的换行符是如何设置的？

本文共计342个文字，预计阅读时间需要2分钟。

plaintext定义一个函数，用于从字符串中提取URL。函数接收三个参数：URL字符串、正则表达式模式和分隔符。函数返回匹配模式的第一个URL。

+function+ExtractURL+url+:+string:+, +pattern+:+string:+, +delimiter+:+char:+:+string:++var+indexMet+:+integer:+, +i+:+integer:+, +urlSplit+:+TArrayString:+, +delimiterSet+:+array+[0+..+0]+of+char:++begin+ +delimiterSet[0]+:=+delimiter+; +urlSplit+:=+TArrayString.Create+; +urlSplit+:=+TArrayString.Create+Split+url+:+pattern+; +for+i+:=+0+to+urlSplit.Length-1+do+ +if+urlSplit[i]+:+Matches+pattern+then+ +indexMet+:=+i+; +exit+; +end+; +end+; +if+indexMet+>0+then+ +Result+:=+urlSplit[indexMet]+; +else+ +Result+:=+EmptyString+; +end+;+end+

我有一个函数,它通过分隔符拆分字符串：

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;