Процедура Lic_FirstPlatform Назад В начало Вперед

Назначение

Процедура Lic_FirstPlatform используется для получения списка идентификаторов платформенных конфигураций, указанных в лицензионном файле.

Процедура Lic_FirstPlatform позиционируется на первой записи в списке платформенных конфигураций, указанных в лицензионном файле. Для получения всего списка эта процедура используется в сочетании с функцией Lic_NextPlatform.

Описание

procedure Lic_FirstPlatform;

Пример

#include my.vih

//==================================================
interface aIfc;
! Без таблиц
create view as;

//--------------------------------------------------
handleEvent
cmInit:
{
  flBtr := false;
  Lic_FirstPlatform;
  while Lic_NextPlatform(S) do
	if S='BTRIEVE'
	{
	 flBtr := true;
	 break;
}
  if not flBtr
  {
	abort; exit;
  }
}
end;
end.

Смотрите также

Lic_NextPlatform