Varinat형을 가변형 배열로 파리미터를 보낼때…

2008년 12월 6일

델마당에 어느 분이 물어 온건데 그분에게는 답이 될지는 모르겠습니다.
가변형으로 variant를 Var 형으로 보내야 할때 직접 Array형 variant를 보내는 것이 아니기 때문에 Pointer형을 이용합니다.

예제 입니다.

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  a1,a2,a3,a4,a5 : variant;

  function vSum( pV : Array of pVariant ) : Integer ;
  Var
    I, T : Integer;
  begin
    T := 0;
    for I := 0 to High(pV) do
      T := T + pV[i]^;
    Result := T;
    Pv[0]^ := 111;
  end;

begin

  A1 := 1;
  A2 := 2;
  A3 := 3;
  A4 := 4;
  A5 := 5;


  caption := Inttostr( vSum( [@a1,@a2,@a3,@a4] ) ) + '-' + Inttostr( a1 );

end;

procedure TForm1.Button1Click(Sender: TObject);

var

i : Integer;

a1,a2,a3,a4,a5 : variant;

function vSum( pV : Array of pVariant ) : Integer ;

Var

I, T : Integer;

begin

T := 0;

for I := 0 to High(pV) do

T := T + pV[i]^;

Result := T;

Pv[0]^ := 111;

end;

begin

A1 := 1;

A2 := 2;

A3 := 3;

A4 := 4;

A5 := 5;

caption := Inttostr( vSum( [@a1,@a2,@a3,@a4] ) ) + '-' + Inttostr( a1 );

end;

EagleSoft

Varinat형을 가변형 배열로 파리미터를 보낼때…

관련

Author: yyjksw

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

네오크린 : 세탁 관리 프로그램

네오북 : 마을 문고/소규모 도서 관리 프로그램

최신 댓글

이 글 공유하기:

관련