From: "Victor B. Wagner" <vitus@agropc.msk.su>


Модуль VDOS - набор высокоуровневых интерфейсов к Turbo Professional,
позволяющих за одну строчку вызвать окошко ввода имени файла с выбором
из списка, создать выскакивающее окошко для ввода строки или числа
и т.д.

Да, он задает определенный стиль интерфейса (в нем даже определены
цвета по умолчанию), но при написании небольших интерактивных программ
он позволяет сэкономить время, не конструируя интерфейсных элементов
заново.

В общем, это аналог Vision-овских модулей StdDlg и MsgBox, только для
Professional.
Правда, сюда входят некоторые вещи из области интерфейса файловой системы,
типа создания резервной копии файла перед ее перезаписью, не вошедшие
в модуль swdos, точнее его предшественник тех времен, когда я писал
на Professional.

Как это работает:

Oбщие принципы:
1. Все что можно, делается по умолчанию.
2. Все умолчания, которые можно, можно менять.

Процедуры и функции

function SearchFile(var flname:string;ext:extstr):byte;
  Выдает окошко для ввода имени файла, помещая туда
  в качестве значения по умолчанию '*.'+ext, если
  flname была пустой строкой, или ее старое значение. Если после
  нажатия Enter flname не содержит расширения, добавляется ext.
  Если в том, что получилось, содержатся звездочки и вопросительные
  знаки, создается окошко со списком файлов, удовлетворяющих шаблону
  и пользователь может выбрать. Esc возвращает в строку ввода.

  Функция возвращает:
  0- выбрано имя существующего файла
  1- выбрано имя несуществующего файла
  2- пользователь отказался от выбора (нажал Esc в окошке ввода имени)
  По интерфейсу очень похоже на среду Turbo Pascal 5.x, если кто такую
  помнит

Функции ввода строки:

function getname(var s:string;prompt:string):boolean;
function getreal(var r:TPString.Float;prompt:string):boolean;
function getlongint(var l:longint:prompt:string):boolean;

  все работают одинаково. Выдают выскакивающее окошко с указанным в
  параметре Prompt заголовком и позволяют ввести значение.
  Возвращают