L
liujunzhang
Unregistered / Unconfirmed
GUEST, unregistred user!
各位:你们好!祝各位工作顺利!
我要问的问题是:在三层中的应用层如何实现返回多个值。
例如:
SqlText:为SQL语句。
function TGoodses.GetNeedValue(const SqlText: WideString): oleVariant;
Var
NeedValue:TStrings;
I:Integer;
begin
NeedValue:=TStringList.Create;
With Adoquery1do
begin
CLose;
Sql.Clear;
Sql.Add(SqlText);
Open;
For I:=0 To RecordCount-1do
begin
NeedValue:=Parameters[0].Value;
Next;
end;
end;
Result:=NeedValue;
end;
这是应用服务器的,我要在客户端调用。
但是我不知道应用服务器如何返回多值。请教。
顺问Variant和OLEVariant 之间有什么区别“
我要问的问题是:在三层中的应用层如何实现返回多个值。
例如:
SqlText:为SQL语句。
function TGoodses.GetNeedValue(const SqlText: WideString): oleVariant;
Var
NeedValue:TStrings;
I:Integer;
begin
NeedValue:=TStringList.Create;
With Adoquery1do
begin
CLose;
Sql.Clear;
Sql.Add(SqlText);
Open;
For I:=0 To RecordCount-1do
begin
NeedValue:=Parameters[0].Value;
Next;
end;
end;
Result:=NeedValue;
end;
这是应用服务器的,我要在客户端调用。
但是我不知道应用服务器如何返回多值。请教。
顺问Variant和OLEVariant 之间有什么区别“