Компоненты TEdit, TMemo, TListBox

TEdit

Этот компонент представляет из себя текстовое поле ввода. У него есть такие же свойства как и у TButton.

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

Text — это текст который введен;

ReadOnly — разрешенн ли ввод;

MaxLength — максимальная длинна текста. Измеряется в колличестве символов;

HideSelection — будет ли сниматься выделение с текста при потере компонентом фокуса;

PasswordChar — символ отображаемый вполе вместо всех других символов - используется для скрытия пароля;

Основные события:

onChange — происходит при любом изменении отображаемого текста;

onClick — происходит при клике по компоненту;

Все остальные свойства аналогичны свойствам формы.

Научимся программно извлекать введенные данные, а также записывать в поле. Для этого выложим на форму 2 Button и 1 Edit.

Создаем событие по клику на первую кнопку и пишем следующий код:

ShowMessage('В Edit1 написан текст: '+Edit1.Text);

Текст " В Edit1 написан текст: " будет выводиться всегда во всех сообщениях. К нему мы прибавляем Edit1.Text, т.е. строчку содержащую текст введенный в Edit.

А по нажатию на вторую кнопку будем в поле Edit1 присваивать что-нибудь свое.

Edit1.Text: ='Текст изменился';

В итоге у Вас должно получиться 2 процедуры:

procedure TForm1.Button1Click(Sender: TObject);

Begin

ShowMessage('В Edit1 написан текст: '+Edit1.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);

Begin

Edit1.Text: ='Текст изменился';

end;

TMemo

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

Lines — содержит все строки введенные в компонент;

ReadOnly — разрешенн ли ввод;

MaxLength — максимальная длинна текста. Измеряется в колличестве символов;

HideSelection — будет ли сниматься выделение с текста при потере компонентом фокуса;

ScrollBars — какие полосы прокрутки будут отображаться;

WantReturns — разрешено ли использовать клавишу Enter;

WantTabs — разрешено ли использовать клавишу Tab;

WordWrap — будет ли переноситься текст на новую строчку если не входит;

События аналогичны компоненту TEdit.

Теперь научимся работать с TMemo. Создайте новый проект (File –> New –> Application). Выложите на форму 1 TMemo и 1 TButton. Выделите Memo1 и найдите свойство Lines в инспекторе объектов. Щелкните по этому свойству, а затем по кнопке. Появится окно с текстом " Memo1" — это текст который будет в Memo при запуске программы. Его можно убрать, что и нужно сделать. Теперь создаем событие по нажатию на кнопку:

procedure TForm1.Button1Click(Sender: TObject);

Begin

Memo1.Lines.Add('Была нажата кнопка');

end;

Теперь после нажатия на кнопку в Memo1 добавится новая строчка.

Выложите еще одну кнопку и в событии onClick пишем:

Memo1.Lines.Delete(0);

Теперь после нажатия на вторую кнопку удалится самая первая строчка. " 0" и означает что будет удалена нулевая строчка (нумерование ведется начиная с 0)

А если нам нужно взять i-тую строчку и вывести ее на экран мы пишем следующий код:

ShowMessage(Memo1.Lines[0]);

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

Колличество написанных строк хранится тут:

Memo1.Lines.Count;

Обратите внимание, что тут нумерация идет с 1. А следовательно если будем прогонять все строки в цикле то будем писать так:

For i: =0 to Memo1.Lines.Count-1 do

Begin

{Выполняем то что нужно}

end;

Чтобы сохранить весь текст в файл просто пишем:

Memo1.Lines.SaveToFile('C: \Test.txt');

А чтобы загрузить из файла пишем:

Memo1.Lines.LoadFromFile('C: \Test.txt');

Чтобы очистить Memo:

Memo1.Clear;

TListBox

Основные cвойсва:

Items — коллекция строк;

MultiSelect — разрешено ли выделение нескольких строк;

Columns — колличество колонок;

Color — цвет фона;

Sorted — сортировка по алфавиту;

Остальные свойства были объяснены у других компонентов.

Добавление строчки делается так:

ListBox1.Items.Add('Текст');

А теперь разберемся как же добавить текст из Edit. Выложим на форму TListBox, TEdit и TButton. Создайте событие у кнопки onCreate:

ListBox1.Items.Add(Edit1.Text);

А если мы будем жать кнопку ничего не вводив в Edit, то будут добавляться пустые строки. Для того чтобы такого небыло просто перед добавлением сравним: пустое ли поле Edit. Если не пустое добавим. Сейчас разберем как это можно реализовать. Изменим ту же самую процедуру Button1Click. Вот как все должно выглядеть:

procedure TForm1.Button1Click(Sender: TObject);

Begin