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

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

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

Intro.

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

Что б написати консольное додаток у меню Project вибрати команду View Source. Потім закрити Усі юниты, що у проекті, і залишити «голий «dpr файл проекту. Його потрібно їх до такого виду:

program Project1;

{$APPTYPE CONSOLE}.

begin.

end.

Директива {$APPTYPE CONSOLE} варта компілятора і каже йому, що програму потрібно генерувати як консольное приложение.

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

function AnsiToAscii (s: string):string;

var і: 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 і: Integer; //російські символы.

begin.

for i:=1 to length (s) do.

begin.

case s[i] of.

" A ". «ï «: s[i]: =Chr (ord (s[i])-64);

" ð «. «ÿ «: s[i]: =Chr (ord (s[i])-16);

end;

end;

AnsiToAscii:=s.

end;

var.

metters, kilometers: Integer;

comm: String;

t: Boolean=false;

label.

b;

begin.

metters := 0; //ініціалізація переменных.

kilometers := 0;

comm := «» ;

t := false;

writeln («(C)Brutus, 2003, internet.

b:

t := false;

writeln (AnsiToAscii («Запровадьте величину в кілометрів і натисніть »)+ «[Enter] «);

write («-> «);

try.

readln (kilometers);

metters := kilometers*1000;

except.

writeln (AnsiToAscii («Помилка! Запровадьте правильне число. »));

t := true;

end;

if t=true then goto b;

writeln (AnsiToAscii («Результати: »));

writeln (AnsiToAscii (IntToStr (kilometers)+ «кілометрів це «+IntToStr (metters)+ «метрів »));

writeln (AnsiToAscii («Запровадьте слово »)+ «» «again «» «+AnsiToAscii («, що перевести ще, що нибудть. Що б вийти натиснімо просто »)+ «[Enter] «);

try.

readln (comm);

if (comm= «again ») or (comm= «» «again «» «) then t := true;

except.

end;

if t=true then goto b;

end.

Список литературы

Для підготовки даної праці були використані матеріали із сайту internet.