Силаенков А.Н. Лекции по технологии программирования

Подождите немного. Документ загружается.

Первый его элемент задает динамическую длину строки, которая

может принимать значения от 0 до 255 символов. Символы,

составляющие строку, занимают места от 1 до 255. Тип ShortString

предназначен, в основном, для обеспечения совместимости с ранними

версиями Delphi и Borland Pascal.

99 9 Логический строковый тип именуется просто String. Отнесение

его к типу AnsiString или ShortString задается командой $Н. По

умолчанию задается { $Н+}, и String совпадает с AnsiString. Если

задать команду {$Н- }, то String будет совпадать с ShortString и иметь

максимальную длину, равную 255 символам.

999 Для совместимости с другими языками программирования в Delphi

поддерживается класс строк с конечным нулем. Зарезервированных

слов или идентификаторов для этого класса не существует.

999 Строки с конечным нулем состоят из ненулевых символов и

оканчиваются символом с порядковым номером 0 (#0). В отличие от

типов AnsiString, ShortString и WideString, строки с нулевым

окончанием не имеют указателя длины. Конец в этих строках

обозначается нулем.

999 Физически строки с нуль-окончанием подобны массивам символов с

нумерацией элементов от нуля, наподобие array [ 0 . . X] of char, где Х

— некоторое положительное целое, большее нуля, хотя никаких

объявлении подобного рода не происходит. Вместо этого определяется

переменная-указатель PChar и распределяется необходимый объем

памяти. При необходимости строке AnsiString можно присвоить тип

PChar.

В табл. 5 перечислены некоторые процедуры и функции

обработки данных строковых типов.

Таблица 5. Строковые функции

ФункцияQ Описание

Concat (sl, s2, s3)

Возвращает последовательное соединение строк.

Эквивалентна оператору sl+s2+s3

Copy(s, pos, len)

Возвращает подстроку длиной максимум len

символов, начинающуюся в позиции pos строки s

Delete(s, pos, len)

Удаляет максимум len символов из строки s, начиная

с позиции pos

9Insert(sourse, tar-

get, pos)

Вставляет строку source в строковую переменную

target, начиная с позиции pos

Length (s)

Возвращает динамическую длину строки. Подобна

функциям LEN в Basic и strlen — в C/C++

Pos(substring, s)

Возвращает место первого вхождения подстроки

substring в строку s. Подобна функциям SUBSTR в

Basic и strstr () — в C/C++

SetLength(s,

newlen)

Задает новую динамическую длину newlen строковой

переменной s

SetString Задает содержимое и длину строки

Str(x, s)

Преобразует численное значение х в строковую

переменную s

StringOfChars9 Возвращает строку с конкретным числом символов

UniqueString

Делает данную строку уникальной со счетом

обращений 1

Val (s, v, code)

Преобразует строку s в соответствующее численное

представление v

Лекция №5. Объектно-ориентированное программирование

1.Типы данных.

1.1.Массивы

999 Массивы могут быть одно- или многомерными, как в следующем

примере.

999 array [порядковый тип] of тип данных ;

999 array [порядковый тип 1, порядковый тип 2] тип данных;

999 Каждый массив содержит некоторое количество элементов

информации одного типа.

Для обращения к элементу массива укажите имя этого массива и

индекс элемента в квадратных скобках. Пусть, например, массив

определен следующим образом:

999 Var

MyArray: Array [1..10] of Integer;

999 Тогда обращение к его третьему элементу будет выглядеть, как

MyArray[З], и выполняться, как к переменной Integer.

Пример двумерного массива

var

MyArray: Array [1..3,1..3] of Integer;

1.2.Множества

999 Зарезервированное слово set (множество) определяет множество не

более чем из 256 порядковых значений:

999 Set of ordinal type (порядковый тип).

999 Минимальный и максимальный порядковые номера исходного типа

(на основе которого определяется множественный тип) должны быть в

пределах между 0 и 255. Переменная множественного типа содержит

(или не содержит) любое значение исходного порядкового типа.

Каждое значение из заданного диапазона может принадлежать или не

принадлежать множеству. Рассмотрим следующий пример.

999 Type CharSet = set of AnsiChar; // Тип множества символов. ANSI.

999 var MyAlphaSet: CharSet;9999999999 // Переменная типа CharSet.

999 Переменная set может содержать все элементы множества или не

содержать ни одного. При присвоении значения переменной

множественного типа элементы множества (порядковые значения)

указываются в квадратных скобках:

999 MyAlphaSet := ['А', 'Е', 'Г, 'О', 'U', 'Y']; // Все прописные гласные.

999 Пустые квадратные скобки задают пустое множество, не содержащее

ни одного элемента. Это относится ко всем множественными типам.

2. Компоненты ввода и отображения текстовой

информации

Перечень компонентов ввода и отображения текстовой информации:

ПиктограммаКомпонент Страница Описание

Label Standard

(Стандартная)

Отображение текста,

который не изменяется

пользователем во время

работы)

Panel Standard Является контейнером для

группирования элементов

управления, но может

использоваться и для

отображения текстовой

информации.

Edit Standard Отображение, ввод и

редактирование

однострочных текстов

Memo Standard Отображение ввод и

редактирование

многострочных текстов

o Помимо перечисленных компонентов отображать текстовые надписи

можно непосредственно на свойстве Canvas (холст) любого

компонента, имеющего это свойство (в частности , непосредственно на

форме. Например:

Canvas.TextOut(60,16,’Canvas’);

2.1.Текст, отображаемый в компоненте Label.

Текст определяется свойством Caption. Его можно задавать в

процессе проектирования в Инспекторе объектов или изменять

программно:

Label1.Caption:=’Первое число А’;

Если требуется отобразить числовую информацию, можно

воспользоваться функциями FloatToStr и IntToStr:

FloatToStr – для действительного типа,

IntToStr - для целого тип.

Например,Label1.Caption:=’Число :’+ IntToStr(I);

Пример1. Спроектировать простейшую форму для ввода числа,

выполнения программно вычитания заданного числа и вывода результата в

Label.

Рис.10. Пример простейшей формы с выводом результата в Label.

Обработчик события при щелчке на кнопке Вычислить.

procedure TForm1.Button1Click(Sender: TObject);

В Label1 будет выводиться

результат

var

i,code:integer;

begin

val(edit1.Text,i,code); {Ввод числа }

i:=i-2;

label1.Caption:='Число '+ Inttostr(I); {Вывод результата}

end;

end.

Размещение компонента Label на форме определяется параметром

Align. Раскрыв список, можно выбрать параметры размещения: Top,Left,

Right. Параметры Height, Witch определяют его размеры .

Размер метки Label определяется свойством AutoSize. Если

AutoSize=true, то вертикальные и горизонтальные размеры определяются

размером надписи.

Расположение текста на Label определяется параметром Alignment.

У метки Label свойство WordWrap при значении AutoSize=false задает

возможность многострочных надписей.

2.2.Окно редактирования Edit

Вводимый и выводимый текст содержится в свойстве Text. Его можно

задавать в процессе проектирования или изменять программно.

Val(edit1.text,a,code);

Выравнивание текста и перенос строк невозможен. Свойством AutoSize

автоматически подстраивается только высота текста, но не ширина. Если

текст не помещается в окне, то его можно прокручивать с помощью курсора

в окне параметра Text. Для них предусмотрены типичные комбинации

горячих клавиш:

Ctrl-C – копирование выделенного текста в буфер обмена ClipBoard

Ctrl-X – вырезание выделенного текста в буфер обмена ClipBoard

Ctrl-V – вставка из буфера обмена ClipBoard в позицию курсора

Ctrl-Z – отмена последней команды редактирования

Можно установить свойство ReadOnly=false и это не позволит

редактировать текст.

Свойство MaxLength определяет максимальную длину вводимого

текста (при MaxLength=0 – длина не ограничена).

Свойство Modified, доступное только во время выполнения, показывает,

проводилось ли редактирование текста в окне (вначале устанавливается false,

а затем проверяется.

Свойство PasswordChar позволяет превращать окно редактирования в

окно ввода пароля, если установить PasswordChar=*, то при вводе

пользователем текста, в окне будут появляться именно эти символы,

обеспечивая секретность пароля.

2.3.Многострочное окно редактирования Memo.

В компоненте Memo формат(шрифт, его атрибуты, выравнивание)

одинаков для всего текста и определяется свойством Font компонента,

помещенного на форму

Рис. 11. Диалоговое окно Font

Затем выберем Lines . Выбор этой опции

приводит к появлению на экране Редактора

списка строк, в котором удалим Memo1.

Рис. 12. Работа со строками в

редакторе Memo

Основное свойство Qокон редактирования Memo – Lines, содержащее текст

окна в виде списка строк и имеющее тип TStrings.

Lines – начальное значение текста в процессе проектирования в

Инспекторе объектов

Count – количество строк в тексте

Memo1.Lines.Strings[0] – доступ к отдельной (первой) строке текста по

индексу. Индексы меняются как везде в Delphi от 0 до Count-1

Memo1.Lines.Add () – при занесении новой строки в окно редактирования

Memo1.Lines.LoadFromFile(‘text.txt’); - загрузить текст из файла

Memo1.Lines.SaveToFile(‘text.txt’); - сохранение текста в файле

SelStart - позиция курсора в тексте

Memo1.CaretPos.Y+1 и Memo1.CaretPos.X+1 – номер строки и символа в

перед которым расположен курсор.

3. Создание меню

 Tmain Menu позволяет Вам поместить главное меню в

программу. При помещении Tmain Menu на форму это

выглядит, как просто иконка.

Иконки данного типа называют "невидимыми компонентом", поскольку

они невидимы во время выполнения программы. Создание меню включает

три шага:

1) помещение Tmain Menu на форму,

2) вызов Дизайнера Меню щелчком правой клавишей на иконке.

3) определение пунктов меню в Дизайнере Меню

Рис.13. Дизайнер меню

Заголовки пунктов меню вводится в поле Caption.Чтобы вставить

линию-разделитель, нужно в поле Caption в первой позиции указать

символ «-». Последним пунктом обычно идет пункт &Выход. Чтобы

вставить/добавить новые пункты служит клавиша Insert, для удаления

клавиша –Delete. По проектируемому меню перемещаются с помощью

курсорных клавиш. Когда меню подготовлено, редактор нужно закрыть.

При этом на форме появится меню, в точности такое же, как и в будущей

программе.

Пример 1.Создать меню для сложения чисел.

1. Щелкнуть на пиктограмме Tmain

Menu и поместить ее на форму.

2. Щелкнуть правой клавишей на

пиктограмме и в открывшемся

контекстном меню выбрать Дизайнер

меню.

3. Ввести заголовки пунктов меню в поле Captions Инспектора

объектов , например, Файл, Сложение,

4. Печать, Выход.

5. Закрыть окно Дизайнер меню.

Рис.14. Окно Дизайнера меню

Лекция №6. Объектно- ориентированное программирование

1.Компоненты выбора из списков ListBox, CheckListBox, ComboBox.

(внешний вид)

Компоненты ListBox, ComboBox отображают списки строк. Основное

свойство обоих компонентов – Items, имеющее тип Tstrings

