|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Чтение значения из поля EditChange по нажатию кнопки
Мне нужно поле для ввода числа (я так понимаю это TEdit). Я ввожу число и при нажатии кнопки запускается юнит (юнит уже написан и в нём переменная) и введённое число приравнивается переменной.
Т.е. я создал поле TEdit, нарисовал кнопку, написал юнит, где будет использоваться переменная, введённая в TEdit. Как присвоить значение переменной, взятой из поля TEdit по нажатию кнопки и запустить юнит с указанной переменной? |
#2
|
|||
|
|||
))) Мда...
Кидаешь на форму кнопку и эдит, затем кликаешь два раза по кнопке, нечто вроде Код:
procedure TForm1.Button1Click(Sender: TObject); begin end; Код:
procedure TForm1.Button1Click(Sender: TObject); var NumFloat: Double; // вещественный тип NumInt: Integer; // целочисленный begin NumFloat := StrToFloat(Edit1.Text); // для вещественного NumInt := StrToInt(Edit1.Text); // для целого end; |
#3
|
|||
|
|||
Всё, спасибо, а как после всего этого запустить юнит на выполнение? Т.е. прочиталось значение, потом запустился юнит, в котором будет использоваться введённое значение.
И ещё, если по вашему примеру, в юните, который будет запускаться, можно будет использовать эту же переменную NumInt? Достаточно описанния в приведённой вами процедуре? Или создавать переменную того же типа и приравнивать её к NumInt? Последний раз редактировалось Guilby, 06.10.2008 в 10:11. |
#4
|
|||
|
|||
В компиляторе нажми F9, либо зеленую стрелку.
Переменная NumInt является локальной для данной процедуры, нигде кроме нее она использоваться не может И вообще почитай книги по делфи) |
#5
|
|||
|
|||
Заработало! :-) Я просто всё в один юнит загнал.
|