|
Действия ...
Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
04.04.2003, 14:55
|
|||
|---|---|---|---|
Классы |
|||
|
#18+
Привет. Такой вопрос. Перебираю компоненты на форме. var but:TButton; ed:TEdit; i:DWord; ... for i:=0 to form.componentcount-1 do begin if form.components is TEdit then begin ed:=form.components as TEdit; .... end; if form.components is TButton then begin ed:=form.components as TButton; .... end; end; ... Вопрос! Существует ли тип данных(или объект), которому можно было бы передавать компонент со всеми его свойствами, чтобы не заволить кучу переменных под каждый класс. var Temp:<Класс> i:DWord; ... for i:=0 to form.componentcount-1 do begin if form.components is TEdit then begin Temp:=form.components as TEdit; .... end; if form.components is TButton then begin Temp:=form.components as TButton; .... end; end; ... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.04.2003, 15:08
|
|||
|---|---|---|---|
Классы |
|||
|
#18+
TObject - это предок всего и вся. Если перебираешь компоненты, можешь использовать TComponent. А зачем переменной присваивать. Че делать дальше будешь? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.04.2003, 15:18
|
|||
|---|---|---|---|
Классы |
|||
|
#18+
Такая фича не проидет, пробовал. Если я хоче обратиться в edit'e к св-ву Text, то ничего не компилится, его нет ни у TObject, ни у TComponent. А деляется это для того, чтобы проверить все ли поля юзер заполнить, компонент на форме много, а тупо задавать что надо проверить не хоца(да и гибкости охота, чтобы еще где-нить использовать). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.04.2003, 15:23
|
|||
|---|---|---|---|
|
|||
Классы |
|||
|
#18+
[src] var c: TComponent; begin for i := 0 to ComponentCount - 1 do begin c := Components ; if c is TCustomEdit then with TCustomEdit(c) do begin ..... end else if c is TButton then with TButton(c) do begin ..... end ..... end; end; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.04.2003, 15:26
|
|||
|---|---|---|---|
Классы |
|||
|
#18+
А деляется это для того, чтобы проверить все ли поля юзер заполнить, компонент на форме много, а тупо задавать что надо проверить не хоца(да и гибкости охота, чтобы еще где-нить использовать). Если с базой работаешь, то используй DBAware контролы и проверяй на BeforePost. Если работаешь с разными компонетами (TEdit, TListBox) то без явного приведения к одному из используемых типов не получиться. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.04.2003, 15:30
|
|||
|---|---|---|---|
Классы |
|||
|
#18+
Реально! Спасибо. И последнее, как фокус ввода на такую штуку поставить, вылетает Access violation. Это приложение клиента, и транзакция пойдет только после заполнения всех полей ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.04.2003, 16:57
|
|||
|---|---|---|---|
Классы |
|||
|
#18+
транзакция пойдет только после заполнения всех полей Еще один с транзакциями на клиенте ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=58&mobile=1&tid=2118679]: |
0ms |
get settings: |
11ms |
get forum list: |
17ms |
check forum access: |
6ms |
check topic access: |
6ms |
track hit: |
82ms |
get topic data: |
13ms |
get forum data: |
4ms |
get page messages: |
60ms |
get tp. blocked users: |
2ms |
| others: | 265ms |
| total: | 466ms |
| 0 / 0 |
