Запустите созданную программу и исследуйте ее работу

Поэкспериментируйте с многострочным полем редактирования Memo1, вводя и корректируя в нем любой текст. Обратите внимание на то, что в этом окне можно выполнять такие же действия с текстом, как и в текстовом редакторе: выделять фрагмент текста, копировать, переносить или изымать этот фрагмент. Вытрите текст с помощью команды главного меню "Очистить поле вывода". Еще раз введите текст и вытрите его с помощью контекстного меню (для вызова контекстного меню формы нужно щелкнуть правой клавишей мыши на свободном месте формы). Закончите работу программы, щелкнув на команде меню "Конец".

21. Запрограммируйте команду "Протабулировать".

Свойство Lines объекта типа Memo есть комплексным, то есть также есть объектом со своими свойствами и методами. Результат работы этой программы - это таблица, которая состоит из нескольких строк. Чтобы прибавить в поле Memo1 новую строку таблицы, надо изменить значения комплексного свойства Lines (строки) с помощью его метода Append (вставить) с одним аргументом - символьной строкой: Memo1->Lines->Append (строка символов). Выполните команду "Протабулировать" из главного меню, щелкнув на ней один раз. Появится заготовка функции, которую заполните так:

void_fastcall TForm1::N3Click(TObject *Sender)

{

float x, y;

float а = StrToFloat(Edit1 -> Text); // Получаем числовое значение левой границы

float b = StrToFloat(Edit2 -> Text); // и правой границы

float h = StrToFloat(Edit3 -> Text); // Получаем числовое значение шага

Memo1 ->Lines->Append("X\tY"); // В объект Memo1

//вставляем строку с подписями столбцов //аргумента X и значения функции Y через //табулятор \t.

//Начинаем табулировать с левой границы,

// пока аргумент x не превысит правую //границу //с определенным допуском:

for (x = a; x < b + h / 2; x += h)

{

y = sin(x); // Вычисляем значение функции

if (CheckBox1 -> Checked) // Если стоит флажок "На экран"

// Формируем и вставляем в поле Memo1 символьные строки из аргумента

// и значения функции

Memo1 -> Lines -> Append(FloatToStrF(x, ffFixed, 2, 2) + '\t' +FloatToStrF(y, ffFixed, 2, 2));

}

22. Выполните программу и поэкспериментируйте с разными значениями левой, правой границы и шага аргумента. Закройте окно программы "Табулирование функции".

Поиск по сайту: