Язык программирования Delphi

Алфавит языка

53 буквы латинского алфавита и символ подчеркивания
Цифры от 0 до

Словарь языка

Ключевые слова (Unit, Goto, Begin, Interface)
Стандартные идентификаторы (Sin, Pi, Real)
Пользовательские

Структура программы

Program <Имя программы>
Uses <Список модулей>
Label <Список меток>
Const <Список констант>
Type <Описание

Подпрограмма

Логически законченная и специальным образом оформленная часть программы, которая может вызываться

Комментарии

Пояснительный текст, который можно записывать в любом месте программы, где разрешен

Примеры комментариев

// Однострочный комментарий
{ Начало многострочного комментария
…
Окончание многострочного комментария}

Основные инструкции языка Delphi

Простые инструкции:
Присваивания
Перехода
Пустая инструкция
Вызова процедуры

Инструкция присваивания

Имя переменной := Выражение
Примеры:
x := x+1;
n := 17*n-1;
s := ‘Дата’+DateToStr

Инструкция перехода

Goto <Метка>;
Пример:
Label m1;
…
Goto m1;
…
m1: <Инструкция>;

Структурированные инструкции:

Составная инструкция
Условная инструкция
Инструкция выбора
Инструкция цикла
Инструкция доступа

Составная инструкция

Begin <Оператор1>; …; <ОператорN>; end;
Пример:
Begin
Beep;
Edit1.Text:=‘Ошибка’;
Exit;
End;

Условная инструкция

If <Условие> then <оператор1> else <оператор2>;
If <Условие> then <оператор>;
Составные условия

Инструкция выбора

Case <ключ выбора> of
<список1> : <оператор1>;
…
<списокN> : <операторN>
Else <операторы>
End;

Пример:

Case DayNumber of
1..5 : strDay := ‘Рабочий день’;
6,7 : strDay :=

Цикл с параметром

For <параметр цикла>:=<начальное значение> to <конечное значение> do <оператор>;
Вместо

Оператор цикла с предусловием

While <условие> do <тело цикла>;
Тело цикла может ни

Оператор цикла с постусловием

Repeat <тело цикла> until <условие>;
Тело цикла всегда выполнится

Для гибкого управления циклами:

Break – немедленный выход из цикла
Continue – досрочное

Инструкция доступа

With <имя объекта> do <инструкция>;
Пример:
//Составные имена пишутся полностью
Form1.Canvas.Pen.Color:=ClRed;
Form1.Canvas.Pen.Width:=5;
Form1.Canvas.Rectangle(10,10,100,100);

//Использование инструкции доступа
With Form1.Canvas do
Begin
Pen.Color := ClRed;
Pen.Width := 5;
Rectangle (10,10,100,100);
End;