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;