Создается консольное приложение следующим образом.

Сначала нужно изменю File выбрать команду New | Other Application, затем на вкладке New появившегося диалогового окна New Items выбрать тип создаваемого приложения — Console Application. В результате этих действий на экране появится окно Project1.dpr, в котором находится шаблон главной процедуры консольного приложения. В этом окне можно набирать инструкции программы.

Начинается консольное приложение инструкцией program, за которой следует имя программы. Сначала оно совпадает с именем проекта "по умолчанию". В момент сохранения проекта оно будет автоматически заменено наимя, под которым программист сохранит проект. Следует обратить внимание на то, что консольное приложение создаетсяв Windows, а выполняется как программа DOS.

В DOS используется кодировка ASCII, а в Windows — ANSI, буквы русского алфавита в которых имеют разные коды. Это приводит к тому, что вместо сообщений на русском языке консольное приложение выводит "абракадабру". Поэтому консольные приложения должны выводить сообщения на английском, что не всегда удобно.

Проблему вывода сообщений на русском языке консольными приложениями можно решить, разработав функцию перекодировки ANSI-строки в строку ASCII. Если эту функцию назвать RUS, то инструкция вывода сообщения на русском языке может выглядеть, например, так:

В листинге приведен пример программы, которая запрашивает у пользователя вес в фунтах, пересчитывает его в килограммы и выводит результат на экран. Дтя вывода сообщений используется функция RUS, которая преобразует строку символов в кодировке ANSI в строку символов в кодировке ASCII.

 Показать / Скрыть текст

01.program funt2kg;

02.{$ APPTYPE CONSOLE}

03.// Функция Rus преобразует ANSI'-строку в ASCII-строку

04.function Rus(mes: string):string;

05.// В ANSI русские буквы кодируются числами от 192 до 255,

06.// в ASCII - от 128 до П5 (А..Яа..п) и от 224 до 239 (р. .я) .

07.var

08.i: integer; // номер обрабатываемого символа

09.begin

10.for i:=1 to length(mes) do

11.case mes of

12.'A'..'n' : mes := Chr(Ord(mes) - 64);

13.'p'..'я' : mes := Chr(Ord(mes) - 16);

14.end;

15.rus := mes;

16.end;

17.// основная программа

18.var

19.f:real; // вес в фунтах

20.w:real; // вес в граммах

21.k:integer; // кол-во килограммов

22.g:integer; // колво граммов

23.// w = f'0,4095 = k'lOQO + g

24.begin

25.writeln{Rus('Фунты-килограммы1)];

26.writelnfRus('Введите вес в фунтах и нажмите <Enter>'));

27.write('-> '};

28.readln(f);

30.w := f * 409.5; // один фунт — это 409,5 ip.

31.if w > 1000 then

32.begin

33.k:=Trunc(w/1000);

34.g:=Round(w - k*1000);

35.end

36.else

37.begin

38.k:=0;

39.g:=Round(w);

40.end;

41.write (f:4:2 ,Rus(' ф. - это '));

42.if k >= 1 then write(k,Rus('кг.'));

43.writeln(g, Rus('гp.' ));

44.write(Rus('Для завершения нажмите <Enter>'));

45.readln;

46.end.

 

Начинается текст программы строкой {$APPTYPE CONSOLE}, которая, хотя и похожа на комментарий, таковым не является, т. к. сразу за открывающей скобкой следует знак денежной единицы. Эта директива предназначена для компилятора. Следуя ее указаниям, компилятор генерирует исполняемую программу как консольное приложение. Компиляция консольного приложения выполняется обычным образом, т. е. выбором из меню Project команды Compile. 

После успешной компиляции программа может быть запушена выбором из меню Run команды Run. При запуске консольного приложения на экране появляется стандартное окно DOS-программы. На рис. 4.2 приведен вид DOS-окна, в котором работает консольное приложение, созданное в Delphi.

Процесс сохранения проекта консольного приложения стандартный. В результате выбора из меню File команды Save на экране появляется диалоговое окно Save Project, в котором нужно ввести имя проекта.