Delphi宽字符批量去除#0方法

function DelCRLF(src: String): String;
var
n,M: Integer;
begin
SetLength(Result, Length(src));
n := 0;
for m := 1 to Length(src) do
if (src[M]= #0) then
continue
else begin
Inc(n);
Result[n] := src[M];
end;
SetLength(Result, n)
end;
————————————————
版权声明：本文为CSDN博主「紫松Win」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/zisongjia/article/details/116747462