如何在Delphi中使用Microdraw图形控件的OLEVariant类型数据

如何在Delphi中使用Microdraw图形控件的OLEVariant类型数据 示例如下： procedure TForm1.Button1Click(Sender: TObject); var objid : oleVariant; i,dim,lb,hb,count :integer; pt_x,pt_y :array of double; begin self.Memo1.Clear; setlength(pt_x,1); setlength(pt_y,1); objid := self.MicroDrawOcx1.GetObjectIDArrayByType(1);//得到文件中直线的类型 //得到当前直线的全部ｉｄ dim := VarArrayDimCount(objid);//得到数组的维数 lb:=VarArrayLowBound(objid,dim);//得到数组的下限 hb := VarArrayHighBound(objid,dim);//得到数组的上线 count := hb-lb+1;//得到数组的长度 for i := 0 to (count- 1) do begin self.MicroDrawOcx1.GetPointEx(objid[i],-1,pt_x[0],pt_y[0]);//得到直线的起点 self.Memo1.Text:= self.memo1.text+'第'+inttostr(i+1)+'条直线的起点为：'+floattostr(pt_x[0])+':'+floattostr(pt_y[0])+';'#13#10; self.MicroDrawOcx1.GetPointEx(objid[i],-2,pt_x[0],pt_y[0]);//得到直线的终点 self.Memo1.Text:=self.Memo1.Text+'第'+inttostr(i+1)+'条直线的终点为：'+floattostr(pt_x[0])+':'+floattostr(pt_y[0])+';'#13#10; self.MicroDrawOcx1.SetObjectColor(objid[i],Microdrawocxlib_tlb.COLOR_RED); self.MicroDrawOcx1.RedrawAll; end; end;