OLAP问题

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
DS := 'Provider=MSOLAP.1;Data Source=localhost;'+
       'Initial Catalog=FoodMart 2000';
 FillTreeView(DS);
end;
我在调试上面这段小程序的时候，程序一运行到FillTreeView(DS)，就会出现;"Count not convert variant of type (olestr) into type(dispatch)",
 请问如何更改？

Answer 1

这是Delphi的一个老问题。我记得在Borland的网站上有一篇文章详细讲了该问题的处理方法：
一是在打开数据源时自己写代码将widestring类型转化为string。
二是修改Decisioncube的源代码。

Answer 2

一是在打开数据源时自己写代码将widestring类型转化为string。
二是修改Decisioncube的源代码。