|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Параметр TObject в конструкции with
Как использовать переданный в процедуру параметр типа TObject в конструкции with? Передается TForm
Код:
procedure A(Sender: TObject); begin with (Sender As TForm).Name do Edit1.Text:='1'; end; procedure B(); begin A(Form1); end; Последний раз редактировалось M.A.D.M.A.N., 16.06.2017 в 17:58. |
#2
|
|||
|
|||
А зачем здесь Name?
Код:
with (Sender As TForm).Name do |
#3
|
|||
|
|||
Решено.
Нужно передавать конкретный объект. Код:
procedure A(Sender: TObject); begin with Sender As TEdit do Text:='1'; end; procedure B(); begin A(Form1.Edit1); end; Последний раз редактировалось M.A.D.M.A.N., 16.06.2017 в 17:59. |
#4
|
||||
|
||||
Лучше параметром процедуры конкректный класс объекта передавать, уберутся лишние проверки, здесь универсальность только вредит
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |