delphi 合并文本行的函数

本文整理自网络，侵删。

 
function DeleteLineBreaks(const S: string): string;
var
Source, SourceEnd: PChar;
begin
Source := Pointer(S);
SourceEnd := Source + Length(S);
while Source < SourceEnd do
begin
   case Source^ of
     #10: Source^ := #32;
     #13: Source^ := #32;
   end;
   Inc(Source);
end;
Result := S;
end;


补充第二种方法：
function DeleteLineBreaks(const S: string): string;
begin
Result := StringReplace(S, #13#10, '',[rfReplaceAll]);
end;
 

相关阅读 >>

Delphi 调用wmi信息判断系统师傅安装杀毒软件

Delphi 在vcl中显示一个非激活状态的窗口

Delphi 中 16 进制转换为 10 进制

Delphi android 启动卡死处理方法

Delphi中关于时间差的实例

Delphi中url的编码与解码，即urlencode的使用

Delphi中strtodatetime函数tformatsettings参数的使用

Delphi windows 编程[18] - 更换菜单项: modifymenu

Delphi 获取一个文件夹下的一级目录

Delphi 遍历目录

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 合并文本行的函数