ООП / Lab2 / Unit1

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	Form1 ->Color = clRed;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
	Form1 ->Color = clYellow;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form1 ->Color = clGreen;
}
//---------------------------------------------------------------------------





void __fastcall TForm1::Button5Click(TObject *Sender)
{
//пусть в Edit2->Text строка  “3.141592”. Получим вещественное число:
double fs; // также и для типа double
fs = StrToFloat (Edit2->Text);
//пусть в Edit3->Text строка “–5”. Получим целое число:
int is; // можно любой знаковый целый тип
is = StrToInt (Edit3->Text);
//обнулим строки (например)
Edit2->Text = "";
Edit3->Text = "";
// поместим сумму в заголовок
double sum = fs + is;
Label1->Caption = FloatToStr(sum);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
{
String s; //тип для работы со строками
s = Edit1 -> Text; // текстовое содержимое попадает в s
s = s + "*"; // добавляем звезду в хвост строки
Edit1 -> Text = s; // обновляем текстовое содержимое Edit1
}

}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button6Click(TObject *Sender)
{
int is,c;
c=Memo1 -> Lines ->Count;
is = StrToInt (Edit4->Text);

if (is>c || is<=0) {  MessageBox(NULL, "Вы ввели номер не существующей строки", "Ошибка", MB_OK | MB_ICONERROR);
}

else {	String s;
s = Edit5 -> Text;
Memo1 -> Lines ->Strings[is-1] = s;
};

}
//---------------------------------------------------------------------------




void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
if (CheckBox1->Checked == 1) Memo1 ->WordWrap =1;
else Memo1 ->WordWrap =0;
}
//---------------------------------------------------------------------------




void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
if (ListBox1->Selected[0]) Memo1 -> Alignment = taRightJustify;
if (ListBox1->Selected[1]) Memo1 -> Alignment = taLeftJustify;
if (ListBox1->Selected[2]) Memo1 -> Alignment = taCenter;
}
//---------------------------------------------------------------------------