delphi - 将字节数组转换为 PAnsiChar

Question

我使用以下方法将名为“TmpData”的字节数组转换为 PAnsiChar:

PAnsiChar(@TmpData[0]);

但有些数据有换行符。如何删除换行符？请看下图

Answer 1

请注意，在下面的答案中，我假设您的字节数组是 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;