Компоненты Memo и RichEdit являются окнами редактирования многострочного текста. Рассмотрим сначала основные отличия компонентов.
В Memo формат (шрифт, его атрибуты, выравнивание) одинаков для всего текста и определяется свойством Font.
RichEdit работает с текстом в обогащенном формате RTF. Атрибуты вновь вводимого фрагмента текста можно задать свойством SelAttributes, которое имеет подсвойства: Color (цвет), Name (имя), Size (размер), Style (стиль) и др. Устанавливаемые атрибуты влияют на выделенный текст или, если ничего не выделено, на атрибуты нового текста, вводимого, начиная с текущей позиции курсора (определяется свойством SelStart). В RichEdit есть также свойство DefAttributes ( доступно только во время выполнения), содержащее атрибуты по умолчанию, которые действуют, пока не изменятся атрибуты в свойстве SelAttributes. Но значения атрибутов в DefAttributes сохраняются и в любой момент могут быть методом Assign присвоены атрибутам свойства SelAttributes, чтобы вернуться к прежнему стилю.
За выравнивание, отступы и т.д. в пределах текущего абзаца отвечает свойство Paragraph, которое имеет ряд подсвойств:
| Alignment | Определяет выравнивание текста. Может принимать значения taLeftJustify(влево), taCenter (по центру) или taRightJustify(вправо) |
| FirstIndent | Число пикселов отступа красной строки. |
| Numbering | Управляет вставкой маркеров, как в списках. Может прини-мать значения nsNone − отсутствие маркеров, nsBullet − мар-керы ставятся |
| LeftIndent | Отступ в пикселах от левого поля |
| RightIndent | Отступ в пикселах от правого поля |
| TabCount | Количество позиций табуляции |
| Tab | Значения позиций табуляции в пикселах |
Значения подсвойств свойства Paragraph можно задавать только в процессе выполнения приложения, например при нажатии кнопки.
Теперь рассмотрим общее основное свойство Memo и RichEdit − Lines, содержащее текст окна в виде списка строк. Начальное значение текста можно установить в процессе проектирования, нажав кнопку с многоточием около свойства Lines в окне Инспектора Объектов. В открывшемся окне Редактор строки списка можно редактировать или вводить текст.
Во время выполнения приложения можно заносить текст в окно с помощью методов свойства Lines.
Весь текст, представленный одной строкой типа String, внутри которой используются разделители типа символов возврата каретки и перевода строки, содержится в свойстве Text.
Доступ к отдельной строке текста, например первой, можно получить так: Memo1->Lines->String[0].
Свойство только для чтения Count указывает число строк в тексте.
Для очистки текста в окне используется функция Clear().
Для занесения новой строки в конец текста окна редактирования пользуются методами Add или Append свойства Lines.
Для работы с файлом используются методы LoadFromFile и SaveToFile. Например,
RichEdit1->Lines->LoadFromFile(“text.rtf”);
RichEdit1->Lines->SaveToFile(“text.rtf”);
Рассмотрим использование компонентов Memo и RichEdit на примере работы с двумерным массивом (матрицей) чисел.
1. Создайте новый проект и сразу сохраните файл модуля и проект под разными именами в созданной ранее папке.
2. В верхней части формы, слева поместите окно LabeledEdit1. У свойства EditLabel зачистите значение подсвойства Caption.
3. Правее поместите кнопку Button1. В свойство Caption впишите Ввод размеров матрицы (<=10).
4. Ниже поместите вторую кнопку Button2 и зачистите у нее свойство Caption.
5. Ниже, на одной горизонтали поместите окна Memo1 и RichEdit1 и сделайте их размеры равными и достаточными для размещения двух матриц из двузначных чисел, размерами 10x10. Для обоих окон установите имя шрифта Courier ( символы этого шрифта равны по ширине).
6. Впишите обработчики щелчков кнопок, как показано ниже:
int k=0,n,m;
void __fastcall TForm1::Button1Click(TObject *Sender)
{ if(k==0) {LabeledEdit1->EditLabel->Caption="Число строк=";
LabeledEdit1->SetFocus();
}
if(k==1) {n=StrToInt(LabeledEdit1->Text);
LabeledEdit1->EditLabel->Caption="Число столбцов=";
LabeledEdit1->SetFocus();
}
if(k==2) {m=StrToInt(LabeledEdit1->Text);
LabeledEdit1->EditLabel->Caption="Размер матрицы: " +
IntToStr(n)+" x "+IntToStr(m);
LabeledEdit1->Text="";
Button2->Caption="Вывод матриц";
}
if(k==0||k==1)k++;
else k=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int x[10][10],i,j;
Memo1->SetFocus();
AnsiString s[10][10],s1[10],s2[10];
Memo1->Clear();
Memo1->Lines->Add("ИСХОДНАЯ МАТРИЦА");
for(i=0;i<n;i++){
s1[i]="";
for(j=0;j<m;j++){
x[i][j]=random(101)-50;
if(x[i][j]<-9) s[i][j]=" "+IntToStr(x[i][j]);
else if(x[i][j]<0||x[i][j]>9) s[i][j]=" "+IntToStr(x[i][j]);
else s[i][j]=" "+IntToStr(x[i][j]);
s1[i]+=s[i][j];}
Memo1->Lines->Add(s1[i]);}
Memo1->Lines->Add("");
Memo1->Lines->Add("ТРАНСПОНИРОВАННАЯ МАТРИЦА");
for(j=0;j<m;j++){
s2[j]="";
for(i=0;i<n;i++)
s2[j]+=s[i][j];
Memo1->Lines->Add(s2[j]);}
RichEdit1->SetFocus();
RichEdit1->Clear();
/*установка выравнивания по центру*/
RichEdit1->Paragraph->Alignment=taCenter;
/*установка жирного шрифта*/
RichEdit1->SelAttributes->Style =
RichEdit1->SelAttributes->Style << fsBold;
RichEdit1->Lines->Add("ИСХОДНАЯ МАТРИЦА");
/*восстановление атрибутов по умолчанию*/
RichEdit1->SelAttributes->Assign(RichEdit1->DefAttributes);
/*установка выравнивания по левому краю*/
RichEdit1->Paragraph->Alignment=taLeftJustify;
for(i=0;i<n;i++)RichEdit1->Lines->Add(s1[i]);
RichEdit1->Lines->Add("");
/*установка размера шрифта*/
RichEdit1->SelAttributes->Size=12;
/*установка цвета шрифта*/
RichEdit1->SelAttributes->Color= clHotLight;
/*установка стиля шрифта fsItalic*/
RichEdit1->SelAttributes->Style=
RichEdit1->SelAttributes->Style<<fsItalic;
/*установка выравнивания по центру*/
RichEdit1->Paragraph->Alignment=taCenter;
RichEdit1->Lines->Add("ТРАНСПОНИРОВАННАЯ МАТРИЦА");
/*восстановление атрибутов по умолчанию*/
RichEdit1->SelAttributes->Assign(RichEdit1->DefAttributes);
for(j=0;j<m;j++)RichEdit1->Lines->Add(s2[j]);
}
//---------------------------------------------------------------------------
7. Сохраните проект и выполните приложение. Убедитесь в работоспособности приложения, используя матрицы разных и одинаковых (повторным нажатием кнопки Вывод матриц) размеров.
