delphi - 为什么在使用 readbuffer 时使用 string[1] 而不是 string

Question

我有这样的记录

  TEmf_SrectchDIBits = packed record
    rEMF_STRETCHDI_BITS: TEMRStretchDIBits;
    rBitmapInfo: TBitmapInfo;
    ImageSource: string;
  end;
  ---
  ---
  RecordData: TEmf_SrectchDIBits;

如果我像这样使用 TStream 将数据读入其中，则会发生异常

SetLength(RecordData.ImageSource, pRecordSize);

EMFStream.ReadBuffer(RecordData.ImageSource,pRecordSize) 

但是如果我使用下面的代码，它可以正常工作

SetLength(RecordData.ImageSource, pRecordSize);

EMFStream.ReadBuffer(RecordData.ImageSource[1], pRecordSize);

那么使用 String 和 String[1] 之间的区别是什么

Answer 1

差异在于与 .ReadBuffer 方法签名相关的细节。

签名是:

procedure ReadBuffer(var Buffer; Count: Longint);

如您所见，Buffer 参数没有类型。在本例中，您是说您想要访问基础变量。

但是，字符串是两部分，一个指针(变量的内容)和字符串(变量指向这个)。

因此，如果仅给定 ReadBuffer 字符串变量，则它将有 4 个字节用于将数据存储到字符串变量中，并且效果不会很好，因为字符串变量应该保存一个指针，而不仅仅是任何指针随机二进制数据。如果 ReadBuffer 写入超过 4 个字节，它将用新数据覆盖内存中的其他内容，这可能是灾难性的操作。

通过将 [1] 字符传递给 var 参数，您可以让 ReadBuffer 访问字符串变量指向的数据，这正是您想要的。毕竟您想要更改字符串内容。

此外，请确保您已将字符串变量的长度设置得足够大，可以容纳您正在读取的任何内容。

另外，最后一点，我无法验证。在旧的 Delphi 版本中，字符串变量包含 1 字节字符。在较新的版本中，我认为由于 unicode，它们是两个，因此代码可能无法在较新版本的 Delphi 中按预期工作。您可能想改用字节数组或堆内存。