delphi – TStream.WriteData和TStream.ReadData的Count参数的目的是什么？

function WriteData(const Buffer: Int32; Count: Longint): Longint; overload;

所有常见的嫌疑人,AnsiChar,Char,UInt32,Double等都有重载.同样适用于ReadData.我试图了解Count参数的用途.上述过载的实现如下：

function TStream.Skip(Amount: Integer): Integer;
var
  P: Integer;
begin
  P := Position;
  Result := Seek(Amount, soCurrent) - P;
end;

function TStream.WriteData(const Buffer: Int32; Count: Longint): Longint;
const
  BufSize = SizeOf(Buffer);
begin
  if Count > BufSize then
    Result := Write(Buffer, BufSize) + Skip(Count - BufSize)
  else
    Result := Write(Buffer, Count)
end;

我可以清楚地看到这段代码的作用,但我无法理解为什么执行部分写入会有意义.为什么用Count<来调用这个函数是有意义的？ BUFSIZE？那时的行为很奇怪. 有谁知道为什么要添加这些重载以及它们的目的是什么？我自然而然地看过documentation这些方法无话可说.

另外,我将提交有关此行的错误报告：

Result := Write(Buffer, BufSize) + Skip(Count - BufSize);

假设对Write的调用将在调用Skip之前发生,这是错误的.未定义运算符对运算符的评估顺序.这段代码应该像这样编写：

Result := Write(Buffer, BufSize);
inc(Result, Skip(Count - BufSize));

如果TStream早于引入了重载关键字(Delphi 3 IIRC),他们可能会引入一种方法来编写可能是int32的整数.当使用“byte”变量调用函数时,它将作为Integer传递给函数,然后Count参数只允许写入一个字节.现在他们支持这个以实现向后兼容.

在某些情况下(如下一个),支持Count< Bufsize确实特别愚蠢：

function WriteData(const Buffer: Int8; Count: Longint): Longint; overload;

另一个理由是在下一种情况下,变量只需要保存为流作为Int8,但在程序执行期间作为Int32处理(因为它传递给只接受var：Int32作为参数的函数).

procedure SomeProc(var MyInt : Integer);

procedure DoSomeStream;
var
  iVal : Integer;
//  bVal : ShortInt;
begin
  SomeProc(iVal);
  Stream.WriteData(iVal, SizeOf(Byte));
  //Instead of
//  SomeProc(iVal);
//  bVal := iVal;
//  Stream.WriteData(bVal)
end;

我不是说它是必需的(可以解决),但在某些情况下,它可能是有用的.