| 發表人 | ||
| databeginner 會員 男22 China 5 篇發表文章 0 分答題得分 1 分總積分 |
客戶端: var at:array of string; begin SocketConnection.AppServer.array_test(at); end; 中間層 取出at的值. 發表人 - Mickey 於 2003/06/17 15:17:27 |
|
|
mustapha.wang 五星級會員 男31 China 332 篇發表文章 73 分答題得分 570.9 分總積分 |
var
AData:OLEVariant;
begin
AData:=VarArrayCreate([0,4],varVariant);
AData[0]:='dgfdrgtf';
AData[1]:='3535';
....
SocketConnection.AppServer.array_test(at);
end;
procedure TTestServer.array_test(AData:OLEVariant);
var
i:integer;
AList:TStringList;
begin
AList:=TStringList.Create;
for i:=0 to VarArrayHighBound(AData,1) do
AList.Add(AData[i]);
.....
end;
=============== |
|
|
databeginner 會員 男22 China 5 篇發表文章 0 分答題得分 1 分總積分 |
多謝mustapha.wang. |
|
相关文章：