Delphi TBytesField SetData

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;