TEdit - ввод и отображение строки

Компонент класса TEdit представляет собой однострочный редактор текста. С его помощью можно вводить и/или отображать достаточно длинные текстовые строки.

Центральным свойством компонента является Text, которое представляет собой отображаемую компонентом строку. С помощью обработчика события OnChange программа может контролировать вводимый пользователем текст и при необходимости фильтровать его, игнорируя недопустимые символы. В следующем примере компонент фильтрует все символы, которые не соответствуют правильному представлению вещественного числа:

VAR

OldText:STRING;

PROCEDURE TForm1.EditlChange(Sender:TObject) ;

BEGIN

IF Edit1.Text<>' ' THEN

TRY

StrToFloat(Edit1.Text) ;

OldText := Edit1.Text

EXCEPT

// Ошибка преобразования: восстанавливаем прежний текст

Edit1.Text := OldText;

// и позиционируем текстовый указатель в конец текста:

Editl.SelStart := Length(Edit1.Text);

Editl.SelText := ' '

END

END;

При повторении примера подготовьте глобальную переменную OldText типа STRING, в которой запоминается последний правильно введенный текст. Лучше всего ее поместить в секцию PRIVATE класса формы - тогда ее можно не обнулять в момент начала работы.

Позиционировать текстовый указатель на любой символ строки можно с помощью свойств SelStart и SelText: в первое нужно поместить порядковый номер символа от начала текста, после которого должен стоять указатель ввода, во второе - пустую строку.

Свойства компонента:

Методы компонента: