最佳答案
请注意,在下面的答案中,我假设您的字节数组是 ANSI 编码的且以零结尾。
<小时/>将数据分配给字符串:
var
str: string;
....
str := string(PAnsiChar(@TmpData[0]));
然后删除换行符:
str := StringReplace(str, sLineBreak, '', [rfReplaceAll]);
您可能希望删除单个 #10
和 #13
字符,或删除所有空白字符。这取决于您的需求,但本质就在这里。
或者,您可以遍历字节数组,删除您想要删除的所有字节,例如值为 10 和 13,或值小于 32。然后转换为 PAnsiChar
。
idxDst := 0;
idxSrc := 0;
while TmpData[idxSrc] <> 0 do begin
if TmpData[idxSrc] >= 32 then begin
TmpData[idxDst] := TmpData[idxSrc];
inc(idxDst);
end;
inc(idxSrc);
end;
TmpData[idxDst] := 0;
关于delphi - 将字节数组转换为 PAnsiChar,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34179711/