delphi - 将具有空字符的字符串保存到文件

Question

我有一个包含空字符的字符串。

我尝试使用以下代码将其保存到文件中：

myStringList.Text := myString;
myStringList.SaveToFile('c:\myfile');

不幸的是，如果源字符串开头有一个空字符，则myStringList.Text为空。

我以为只有C字符串以空字符结尾，而Delphi总是可以的。

如何将字符串的内容保存到文件？

Answer 1

我认为您的意思是“保存其中包含#0个字符的字符串”。

如果是这种情况，请不要尝试将其放在TStringList中。实际上，根本不要尝试将其另存为字符串。就像在C语言中一样，NULL字符（在Delphi中为#0）会导致字符串有时被截断。使用TFileStream并将其直接写为字节内容：

var
  FS: TFileStream;
begin
  FS := TFileStream.Create('C:\MyFile', fmCreate);
  try
    FS.Write(myString[1], Length(myString) * SizeOf(Char));
  finally
    FS.Free;
  end;
end;

读回：

var
  FS: TFileStream;
begin
  FS := TFileStream.Create('C:\MyFile', fmOpenRead);
  try
    SetLength(MyString, FS.Size);
    FS.Read(MyString[1], FS.Size);
  finally
    FS.Free;
  end;
end;