안녕하세요. Midas에서 List타입을 인자로 주는 방법을 알고 싶습니다. Midas Server에서 선언한 함수는 다음과 같습니다. function TketsTest1.putUGroup(UserID, Items: OleVariant): OleVariant; Items에 ListBox 의 아이템들을 보낼려...
hugehead
•
2000.07.22 02:21
우선 간단하게 설명하게는 힘들지만, 함수의 리턴값이 OleVariant이니 다행이군요.
List Items들을 하나...
List Items들을 하나의 Variant Array로 묶어서 한방에 넘겨야 합니다.
Delphi Help에서 약간 퍼온건데 참고하시죠...
var
A : Variant
begin
A := VarArrayCreate([0, 4], varVariant);
A[0] := 1;
A[1] := 1234.5678;
A[2] := 'Hello world';
A[3] := True;
A[4] := VarArrayOf([1, 10, 100, 1000]);
end;
보시다 시피 Variant Array의 element들은 varVariant 타입이므로 아무거나 다 들어가죠.
함수의 리턴값에 A를 넘겨 주명 되지 않을까 합니다.
김형중 wrote:
> 안녕하세요.
>
> Midas에서 List타입을 인자로 주는 방법을 알고 싶습니다.
>
> Midas Server에서 선언한 함수는 다음과 같습니다.
>
> function TketsTest1.putUGroup(UserID, Items: OleVariant): OleVariant;
>
> Items에 ListBox 의 아이템들을 보낼려고 하는데
>
> 어떻게 하면 되는지 알고 싶습니다.
>
> 그럼.