Лабораторная работа №8

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

Добавление и удаление строки

Тема: Компоненты ввода-вывода и редактирования

Цель: Уметь использовать компоненты ввода-вывода

Выработать навыки для создания простейших

компьютерных программ.

Вызвать интерес к изучению предмета.

«Строки».

Приложение позволяет формировать построчно текст. Причем нажатие на «добавить строку» добавляет содержимое однострочного поля ввода как последнюю строку в многострочный текст, в случае, когда такое значение не пусто.

Щелчок по “удалить строку” удаляет ту строку из многострочного текста, в которой находился курсор.

Для определения номера строки, которая должна быть удалена использовать свойство объекта Memo CaretPos, которое в свою очередь является структурой с полями x – номер позиции в строке, y – номер строки.

Код программы:

class TForm1 : public TForm

{

__published: // IDE-managed Components

TMemo *Memo1;

TEdit *Edit1;

TButton *Button4;

TButton *Button2;

TButton *Button1;

void __fastcall Button1Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

void __fastcall Button4Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

};

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Memo1->Lines->Add(Edit1->Text);

Edit1->Text="";

}

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Memo1->Lines->Delete(Memo1->CaretPos.y);

}

void __fastcall TForm1::Button4Click(TObject *Sender)

{

Form1->Close();

}