안녕하세요.

제가 지금 비베로 된 코드를 델파이로 변환하는 과정에서 다음의 문제점을 해결하지 못해서 도움을 받으려고 합니다.

아래 VB코드를 델파이로 변환하는데 다른 부분은 컴파일에서 오류가 없는데 Array()에서 오류가 발생됩니다.

이 부분을 어떻게 처리해야 하나요?

간략한 일부분만 나열했지만 실제 소스에서는 수시로 Array가 나와서 어떤 함수를 만들어서 넣어야 할듯한데... 감이 안와요...

여러분의 도움을 간절히 원하고 있습니다. ㅠㅠ

--------------VB Code ---------------

Set oAnsoftApp = CreateObject("AnsoftDesigner.DesignerScript")

oDesktop.RestoreWindow

Set oProject = oDesktop.NewProject

Set oDefinitionManager = oProject.GetDefinitionManager()

Set oComponentManager = oDefinitionManager.GetManager("Component")

oComponentManager.ImportModelsFromFile _

   spfile, Array("NAME:Options", "Mode:=", 2, "Overwrite:=", _

   false, "SupportsSimModels:=", false, "LoadOnly:=", false, Array("NAME:Models", "spfile:=", Array( _

   true, "", ""))))

------------- Delphi Code --------------

  oAnsoftApp := CreateOleObject('AnsoftDesigner.DesignerScript');

  oDesktop := oAnsoftApp.GetAppDesktop;

  oDesktop.RestoreWindow;

  oProject := oDesktop.NewProject;

  oDefinitionManager := oProject.GetDefinitionManager;

  oComponentManager := oDefinitionManager.GetManager( 'Component' );

  oComponentManager.ImportModelsFromFile( spfile , Array( 'NAME:Options' , 'Mode:=' , 2 , 'Overwrite:=' , False , 'SupportsSimModels:=' , False , 'LoadOnly:=' , False , Array( 'NAME:Models' , 'spfile:=' , Array( True , '' , '')))) ;

----------------------------------------