Методы компонента tMemo
Clear |
Используется для очистки текста в окне. |
Add или Append |
Для занесения новой строки в конец текста окна редактирования. Для загрузки текста из файла применяется метод LoadFromFile. Сохранение текста в файле осуществляется методом SaveToFile. |
Memol->Clear(); .
Memol->Lines->Add("ХАРАКТЕРИСТИКА" );
Memol->Lines->Add("Сотрудник "+Editl->Text) ;
Memol->SetFocus() ;
Задание 1
Создайте новое приложение и поместите на форму компонент Memo. Переместите этот компонент на форме так, чтобы он был расположен в ее верхней левой четверти (квадранте). Произведем настройку свойств данного компонента. С помощью свойства Color зададим цвет clSilver для фона компонента. С помощью свойства Cursor можно задать тип курсора, который будет принимать выбранный нами вид при попадании на область ввода компонента Memo при работе программы. Процедура выбора типа курсора представлена на рисунке 1.
Рис 1. Выбор курсора
Задайте для свойства Cursor тип курсора crIBeam. На рисунке он выделен среди других типов курсора. Для задания текста, отображаемого в поле компонента Memo, необходимо воспользоваться свойством Lines и вызвать окно редактора строки String List Editor, щелкнув левой кнопкой мыши по кнопке с тремя точками правее свойства Lines. Измените свойство Lines так, как показано на рисунке 2.
Рис.2. Окно редактора строки String List Editor
// Заполнение массива строками из Memo
int a = Memo1->Lines->Count; //в переменную а помещается количество строк в Memo int* Mas1 = new int[a]; //создан массив Маs1 из а элементов for(int i = 0; i < a; i++) Mas1[i]=StrToInt(Memo1->Lines->Strings[i]); // в цикле заполняются
//элементы массива строками Memo delete [] Mas1; //удалили из памяти Mas1
Задание 2
Расчет функции u = tg 2 (x + y) − e y − z cos x 2 + sin z 2 .
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="3,4"; // Начальное значение X
Edit2->Text="0,74"; // Начальное значение Y
Edit3->Text="19,43"; // Начальное значение Z
Memo1->Clear();// Очистка окна редактора Memo1
// Вывод строки в многострочный редактор Memo1
Memo1->Lines->Add("Лаб. раб. N1. Ст. гр. 740102 Иванов А.А.");
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double x,y,z;
x=StrToFloat(Edit1->Text); // Считывается значение X
Memo1->Lines->Add("x="+Edit1->Text); // Вывод X в окно Memo1
y=StrToFloat(Edit2->Text); // Считывается значение Y
Memo1->Lines->Add("y="+Edit2->Text); // Вывод Y в окно Memo1
z=StrToFloat(Edit3->Text); // Считывается значение Z
Memo1->Lines->Add("z="+Edit3->Text); // Вывод Z в окно Memo1
// Вычисляем арифметическое выражение
double a=pow(tan(x+y),2);
double b=exp(y-z);
double c=sqrt(cos(x*x)+sin(z*z));
double u=a-b*c;
// Выводим результат в окно Memo1
Memo1->Lines->Add("Результат U = '+FloatToStrF(u,ffFixed,8,3)); }
Задание 3
Рассчитать функцию в соотвтствии с вариантом. Оформить приложение таким же образом как и в рассмотренном выше примре. Кроме того, добавьте кнопку выхода из приложения с подтверждением о выходе.
№ варианта |
функция |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
