Определение варианта исполнения

[Volting]

Добрый день!

стоит задача по открытой спецификации определить вариант спецификации.

Сейчас делаю следующим образом:

Код Выделить Развернуть

//Получаем интерфейс документа-спецификации
   SpcDocument:=ksSpcDocument(kompas.SpcDocument());
   //Открываем существующую спецификацию
   SpcDocument.ksOpenDocument(Edit1.Text,0);
   pSpec  := ksSpecification(spcdocument.GetSpecification);
   //Получаем тип спецификации
   //Получаем интерфейс параметров документа
   DocumentParam:=ksDocumentParam(kompas.GetParamStruct(ko_DocumentParam));
   DocumentParam.Init();

   DocumentParam.regime:=0;  //визуальный режим
   //Получаем интерфейс параметров листа
   SheetPar:=ksSheetPar(DocumentParam.GetLayoutParam());
   SheetPar.Init();
   //Указываем библиотеку стилей
   Str := SheetPar.layoutName;
   ShowMessage(Str);

Но почему то переменная Str не заполнена. Подскажите. как можно решить данную проблему??

[Sabahs]

SheetPar.Init(); - делает инициализацию.

[Volting]

А как тогда правильно?

[Sabahs]

http://forum.ascon.ru/index.php/topic,23070.msg161957.html#msg161957