OberonCore • - Получение списка шрифтов

Сообщения без ответов | Активные темы

Список форумов » Проект Информатика-21 » Для начинающих

Часовой пояс: UTC + 3 часа

Получение списка шрифтов

Страница 1 из 1

[ Сообщений: 6 ]

Версия для печати

Пред. тема | След. тема

Автор

Сообщение

Александр К

Заголовок сообщения: Получение списка шрифтов

Добавлено: Среда, 04 Октябрь, 2017 17:16

Зарегистрирован: Воскресенье, 06 Август, 2017 19:33
Сообщения: 98

Как получить список шрифтов из модуля Fonts?

Код:

MODULE MyListFonts;
IMPORT Fonts;

PROCEDURE List*;
VAR
   myFont: Fonts.TypefaceInfo;
BEGIN
   myFont := Fonts.Directory.TypeFaceList;(*в этом месте ошибка: разыменованный объект не является переменной*)   
END List;

END MyListFonts.

Вернуться к началу

adva

Заголовок сообщения: Re: Получение списка шрифтов

Добавлено: Среда, 04 Октябрь, 2017 17:43

Зарегистрирован: Суббота, 16 Февраль, 2008 07:58
Сообщения: 358
Откуда: Россия, Стерлитамак

В глаза бросается Directory. Это скорее всего имя типа, а имя переменной - обычно dir. Вроде бы маркер ошибки при компиляции устанавливается перед ошибочным методом/свойством, где именно он стоит?

Вернуться к началу

Александр К

Заголовок сообщения: Re: Получение списка шрифтов

Добавлено: Среда, 04 Октябрь, 2017 18:29

Зарегистрирован: Воскресенье, 06 Август, 2017 19:33
Сообщения: 98

adva писал(а):

Вроде бы маркер ошибки при компиляции устанавливается перед ошибочным методом/свойством, где именно он стоит?

Перед точкой с запятой.

adva писал(а):

В глаза бросается Directory. Это скорее всего имя типа, а имя переменной - обычно dir

В интерфейсе модуля Fonts такое объявление:

Цитата:

Код:

TYPE
...
Directory = POINTER TO ABSTRACT RECORD
...
(d: Directory) TypefaceList(): TypefaceInfo, NEW, ABSTRACT
END;

Цитата:

Код:

PROCEDURE (d: Directory) TypefaceList(): TypefaceInfo
NEW, ABSTRACT

Возвращает информацию о доступных типах шрифтов. Результатом будет список имён типов шрифтов...

Вернуться к началу

adva

Заголовок сообщения: Re: Получение списка шрифтов

Добавлено: Среда, 04 Октябрь, 2017 18:50

Зарегистрирован: Суббота, 16 Февраль, 2008 07:58
Сообщения: 358
Откуда: Россия, Стерлитамак

про что я и говорю, Directory - это имя типа. А ты обращаешься к нему как к переменной. А переменную данного типа смотри в разделе VAR модуля. А там есть переменная dir: Directory

Вернуться к началу

adva

Заголовок сообщения: Re: Получение списка шрифтов

Добавлено: Среда, 04 Октябрь, 2017 18:52

Зарегистрирован: Суббота, 16 Февраль, 2008 07:58
Сообщения: 358
Откуда: Россия, Стерлитамак

В общем различай ИмяТипа, и переменные данного типа, у тебя постоянно идет их смешивание.

Попробуй замени:
myFont := Fonts.Directory.TypeFaceList
на
myFont := Fonts.dir.TypeFaceList

Вернуться к началу

Илья Ермаков

Заголовок сообщения: Re: Получение списка шрифтов

Добавлено: Среда, 04 Октябрь, 2017 21:10

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 9459
Откуда: Россия, Орёл

Fonts.dir.TypeFaceList()
- вызов функции требует обязательных скобок! (в отличие от процедуры без параметров).

Вернуться к началу

Страница 1 из 1

[ Сообщений: 6 ]

Список форумов » Проект Информатика-21 » Для начинающих

Часовой пояс: UTC + 3 часа

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения