在Delphi 下将字符串保存到磁盘

var
  fs: TFileStream;

var
  str: string;

fs := TFileStream.Create('C:\test.txt', fmCreate);

var
  bytes: TBytes;

SetLength(bytes, Length(str) * SizeOf(Char));
Move(str[1], bytes[0], Length(str) * SizeOf(Char));
fs.Write(bytes[0], Length(bytes));

fs.Free;

var
  fs: TFileStream;
  str: string;
  bytes: TBytes;

str := 'Hello, world!';
fs := TFileStream.Create('C:\test.txt', fmCreate);
SetLength(bytes, Length(str) * SizeOf(Char));
Move(str[1], bytes[0], Length(str) * SizeOf(Char));
fs.Write(bytes[0], Length(bytes));
fs.Free;