консольний додаток на Дельфі

Хоч і консольні програми вже давно вийшли з моди, за допомогою них можна легко робити рутинні операції. Вони займають не так багато місця, не вимогливі до ресурсів та швидко виконуються. У цій статті ми розглянемо створення найпростішого консольного застосування

Intro

Сподіваюся, я вас переконав, що консольні програми в "домашньому господарстві" це є гуд. Можна наробити кучу програмок, із смішним розміром, що допомагають практично у всьому. Але як же написати таку програму? Зараз розповім.

Що б написати консольний застосунок потрібно в меню Project вибрати команду View Source. Потім закрити Всі юніти, які були в проекті і залишити "голий" dpr файл проекту. Його треба привести до такого виду:

program Project1;

($ APPTYPE CONSOLE)

begin

end.

Директива ($ APPTYPE CONSOLE) призначена для компілятора і повідомляє йому, що програму потрібно генерувати як консольний додаток.

Слід звернути вніменіе на те, що в Windows Використовується кодування символів ANSI, а в Досе ASCII. Через це замість російських символів ми ризикуємо побачити абракадаброю. Для перетворення російських символів у ASCII в кожному вашому проекті буде потрібна функція

function AnsiToAscii (s: string): string;

var i: Integer;

begin

for i: = 1 to length (s) do

begin

case s [i] of

'А' .. 'п': s [i]: = Chr (ord (s [i]) -64);

'р' .. 'я': s [i]: = Chr (ord (s [i]) -16);

end;

end;

AnsiToAscii: = s

end;

Write і WriteLn

Для виведення повідомлень у вікно застосовуються процедури Write і WriteLn. Їх основна відмінність один від одного полягає в тому, що після виконання процедура Write каретка залишається після слова, а після WriteLn переміщається на новий рядок. Приклад:

Write ( 'Some text');

write ( 'else some text');

Ми побачимо:

Some textelse some text.

WriteLn ( 'Some text');

Write ( 'else some text');

Ми побачимо:

Some text

else some text

Read і ReadLn

Процедури Read і ReadLn призначені для введення в програму значень змінних, тобто зчитування введених користувачем значень. Вони відрізняються один від одного тим, що після виконання процедури Read можна прочитати тією ж функцією число, що стоїть після іншого числа. А якщо ми застосуємо ReadLn, то всі значення, після перше, ігноруються і каретка переміщається на наступний рядок.

Outro

Ну і на останок невеличкий приклад:

program kilometerstometters;

($ APPTYPE CONSOLE)

uses

SysUtils;

function AnsiToAscii (s: string): string;// ця функція дозволяє відображати

var i: Integer;// російські символи

begin

for i: = 1 to length (s) do

begin

case s [i] of

'A' .. '