안녕하세엽~~~

ActiveX컨트롤이 있는데요, UDT Variant 로 값을 반환하는 함수가 있습니다

근데....이거 원래 구조체로 어케 바꿔여?  ㅡ_ㅡ;;;


음..예를 들면

임포트된 ActiveX 컨트롤 파스칼 파일중에 다음과 같은 레코드 정의가 나타납니다

// *********************************************************************//
// Declaration of structures, unions and aliases.                       //
// *********************************************************************//

...
...(중략)
...

UDT = packed record
x: Integer;
y: Integer;
end;

...
...(중략)
...

procedure TTest.GetUDT(var pVal: OleVariant);
begin
  ControlInterface.GetUDT(pVal);
end;


위에 함수가 Variant로 반환하지만 실제로 안에 들어있는건 UDT 레코드입니다
아래처럼 값을 얻는건 간단한데... 그담은 어떠케 하죠?
(아래 부분은 걍 빈프로젝츠 열어서 폼 더블클릭한 함수입니다)

procedure TForm1.FormCreate(Sender: TObject);
var
  val: OleVariant;
begin
  Test1.GetUDT(val);
end;


답변 꼭 부탁드려영~~~~~     ^___________________^