Turbo Pascal Documentation

Функция GetModeName

Модуль Graph

     Функция: Возвращает строку,  содержащую  имя  заданного
графического режима.
     Описание: GetModeName(номер_режима: integer)
     Тип результата: строковый (string).
     Примечания: Имена режимов встроены  в  каждый  драйвер.
Возвращаемые  значения  (320х200 CGA P1, 640х200 CGA и т.д.)
можно использовать для создания меню, вывода режимов  экрана
и т.д.
     Аналогичная функция имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также функции GetMaxMode, GetModeRange.
     Пример:

  uses
    Graph;
  var
    Driver, Mode : integer;
    i : integer;
   begin
    Driver := Detect;  { перевести в графический режим }
    InitGraph(Driver, Mode, '');
    if GraphResult < 0 then
       Halt(1);
  for i := 0 to GetMaxMode do { вывести все имена режимов }
      OutText(10, 10 * Succ(i), GetModeName(i));
    Readln;
    CloseGraph;
  end.