VPF::Описание константы типа запись

kotompazb

Дата 12.11.2010, 23:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 6.11.2010

Репутация: нет
Всего: нет

Имеется объявление:

Код


type
  TCPMMachinesEnum = (Atm, Scorpion, Profi, Quorum, Korvet, Korvet2, Orion, Orion2);
  TCPMMachines = Set of TCPMMachinesEnum;

  CPMDPH = record//Стандартный DPH
    len: byte;//Размер сектора 0=128, 1=256, 2=512, 3=1024
    den: byte;//Количество сторон -1
    sec: word;//Секторов/трек
    trk: word;//Количество треков
  end;

  CPMDPB = record//Стандартный DPB
    spt: word;//Записей (128 байт) на трек
    bsh: byte;//Блок=128*2^bsh
    blm: byte;//Блок=128*(blm+1)
    exm: byte;//Экстент (0=16k, 1=32k, 3=64k, 7=128k)
    dsm: word;//Число блоков -1
    drm: word;//Емкость каталога-1
    al: word;//Маска блоков оглавления
    cks: word;//Размер каталога (байт)/128
    off: word;//Количество системных дорожек
  end;

  ImgParam = record//Параметры образа
    Machine: TCPMMachines;//Модель компьютера
    Comment:string;//Подробнее о модели
    DPH: CPMDPH;//Стандартный DPH
    DPB: CPMDPB;//Стандартный DPB
    Size: integer;//Размер образа
    SecSize: integer;//Размер сектора = len (0=128, 1=256, 2=512, 3=1024)
    TrkNum: integer;//Число дорожек - (den+1)*trk
  end;

Необходимо обявить несколько констант типа ImgParam, заполняя все поля.
Как это сделать?

kotompazb

Дата 13.11.2010, 00:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 6.11.2010

Репутация: нет
Всего: нет

Решено вот так.

Код


const
  AtmStd:ImgParam = (Machine:[Atm];//Модель компьютера
    Comment:'CP/M ATM';//Подробнее о модели
    DPH:(len:$01;den:$01;sec:$10;trk:$50);//Стандартный DPH
    DPB:(spt:$0020;bsh:$04;blm:$0F;exm:$00;dsm:$013A;drm:$007F;al:$00C0;cks:$0020;off:$0002);//Стандартный DPB
    Size:$0A0000;//Размер образа
    SecSize:$100;//Размер сектора = len (0=128, 1=256, 2=512, 3=1024)
    TrkNum:$A0//Число дорожек - (den+1)*trk
    );

Спасибо за внимание.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »