谁用过 Istrings 类型的参数,请求帮助!! (200分)

我想在midas服务器的过程中调用 Istrings类型的参数，
因为我要使用字符串树组，有谁有过这方面的经验，最好有例子
急须帮助。

以前我没用过的高手也来看看，我已经能在tstringlist和istrings之间
互相转换了:GetOleStrings;SetOleStrings.但调用的时候还是出错:
unsupported variant type:4009

不会，帮你踢一脚。

踢一脚。

IStrings似乎是个ole or (com)对象，需要创建?
我已经有点晕了.

^_^

我也来踢一脚。
呵呵

关注，我也用过，但是不知道
GetOleStrings;SetOleStrings
后面的String 参数应该添写什么。
如何查找。

(StdVcl.)IStrings 是由 TStringsAdapter实现的.关键你说的太笼统.搞不清你的问题所在
至少要有出错的地方附近的代码吧
procedure GetOleStrings(Strings: TStrings;
var OleStrings: IStrings);
begin
OleStrings := nil;
if Strings = nil then
Exit;
if Strings.StringsAdapter = nil then
Strings.StringsAdapter := TStringsAdapter.Create(Strings);
OleStrings := Strings.StringsAdapter as IStrings;
end;
procedure SetOleStrings(Strings: TStrings;
OleStrings: IStrings);
var
I: Integer;
begin
if Strings = nil then
Exit;
Strings.begin
Update;
try
Strings.Clear;
for I := 0 to OleStrings.Count-1do
Strings.Add(OleStrings.Item);
finally
Strings.EndUpdate;
end;
end;