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;
Delphi宽字符批量去除#0方法
最新推荐文章于 2024-02-23 23:16:56 发布