▁▂▃▄▅▆▇█如何把一个数组存入Access的OLE 对象字段█▇▆▅▄▃▂▁

Question

一个一维数组、的内容为：1234567890123411101010101010101010…………
1、如何把这个数组存入Access的OLE 对象字段
2、如何从Access的OLE 对象字段中内容取出，并赋予一个一维数组请各位大虾帮忙，先谢了~！

Answer 1

var
  a:array[0..11]of byte;
  len,i:integer;
  p:pchar;
  fm:Tmemorystream;
begin
  len := sizeof(a);
  getmem(p,len);  for i:=0 to 11 do
    a[i] :=ord('A')+i;
  move(a,p^,len);
  fm := Tmeorystream.create;
  fm.read(p^,len);
  Tblobfield(tbl.fields[0]).loadfromstream(fm);
  savetostream