Запрашивает кодовую страницу, отображая на экране диалоговое окно Code Page, а затем возвращает номер выбранной кодовой страницы.
Синтаксис:
GETCP([nCodePage] [, cDialogCaption] [, cDialogTitle])
Параметры:
nCodePage
Задает номер кодовой страницы, которая будет изображена выбранной в диалоговом окне Code Page. Если nCodePage равен 0 или опущен, при отображении диалогового окна Code Page никакая страница не будет выбрана.
cDialogCaption
Задает подпись под диалоговым окном Code Page. Если аргумент cDialogCaption опущен, Visual FoxPro отобразит следующую подпись: "Please select a code page for cross-platform data sharing". [Пожалуйста, выберите кодовую страницу для совместного использования данных разными платформами]
cDialogTitle
Задает титульный заголовок, который появится в строке заголовка диалогового окна Code Page. Если аргумент cDialogTitle опущен, используется заголовок "Code Page" [Кодовая страница].
Результат:
Числовой.
Комментарии:
Если выйти из диалогового окна Code Page, нажав клавишу ESC или кнопку Cancel или выбрав команду Close в меню Control, функция GETCP( ) возвратит 0.
Кодовые страницы, которые приводятся в диалоговом окне Code Page, определяются содержимым файла FOXPRO.INT файла поддержки кодовых страниц Visual FoxPro International.
Функцию GETCP( ) можно включать в такие команды, как MODIFY COMMAND, APPEND FROM и COPY TO, поддерживающие предложение AS nCodePage. Появляющееся диалоговое окно Code Page дает возможность задать кодовую страницу для открываемого, присоединяемого или создаваемого файла. Поскольку кодовой страницы 0 не существует, нужно учесть вариант возвращения значения 0, когда пользователь нажимает клавишу ESC, кнопку Cancel или выбирает команду Close в меню Control.
Пример:
* В следующем примере отображается диалоговое окно Code Page, в * котором выбрана кодовая страница 1252 (Windows ANSI). В качестве * названия диалогового окна Code Page отображается фраза "Select a * Code Page" [Выберите кодовую страницу], а в строке заголовка этого * диалогового окна стоит "Code Page Selection" [Выбор кодовой страницы]. ? GETCP(1252, "Select a Code Page", "Code Page Selection")