7,714
社区成员
发帖
与我相关
我的任务
分享
var
BF:TMemoryStream;
S:string;
begin
S:= 字段值;
try
BF:=TMemoryStream.create;
SetLength(BF,S);
TBlolField(dataset.fieldbyname('PID')).LoadFromStream(BF);
dataset.post;
finnally
BF.free;
end;