J
jgame
Unregistered / Unconfirmed
GUEST, unregistred user!
demo中的例子只是返回一个string啊,太浪费资源了吧.
procedure TClientForm.Button3Click(Sender: TObject);
var
send, recv: ArrayofString;
lcount, i: Integer;
begin
lcount := ValueListEditor1.Strings.Count;
SetLength(send, lcount);
for i:=0 to lcount-1 do
send := ValueListEditor1.Cells[0, i+1];
recv := GetService.echoStringArray(send);
for i:=0 to length(recv)-1 do
ValueListEditor1.Cells[1, i+1] := recv;
end;
求高手指教,
webservice怎么返回一个数组;
procedure TClientForm.Button3Click(Sender: TObject);
var
send, recv: ArrayofString;
lcount, i: Integer;
begin
lcount := ValueListEditor1.Strings.Count;
SetLength(send, lcount);
for i:=0 to lcount-1 do
send := ValueListEditor1.Cells[0, i+1];
recv := GetService.echoStringArray(send);
for i:=0 to length(recv)-1 do
ValueListEditor1.Cells[1, i+1] := recv;
end;
求高手指教,
webservice怎么返回一个数组;