Компонента TMemo

Компонент TMemo gредставляет собой редактор текста и предназначен для ввода, редактирования или отображения достаточно длинного текста. Текст хранится в свойстве Lines класса TString и таким образом представляет пронумерованный набор строк (нумерация начинается с нуля).

С помощью свойств и методов (Add, Delete, Clear, Count и т.д.) представляется возможность динамически формировать содержимое компонента. Многие свойства аналогичны свойствам рассмотренного компонента TEdit.

Основные свойства

Allignment– служит для выравнивания текста. Это свойство может принимать такие же значения, как у компонента TEdit.

WordWrap – свойство, которое позволяет управлять переносом слова на новую строку, может принимать булевские значения.

ScrollBars – позволяет устанавливать полосы скроллинга. Может принимать значения:

ssNone– без полос скроллинга,

ssHorizontal– горизонтальная полоса скроллинга,

ssVertical– вертикальная полоса скроллинга,

ssBoth – обе полосы скроллинга.

При этом значение свойства WordWrap игнорируется.

Lines – с помощью этого свойства задается список строк, помещенных в редактор.

Чтобы поместить исходный текст в TMemo на стадии проектирования необходимо в инспекторе объектов выделить свойство Lines и в открывшемся окне диалога ввести соответствующий текст.

Компонент TMemo обрабатывает все события от мыши и клавиатуры, а также реагирует на активизацию компонента и снятию активизации, а также при изменении текста.

Компонент TMemo может также обмениваться информацией с буфером С lipboard. Для этого используются методы:

CopyToClipBoard – копировать в буфер,

CutToClipBoard – вырезать,

PasteToClipBoard – вставить.

Для компонента TMemo может использоваться метод LoadFromFile, с помощью которого можно заполнить поле компонента из текстового файла. Возможна и обратная операция, т.е. можно сохранить содержимое компонента TMemo в файле с помощью метода SaveToFile.

Пример

Обработчик кнопки Button1 – Прочитать

If FileExist(Edit1.Text) then

Memo1.Lines.LoadFromFile(Edit1.Text);

Обработчик кнопки Button5– Сохранить

If Length(Edit2.Text)< > 0 then

Memo2.Lines.SaveToFile(Edit2.Text);

Обработчик кнопки Button2– Копировать

Memo1.CopyToClipboard;

Обработчик кнопки Button4 - Вырезать

Memo2.CutToClipBoard;

Memo2.PastFromClipBoard;

У класса Tstrings имеются такие свойства

Count–целое число, определяющее количество строк,

Strings[Index] – с помощью которого можно получить строку с номером Index (нумерация строк начинается с 0).

Чтобы получить весь текст можно воспользоваться свойством Text. Чтобы обратиться к нулевой строке нужно

Memo1.Lines.Strings[0];

или

Memo1.Lines[0];

У класса TStrings имеются также методы

Add(s) – позволяет добавить строку s в список,

Delete(Index)– удаление строки с номером Index,

Exchange(Index1, Index2) – можно поменять местами две строки,

Index of(s) – позволяет определить номер строки s или -1, если такой нет,

Insert(Index, s) – вставит строку s после номера Index,

Move(CurIndex, NewIndex) - переместить строку СurIndex в строку Newindex.