Рис. 15. Компонент ListBox

Ввод данных выполняется в редакторе строк, а после нажатия ОК текст

появляется в окне ListBox.

Форматировать текст можно, используя свойство Font (см. рис.11).

TlistBox нужен для показа прокручиваемого списка. Классический пример

ListBox’а в среде Windows - выбор файла из списка в пункте меню File | Open

многих приложений. Названия файлов или директорий и находятся в

ListBox’е.

ListBox только отображает данные и позволяет выбирать.

Список может иметь несколько столбцов, число

которых задается в свойстве Columnus.

Рис.16. Задание числа столбцов в ListBox

Если число столбцов >0, то текст занимает 1/n часть по ширине окна

ListBox, где n- число столбцов.

Список может иметь один из возможных стилей:

Ib Standart- стандартный список по умолчанию;

IbOwnerDrawFixed - каждый элемент списка

имеет фиксированную высоту, но способ его

отображения определяется программистом.

Рис. 17. Задание стиля элементов списка.

IbOwnerDrawVariable – позволяет создавать списки с элементами разных

размеров.

Если высота элементов списка может быть различной, то перед

обработкой события OnDrawItem надо обработать событие OnMeasureItem. В

заголовке соответствующего обработчика имеется параметр, описанный так:

var Height: Integer;

В этот параметр, передаваемый по ссылке, надо записать размер

очередного элемента (его номер указывается в параметре Index), а затем уже

обработать событие OnDrawItem.

Обычно элементы списка выделяются по одиночке. Выбирать сразу

несколько элементов позволяет свойство MuitiSelect (тип Boolean). Если его

значение равно true.

Свойство SelCount содержит число выделенных строк списка. Чтобы

определить, выделен ли конкретный элемент, нужно используя его номер,

обратиться к свойству Selected, представляющему собой массив типа

Boolean. Значение выражения ListBox.Selected[4] равно true. Если пятый

элемент списка выделен.

Первоначально выделенные элементы в списке отсутствуют. Это

означает, что в свойстве ItemIndex ,будет записано значение –1. Все эти

параметры задаются в программе.

Пример. Задать на форме компонент TlistBox, куда будут заноситься

суммы двух чисел.

1.Расположить компонент TlistBox.

2.Введем два поля Edit, куда будем вносить слагаемые.

Рис.18. Внешний вид формы

3.Затем добавим три метки Label.

4.Добавим две фигурных и две простых кнопки.

5.Создадим обработчик события ввода в первое поле Edit1

procedure TForm1.Edit1Change(Sender: TObject);

var

a, code:integer;

begin

label4.Caption:='Ввод первого числа';

val(Edit1.Text,a,code);

end;

6.Создадим обработчик события ввода во второе поле

Edit2

procedure TForm1.Edit2Change(Sender: TObject);