Компонент Delphi Edit

Компонент Delphi Edit расположен на странице "Standard" Палитры компонентов. Он представляет из себя одно строчный редактор для ввода, отображения и изменения текста. Основное свойство, содержащее данные введенные пользователем это Text.  Оно имеет тип string и может хранить и передавать только текстовые данные. Если необходимо записать какое либо число, то оно будет представлено в текстовом виде. При создании нового компонента Edit на форме свойство Text будет совпадать с именем (Edit1, Edit2 и далее по нарастающей).   Желательно его сразу очистить.

У компонента Edit нет управляющих реакций на нажатие клавиш ENTER и ESC, хотя в остальном он имеет свойства редакторов. Перемещение курсора по строке клавишами со стрелками, удаление ненужных символов DELETE и Backspase выделение текста, вот неполный перечень его возможностей.

Для ограничения ввода символов в поле Text свойство MaxLength должно быть равно допустимому количеству символов. При  MaxLength равным нулю нет ограничений на длину текста.

Очистить поле можно командой

Edit1.Clear;

или присвоить значение пустой строки

Edit1.Text := '';

Если необходимо, чтобы текст содержал бы строки того или иного регистра воспользуемся свойством CharCase. Оно может принимать следущие значения:

ecUpperCase - текст в строке преобразуется к верхнему регистру;
ecLowerCase - текст в строке пишется в нижнем регистре;
ecNormal - размер символом не меняется (по умолчанию);

Компонент Edit можно использовать для ввода пароля. Для этого свойству PasswordChar нужно присвоить звездочку или какой нибудь другой символ, который будет писаться вместо вводимого текста.

Расположим на форме компоненты 2 Edit, 2 Label и
2 кнопки как показано на рисунке.Пример с компонентам Edit Мы будем вводить слева целые числа и компонент Label1 будет выводить удвоенное число. Справа вещественные числа и результатам будет деление этого числа на два.
Соответственно программный код будет таким:

procedure TForm1.Button1Click(Sender: TObject);
begin
    Label1.Caption := IntToStr (StrToInt(Edit1.Text) * 2);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Label2.Caption := FloatToStr(StrToFloat(Edit2.Text) / 2);
end;

Функции IntToStr и FloatToStr переводят соответственно целые и вещественные числа в текстовую строку, а StrToInt и StrToFloat наоборот.

Итог: был разобран компонент  Delphi Edit, использование его с числами. Ознакомились с функциями IntToStr, FloatToStr,  StrToInt и StrToFloat.

Компонент Delphi Edit: 4 комментария

  1. У меня вопрос а если Edit и кнопка находяться в одном Unit а Lsbel в который должен выводиться текст из Edit в другом Unit?

  2. А как эдиту присвоить начальное значение и при последующем обращении к нему увеличивать это значение на 1?

    • В инспекторе объектов задаем свойству text значение (допустим 9). Создаем событие например щелчок мыши:
      procedure TForm1.Edit1Click(Sender: TObject);
      var
      i : integer;
      begin
      i := StrToInt(Edit1.Text);
      i := i + 1;
      Edit1.Text := IntToStr(i);
      end;

      И при щелчке на компоненте Edit, в процессе работы, значение будет увеличиваться на единицу.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *