Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 108 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

Boolean;
случае -обрабатывается системой. Для ввода
символа табуляции в этом случае следует на-
жать Ctrl+Tab.
Следует заметить, что, если свойство ScrollBars содержит
ssHorizontal или ssBoth, свойство WordWrap игнорируется, и длинные
строки будут отсекаться границами компонента без переноса текста на
следующую строку. Специфичные методы класса аналогичны методам
класса TEdit. Поскольку компонент является потомком TControl, он
имеет также свойство Text, которое содержит отображаемый компонен-
том текст в виде одной длинной строки. В этой цепочке символов гра-
ницы строк многострочного текста выделяются символами #13#10 (при-
знак EOLN -конец строки). В отличие от этого свойство Lines содержит
пронумерованный список строк: первая строка в этом списке имеет ин-
декс О, вторая - 1, а общее количество строк можно узнать с помощью .
Lines.Count. Свойство Text удобно использовать для поиска в тексте
нужного фрагмента. Чтобы, например, найти и выделить в тексте фраг-
мент, содержащийся в компоненте edSearch типа TEdit, можно исполь-
зовать такой обработчик события OnClick кнопки btSearch:
PROCEDURETForm1.btSearchClick(Sender: TObject);
VAR
k: Integer;
BEGIN
WITH
Memo1 DO
BEGIN
k := pos(edSearch.Text,Text);
IF k>0 THEN
BEGIN
SelStart := k-1;
SelLength := Length(edSearch.Text)
END
END
END;
Если вы захотите, чтобы найденный в тексте фрагмент после уста-
новки SelStart и SelLength сразу бы выделился цветом, установите False
в свойство HideSelection.
Для загрузки в компонент текста из файла и для сохранения текста
в файле удобно использовать методы LoadFromFile и SaveToFile класса
TStrings. Например, следующий обработчик события Оп-Creat формы
Formi загружает в Memol текст проектного файла программы:
PROCEDURE TForm1.FormCreate(Sender: TObject);
BEGIN
108

Страницы