Delphi TBytesField SetData

Question

In einer Tabelle habe ich ein TBytesField mit der Größe 60. Wenn ein Datensatz mit diesem Feld auf Null erstellt wird, möchte ich seinen Wert auf ein Array von Bytes wie [0,0,0.....0] setzen. Ich verwende diesen Code:

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

Obwohl ar hat alle Bytes Null, ich sehe, dass das Feld diese Werte nimmt statt:

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

Was mache ich falsch?

Answer 1

Sie SetData() nicht direkt verwenden. Verwenden Sie die AsBytes Eigenschaft:

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