Средства разработки приложений для персональных компьютеров. Ефремов О.В. - 21 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

ing (true). Последнее необходимо для того, чтобы содержимое таблицы смещалось одновре-
менно при перемещении движка вертикальной полосы прокрутки.
Свойству Caption кнопки присвойте значение ″Расчет″.
Свойству Caption флажка опции присвойте значение ″С заголовком″.
Присвойте имя frmMain форме, имя sgData сетке строк, имя btnCalc кнопке, pnlBase па-
нели и cbxTitle флажку опции.
Рис. 1. Внешний вид приложения после размещения компонентов и изменения их
свойств
После этих действий форма приложения будет выглядеть, как показано на рис. 1.
Для сохранения файлов проекта используйте папку ″D:\Users\Студен-ты\Delphi″.
Цель создания данного приложения – после нажатия кнопки происходит расчет по некоторому алгоритму
и в сетке строк отображаются данные этого расчета. Если компонент CheckBox отмечен, в первой строке сетки
прописываются обозначения столбцов.
Далее надо определить процедуру, выполняющуюся при нажатии кнопки btnCalc. Гото-
вая процедура будет выглядеть так:
procedure TForm1.btnCalcClick(Sender: TObject);
var
i: byte;
begin
// заголовки столбцов
if cbxTitle.Checked then
begin
sgData.Cells[0,0]:='Число';
sgData.Cells[1,0]:='Квадрат';
sgData.Cells[2,0]:='Корень';
end
else
begin
sgData.Cells[0,0]:='';
sgData.Cells[1,0]:='';
sgData.Cells[2,0]:='';
end;
// расчет
for i:=1 to 20 do
begin
sgData.Cells[0,i]:=IntToStr(i);
sgData.Cells[1,i]:=IntToStr(Sqr(i));
sgData.Cells[2,i]:=FloatToStrF(Sqrt(i),ffGeneral,5,7);
end;
end;
В данном случае алгоритм расчета заключается в следующем: в первом столбце выводятся целые числа от
1 до 20, во втором столбце – квадраты этих чисел, а в третьем – квадратные корни из них.
В приведенном выше коде использованы встроенные функции:
IntToStr – преобразует целое число в строку;
Sqr – возводит число в квадрат;
Sqrt – вычисляет квадратный корень из числа;

Страницы