类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
想在Com组件中返回TStringList类型变量的值,该如何做这个函数?变量如下:
Var
WorkGroupList:TStringList;
begin
WorkGroupList:=TStringList.Create;
WorkGroupList.Add(88);
WorkGroupList.Add(99);
end;
网友回答：
返回TStrings.Text
客户端调用后建立一个TStringList,然后
sl.Text := resulttext;
就可以了
function getStrList(slStr: TStrings): Variant;
var
i: Integer;
begin
Result:=VarArrayCreate([0,slStr.Count-1],varString);
for i:=0 to slStr.Count-1 do
begin
Result[i]:=FieldByName(Value).AsString;
end;
end;
同意 ysai(蓝色忧郁)
我们现在就是这样做的定义一个bstr，用stringlist 的 text ，客户端取过来，传给一个stringlist的text 就可以用了，
text实际就是用13 10 分隔的字符串。