Консольное приложение Делфи

---

В Делфи можно создавать приложения, не использующие графический интерфейс Windows. Но для чего? Ведь этот интерфейс очень удобен для пользователя. Это так, но:

• Консольные приложения занимают мало памяти.
• Программы, написанные на Turbo Pascal (правда, не все) можно транслировать и выполнять без сушественных переделок. Так что можно не разыскивать Турбо-Паскаль. Делфи найти проще.

Порядок действий:

• Запустите среду Делфи
• Выберите: Меню\File\New\Other\Console Application Появится окно:

  program Project2;
  
  {$APPTYPE CONSOLE}
  
  uses
    SysUtils;
  
  begin
    { TODO -oUser -cConsole Main : Insert code here }
  end.
  

• В этом тексте для Вас больше понятного, чем непонятного. Непонятное не трогаем, но разбираемся.
  
  • {$APPTYPE CONSOLE} - { } - признак комментария, но $ - признак ДИРЕКТИВЫ компилятору. Именно она говорит, что приложение будет консольным.
    
  • uses SysUtils; - из стандартного модуля (библиотеки) SysUtils будут использоваться подпрограммы. Если интересно - уберите строку. Тогда увидите при работе, какие именно подпрограммы (возможно, что никакие - заявлено автоматически, про запас).
  • { TODO -oUser -cConsole Main : Insert code here } - это комментарий: вставьте сюда Ваш код, т е текст программы. Это и сделаем, но, конечно, описания переменных поставим ПЕРЕД begin, как положено.
• В результате получим (вставляем обычным копированием из файла URAVN2.pas):

  program Project1;
  
  {$APPTYPE CONSOLE}
  
  uses
    SysUtils;
  
  Var a,b,c,diskr,x1,x2: real;
  begin
    { TODO -oUser -cConsole Main : Insert code here }
  write('Введите a,b,c (3 числа, разделяя пробелом)');
  readln(a,b,c);
  diskr := b*b - 4*a*c;
  x1 := (-b + sqrt(diskr))/(2*a);
  x2 := (-b - sqrt(diskr))/(2*a);
  writeln('X1 = ',x1:0:3,' X2 = ',x2:0:3);
  readln;
  end.
  

• На этой стадии работы всегда нужно сохранить проект, причем желательно - в отдельной папке. Создайте где-нибудь папку и выберите в меню: File\Save All Появится диалоговое окно, в котором Вы должны выбрать эту Вашу папку и щелкнуть "Сохранить". Если Вы забыли создать папку, то в этом окне есть кнопка для этого (справа-вверху - с лампочкой).
• Чтобы компилировать, нажмите Crtl-F9, а чтобы компилировать и сразу - исполнить - нажмите F9. (Кстати - в Турбо Паскале - наоборот).
• Все прекрасно получается , но снова, из=за копирования файла MS DOS в Windows - проблемы с кириллицей. В папке появляется исполнимый файл Project1.exe (43Kb)
  
  
  
  
• Все же стало интересно - модуль SysUtils здесь лишний или нет? Чтобы не удалять uses SysUtils; превращаем в комментарий, получим:
  {uses SysUtils;}
  Снова нажимаем F9, все работает, как и раньше, только размер Project1.exe = 17,9Кб то есть уменьшился в 2,5 раза.
• Для полноты счастья перекодирую файл Project1.dpr (в котором и содержится текст программы) из кодировки windows в кодировку MS DOS, запускаю заново Делфи, открываю этот проект (Выбираю в меню File\Open Project\ нахожу и выбираю наш файл Project1.dpr). Запускаю на компиляцию и исполнение (клавиша F9)и получаю: