Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

DELPHI 7

.pdf
Скачиваний:
80
Добавлен:
15.08.2019
Размер:
11.38 Mб
Скачать

vk.com/club152685050 | vk.com/id446425943

Компонент TStringGrid – таблица строк

Особенности использования:

-По умолчанию создается таблица размером 5х5;

-Нумерация строк и столбцов начинается с 0;

-Число строк и столбцов, имеющих характер заголовков, задается свойствами FixedCols и FixedRows. Если таблица не содержит заголовочной информации, эти свойства должны принимать значение 0.

vk.com/club152685050 | vk.com/id446425943

Компонент TStringGrid – таблица строк

Установка для просмотра нужной области таблицы (номера первых видимых столбцов и строк)

procedure TForm1.Button1Click(Sender: TObject); Begin

StringGrid1.LeftCol := 3;

StringGrid1.TopRow := 5; End;

vk.com/club152685050 | vk.com/id446425943

Компонент TStringGrid – таблица строк

procedure TForm1.FormCreate(Sender: TObject); Var c,r: integer;

Begin

StringGrid1.ColCount := 10;

StringGrid1.RowCount := 10;

For c:=0 to StringGrid1.ColCount – 1 do For r:= 0 to StringGrid1.RowCount – 1 do StringGrid1.Cells[c,r] :=

‘(’ + IntToStr(c) + ’,’ + IntToStr(r) + ‘)’;

End;

vk.com/club152685050 | vk.com/id446425943

Компонент TStringGrid – таблица строк

Выделение прямоугольной области ячеек:

procedure TForm1.Button1Click(Sender: TObject); Var Grect: TGridRect;

Begin

GRect.Left := 2;

GRect.Top := 2;

GRect.Right := 3;

GRect.Bottom := 5; StringGrid1.Selection := GRect;

End;

vk.com/club152685050 | vk.com/id446425943

Компонент TDrawGrid – рисуемая таблица

Особенности использования:

-Работа по визуальному представлению каждого объекта в ячейке полностью возлагается на программиста;

-Большинство свойств совпадают с аналогичными свойствами таблицы строк;

-Создавать массивы объектов необходимо отдельно

-Класс TDrawGrid может быть использован как базовый класс для создания собственных электронных таблиц со сложным поведением.

vk.com/club152685050 | vk.com/id446425943

Панель System

Компонент TTimer – таймер

Пример

vk.com/club152685050 | vk.com/id446425943

Панель System

Компонент TPaintBox – область рисования

Пример

vk.com/club152685050 | vk.com/id446425943

Технология нисходящего программирования

Метод программирования «сверху-вниз»:

разбиение исходной задачи на ряд подзадач

2

vk.com/club152685050 | vk.com/id446425943

Использование подпрограмм

Основная

(вызывающая)

программа

Вызов подпрограммы

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

Продолжение

основной программы

3

vk.com/club152685050 | vk.com/id446425943

Структурирование программы

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

обособленная (логически завершенная) группа операторов,

оформленная в виде отдельной синтаксической конструкции,

обозначенная именем.

Язык Delphi:

- процедурно-ориентированная часть;

- объектно-ориентированная часть

4