Компонент 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 кнопки как показано на рисунке. Мы будем вводить слева целые числа и компонент 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.
У меня вопрос а если Edit и кнопка находяться в одном Unit а Lsbel в который должен выводиться текст из Edit в другом Unit?
Почитайте статью https://delphi-prg.ru/organizaciya-vzaimodejstviya-form.
Сделайте связь форм согласно статьи.
А для обработчика кнопки написать следующий код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Label1.Caption:= Form1.Edit1.Text;
Form2.ShowModal;
end;
А как эдиту присвоить начальное значение и при последующем обращении к нему увеличивать это значение на 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, в процессе работы, значение будет увеличиваться на единицу.