Объекты StringGrid и DrawGrid

Самостоятельная работа

Begin

Begin

Begin

Begin

Begin

Begin

Begin

edit1.text:=edit1.text+b1.Caption;//Добавляем к набранному в строку цифру, написанную на кнопке

end;

Аналогично опишите процедуры на кнопки «1»-«9»

Опишем процедуру на кнопку «,»:

procedure TForm1.b17Click(Sender: TObject);

if pos(',',edit1.text)=0 then

edit1.text:=edit1.text+b17.Caption;//если в строке еще не встречалась запятая, то добавить ее

end;

Процедура на «+»:

procedure TForm1.b15Click(Sender: TObject);

k:='+';

a:=strtofloat(edit1.text);

edit1.Clear;

end;

Аналогично опишите процедуры на кнопки «-», «*», «/»

Опишем процедуру на кнопку «sqrt»:

procedure TForm1.b11Click(Sender: TObject);

k:='s';

a:=sqrt(strtofloat(edit1.text));

edit1.text:=FloatToStr(a);

end;

Процедура на кнопку «=»

procedure TForm1.b14Click(Sender: TObject);

b:=StrToFloat(edit1.text);

case k of

'+': itog:=a+b;

'-': itog:=a-b;

'*': itog:=a*b;

's': itog:=a;

'/': if b<>0 then itog:=a/b else

showmessage('Деление на 0 запрещено!!!');

edit1.clear;

edit1.setfocus;

end;

end;

Edit1.text:=FloatToStrF(itog,ffFixed,13,3);

end;

Процедура на кнопку «С»:

procedure TForm1.В18Click(Sender: TObject);

edit1.Clear;

a:=0;

b:=0;

itog:=0;

edit1.setfocus;

end;

Создайте проект «Решение квадратного уравнения»

Глава XV. Работа с таблицами

Таблицы представляют собой элементы, позволяющие отображать данные в виде строк и столбцов. Для работы с таблицами в Delphi имеются компоненты StringGrid и DrawGrid.

Таблица DrawGrid позволяет отображать в ячейках текстовую и графическую информацию. Автоматически выводится только сетка, а прорисовка содержимого ячеек – это обязанность программиста.

Более простым и удобным для использования является компонент StringGrid (таблица строк), применяемый для обработки текстовых данных.

Рассмотрим свойства, характерные для этих компонентов:

Свойство	Значение
ColCount	Количество столбцов
FixedColor	Цвет фиксированных ячеек
FixedCols	Количество фиксированных столбцов
FixedRows	Количество фиксированных строк
GridLineWidth	Ширина разделительных линий
RowCount	Количество строк
ScrollBars	Возможность отображения полос прокрутки ssNone – полосы не допускаются ssHorizontal – допускается горизонтальная полоса ssVertical –допускается вертикальная полоса ssBoth – допускаются обе полосы
Cells	Двумерные массив строк таблицы. Например, StringGrid1.Cells[0,0] –обращение к первой ячейке таблицы
Cols	Одномерный массив столбцов таблицы. Например, строка StringGrid1.Cols[1].Add('123'); добавляет во вторую колонку строку '123'
Rows	Одномерный массив строк таблицы. Например, строка StringGrid1.Rows[3]. Clear; очищает 4 строку таблицы.
Col	Текущий столбец
Row	Текущая строка
Options	Содержит параметры таблицы: goFixedVertLine – столбцы фиксированной зоны разделяются вертикальными линиями goFixedHorzLine – ряды фиксированной зоны разделяются горизонтальными линиями goVertLine – столбцы рабочей зоны разделяются вертикальными линиями goHorzLine – ряды фиксированной рабочей зоны goEditing – разрешено редактирование ячейки gpTabs – разрешено обходить ячейки клавишей Tab GoAlwaysShowEditor – разрешено редактировать сфокусированную ячейку

15.2. Проект «Олимпиада»

Создадим программу, которая может быть использована при подсчете общего количества медалей, заработанных спортсменами каждой страны и соответствующего количества баллов, которые вычисляются по следующему правилу: за каждую золотую медаль команда получает семь очков, за серебряную – шесть очков, за бронзовую – пять очков. После подсчетов программа автоматически сортирует страны в соответствии с количеством набранных баллов.

Для ввода исходных данных и отображения результата используем компонент StringGrid (Sg), состоящий из 14 строк и 6 колонок. Ячейки первой зафиксированной строки используются в качестве заголовков колонок таблицы. Первая колонка заполняется программно, назначением события OnActivate на форму и присваиванием ячейкам названий стран, например Sg.cells[0,1]:=’Австралия’.

Программа обработки исходной таблицы запускается щелчком мыши на кнопке «Итоги».

procedure TForm1.BitBtn1Click(Sender: TObject);

Дата добавления: 2015-05-09