谁帮忙给一个delphi的算法 ，解决txt文件里面碰到十六进制的0x00，加载文件失败了

Question

procedure TfrmStkFileDataInput.LoadFromTxtFile(const AFileName: string;
  ARow: TStringList);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(AFileName, fmShareDenyNone);
  try
    ARow.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;
HEADER|ITP1.00 |          |  332|        |XHKG01|20160322-10:42:14.000|0|3       
MD401|00001|晫T 0 0 0 0 0 0 0 0 0 0 0 0 0 0|CKH HOLDINGS   |         1557332|   157912384.600|    100.000|    101.300|    102.000|    100.600|    101.300|    101.300|       11000|    101.400|       47000|0       |10:42:13.000
MD401|00002|-N5u 0 0 0 0 0 0 0 0 0 0 0 0|CLP HOLDINGS   |          535346|    36902500.500|     69.150|     69.100|     69.150|     68.800|     69.100|     69.050|       12000|     69.100|       35500|0       |10:41:55.000读到‘晫T’后面就遇到0x00了   

Answer 1

TStringList遇到0就结束了，可以在TStream里把0替换成空格，处理一下