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

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

Хоть и консольные приложения уже издавна вышли из моды, при помощи их можно просто делать рутинные операции. Они занимают не настолько не мало места, не требовательны к ресурсам и стремительно производятся. В этой статье мы разглядим создание простого консольного приложения

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'..'ï' : 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, http://pz1.traffichouse.de');

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.



konsolidirovannij-balansovij-otchet-1-konsolidirovannij-otchet-o-pribilyah-i-ubitkah-2-stranica-24.html
konsolidirovannij-balansovij-otchet-1-konsolidirovannij-otchet-o-pribilyah-i-ubitkah-2-stranica-51.html
konsolidirovannij-balansovij-otchet-1-konsolidirovannij-otchet-o-pribilyah-i-ubitkah-2-stranica-9.html