SysUtils.AdjustLineBreaks - Unix 与 Windows 的换行符互换

weixin_33725515

于 2014-09-26 15:33:00 发布

阅读量87

点赞数

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/319837

本文通过具体示例展示了使用Delphi进行字符串处理的方法，特别是如何调整行尾字符以实现跨平台兼容性。介绍了不同行尾格式（如CRLF、LF等）对字符串长度的影响，并提供了实用的代码片段。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

为什么80%的码农都做不了架构师？>>>

举例:

var
  s: string;
  i: Integer;
begin
  s := 'Delphi'#10'2007';
  ShowMessage(IntToStr(Length(s)));    {11}

  s := AdjustLineBreaks(s);
  //s := AdjustLineBreaks(s,tlbsCRLF); {tlbsCRLF 是默认的}
  ShowMessage(IntToStr(Length(s)));    {12, 这时 s = 'Delphi'#13#10'2007'}

  s := AdjustLineBreaks(s,tlbsLF);
  ShowMessage(IntToStr(Length(s)));    {11, 这时 s = 'Delphi'#10'2007'}
end;

SysUtils 单元下的公用函数目录

转载于:https://my.oschina.net/hermer/blog/319837