D string中有空字符NUL ，不是空格，造成StringList处理读取中断（估计认为是终止符合）

2020-11月份碰到和下方网友问题。

(9条消息) 使用TStringList读取文件只读取到一半是怎么回事-CSDN论坛
https://bbs.csdn.net/topics/390138917

读取某些TXT时，只读了前一半，后面的没了，如果我用记事本打开TXT，什么都不做，直接文件-》保存，就可以了，我用16进制打开看到的是一样的呀，有知道这是怎么回事吗?并且没保存前怎么读全呢？
2012-07-18 09:56:58 楼主
比较下读取完全的和不完全的文件之间的区别，大小或者带有特殊符号。
2012-07-18 10:50:24 #1得分 2

有可能与TXT文件的换行格式有关，可以分别试一下读DOS格式、UNIX格式和MAC格式的情况，然后再试一下混合格式
如没问题的话在检查一下有没有特殊字符
找到原因，只在之前中间有0，用记事本打开在保存，这些就没了，有什么办法替换掉这些吗
文本文件里没结束就出现了结束符0，这个要怎么样替换掉呢？
hyz_cs
你这个文件不是文本文件吧,要不然里面怎么会有呢,或者编码不对?
_fastcall
文件后半部分还没有保存
LWLIFE
这个是别人导出的文本文件，里面有我需要的描述信息，用十六进制查看的时候在中间地方就是有的存在，所以我用TStringList加载的时候只加载了前半部分，有什么办法解决吗？
sczyq
先读取到 TMemoryStream 流，逐个字节判断是否 0x00 就改为　0x20 (空格)，
再　TStringList－〉LoadFromStream　装入这个流。
LWLIFE
谢谢楼上的回复，我现在就是这么做的，循环流判断的时候怎么直接替换流里的内容呢？比如流长度20，10的位置就是0
我现在的做法是，循环判断不是就加到另一个字符串，然后最后显示另一个字符串。有什么办法直接修改流里的内容呢？
Blank
打开文件，直接都读到内存中，然后进行替换，把''都替换成空格，然后在用TStringList去读进行了，或者不用TStringList，直接处理也行
2012-07-18 18:41:16

View文章原文 Code

//====

本人的文本中有存入是$0$0 nodepad++ 打开后是 NUL 是空字符但不是空格。TStringList处理的时候认为是结束字符，不往下读取了。

本人原来用http请求回来时内存流中 TMemoryStream 通过TstringStream 转换为UTF8可以看到汉字，

Stream.DataString方法转成string，#0 替换为空格#32 完成目标。

procedure TForm9.btn3Click(Sender: TObject);
var
  sPostUrl : string;
  postStream,outStream : TMemoryStream;
  resstring : string;
  B:array of Char;
  I : Integer;
  P:PChar;
  strs: TStringList;
  Stream : TStringStream;
begin
  sPostUrl := 'http://*****/alarmqueries';
  idhtp1.Request.ContentType := 'application/x-www-form-urlencoded'; // 定义发送mime类型
  postStream := TStringStream.Create('param={"end":"2020-10-22 23:59:59","commno":["14765145811"],"begin":"2020-10-22 00:00:00"}');  // 发送内容
  outStream := TMemoryStream.Create;
  idhtp1.Post(sPostUrl,postStream,outStream);
  outStream.Position := 0;
  Stream := TStringStream.Create('',TEncoding.UTF8);
  Stream.LoadFromStream(outStream);
  resstring :=Stream.DataString;
  for i :=0 to Length(resstring) - 1 do
  begin
    if resstring[i] = #0 then
    begin
      resstring[i] := #32
    end;
  end;
  strs := TStringList.Create();
  strs.Text:=resstring;
  mmo1.Text :=((resstring));// outStream.DataString;
  showmessage(inttostr(mmo1.Lines.Count));
  showmessage(inttostr(strs.Count));
end;

//---一开始本来以为是要在流中处理的，但是技术不精，没有弄懂，下方放点杂乱代码，

这个是以一个个字节判断，不知道什么作用

bom: array[0..1] of byte;
if (stream.Read(bom, sizeof(bom)) = 2) and (bom[0] = $FF) and (bom[1] = $FE) then

procedure TXLSStream.WriteFile(RecId, Length: word; Filename: string);
var
  S: string;
  B: byte;
  Stream: TFileStream;
begin
  Stream := TFileStream.Create(Filename,fmOpenRead);
  try
    WriteHeader(RecId,Length);
    SetLength(S,3);
    while (Length > 0) and (Stream.Read(Pointer(S)^,3) = 3) do begin
      B := 0;
      if AnsiChar(S[1]) in ['0'..'9'] then
        B := (Byte(S[1]) - Byte('0')) shl 4
      else if AnsiChar(S[1]) in ['A'..'F'] then
        B := (Byte(S[1]) - Byte('A') + 10) shl 4;
      if AnsiChar(S[2]) in ['0'..'9'] then
        B := B + (Byte(S[2]) - Byte('0'))
      else if AnsiChar(S[2]) in ['A'..'F'] then
        B := B + (Byte(S[2]) - Byte('A') + 10);
      WByte(B);
      Dec(Length);
    end;
  finally
    Stream.Free;
  end;
end;

//==== 这里面的流转换成string ，没试

封装了三个对TMemoryStream操作的函数，大牛莫笑 - 似水@流年 - 博客园
https://www.cnblogs.com/wuxi15/p/5134863.html