Delphi TBytesField 设置数据

Question

在表中，我有一个大小为 60 的 TBytesField。当创建此字段设置为 nil 的记录时，我想将其值设置为字节数组，如 [0,0,0.. ...0]。我正在使用这段代码:

var
  ar : array of byte;
begin
  if ByteField.AsBytes = nil then
  begin
    SetLength(ar, ByteField.Size);
    ByteField.SetData(ar, True);
  end;
end;

虽然 ar 的所有字节都为零，但我看到该字段采用这些值:

[17,32,0,0,0,0,0,0,48,192,182,1,0...0]

我做错了什么？

Answer 1

不要直接使用SetData()。使用 AsBytes 属性:

var
  ar : TBytes;
begin
  if ByteField.IsNull then
  begin
    SetLength(ar, ByteField.Size);
    ByteField.AsBytes := ar;
  end;
end;