Якщо розроблювач хоче, щоб у його програмах використовувалися однакові повідомлення, текстові написи й інші текстові позначення, то можна стандартизувати такі повідомлення за допомогою текстових констант.
Для цього в розділі Interface модуля відразу після розділу Uses описуємо потрібну кількість констант у вигляді:
const
ім'я1=’значення’;
ім'я2=’значення’;
. . .
ім’яn=’значення’;
Для використання такої константи команду видачі діалогу потрібно записати так:
application.messagebox(pchar(ім'я1), pchar(ім'я2), прапори)
Приклад. Створити модуль, який містить текстові константи для діалогів очищення даних і виходу із програми.
Нехай модуль має ім'я Titleunit. У модулі немає підпрограм, тому підключення додаткових модулів не потрібно
unit titleunit;
interface
const
clear_text=’Очистити дані?’;
clear_title=’Підтвердьте операцію’;
exit_text=’Вийти із програми?’;
exit_title=’Підтвердьте вихід’;
implementation
end.
Збережіть файл під ім'ям titleunit.pas.
Перепишемо створений раніше модуль zapros.pas з використання текстових констант.
unit zapros;
interface
//підключаємо модуль titleunit
uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, titleunit;
//указуємо заголовки підпрограм
function clear_data:boolean; //функція очищення даних
function exit:boolean; //функція виходу
implemenmtation
//код реалізації підпрограм
//функція діалогу очищення даних даних
function clear_data:boolean;
begin
if application.messagebox(pchar(clear_text), pchar(clear_title), mb_yesno + mb_iconquestion + mb_defbutton2)=idyes then
clear_data:=true
else
clear_data:=false;
end;
//функція діалогу виходу із програми
function exit:boolean;
begin
if application.messagebox(pchar(exit_text), pchar(exit_title), mb_yesno + mb_iconquestion + mb_defbutton2)=idyes then
exit:=true
else
exit:=false;
end;
end.
Надалі, якщо потрібно поміняти текст у діалогах програми, достатньо відкрити модуль titleunit.pas, внести зміни в значення текстових констант і заново відкомпілювати проект програми.
