Группы

← →
Son!K (2003-02-01 22:28) [0]

У меня такой вопрос:
К примеру у меня в программе много объектов типа едит, надо проверять их на заполненость в нескольких функциях, можно ли объеденить их в группу и проверять так:
if group.text = "" then
...
else
MessageDlg("Вы не заполнили необходимые поля",....);
Что-нибудь на подобии, помогите пожалуйста :)

← →
Юрий Зотов (2003-02-01 23:19) [1]

Таких групп нет. Нужно идти в цикле по списку компонентов формы.

for i := 0 to ComponenrCount - 1 do
if (Components[i] is TEdit) and (TEdit(Components[i]).Text = "") then
begin
MessageDlg(...);
TEdit(Components[i]).SetFocus;
Break
end

← →
shodan (2003-02-02 00:05) [3]

много писать ..
я по почте скопирую текст....
проверь почту
Sorry мало времени...

Группы Найти похожие ветки