olevariant和strings的相互转换问题(100分)

Unregistered / Unconfirmed
GUEST, unregistred user!
服务器:定义了以olevarriant变量,传递Tstrings
客户端:获取olevariant的内容。
 
服务器传递tstrings:
p1:eek:levariant;
begin
.....
p1:=varArraycreate([0,strs.Count],varolestr);
for i:=0 to strs.Count-1do
begin
p1:=strs.Strings;
end;
end;
 
p1:eek:levariant;
begin
.....
p1:=varArraycreate([0,strs.Count],varolestr);
for i:=0 to strs.Count-1do
begin
p1:=String(strs.Strings);
end;
end;
 
to yanghai0437:
请问客户端怎样取得这些数据呢?
 
定义一个TStringList ;
aList : TStringList;
aList := TStringList.create;
aList.CommaText := varolestr;
Ok!

 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部