[Sheitan48]

Всю голову себе сломал, хоть тресни FindComponent не верно отрабатывает если перед ним не сделать Form7.Show;
Не рабочий код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

dm.DbGrid2.DataSource.DataSet.Active:=true;   dm.DbGrid2.DataSource.DataSet.First;   while not dm.DbGrid2.DataSource.DataSet.Eof do     begin       i:=dm.DbGrid2.DataSource.DataSet.RecNo;      { with Form7 do  }       (Form7.FindComponent('MaskEdit'+IntToStr(i+1)) as TMaskEdit).Text:=dm.DbGrid2.DataSource.DataSet.FieldValues['FachPK'];       if ((Form7.FindComponent('MaskEdit'+IntToStr(i+1)) as TMaskEdit).Text='СПЕЦИАЛЬНОСТЬ') then         begin           (Form7.FindComponent('Edit'+IntToStr(i+4)) as TEdit).Enabled:=False;           (Form7.FindComponent('ComboBox'+IntToStr(i)) as TComboBox).ItemIndex:=1;           (Form7.FindComponent('ComboBox'+IntToStr(i)) as TComboBox).Enabled:=False;           (Form7.FindComponent('MaskEdit'+IntToStr(i+6)) as TMaskEdit).Enabled:=False;           (Form7.FindComponent('Edit'+IntToStr(i+8)) as TEdit).Enabled:=False;         end;       dm.DbGrid2.DataSource.DataSet.Next;       end;

Рабочий код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

dm.DbGrid2.DataSource.DataSet.Active:=true; dm.DbGrid2.DataSource.DataSet.First; Form7.Show;//ОТЛИЧИЕ ТОЛЬКО В ЭТОЙ СТРОКЕ while not dm.DbGrid2.DataSource.DataSet.Eof do   begin     i:=dm.DbGrid2.DataSource.DataSet.RecNo;    { with Form7 do  }     (Form7.FindComponent('MaskEdit'+IntToStr(i+1)) as TMaskEdit).Text:=dm.DbGrid2.DataSource.DataSet.FieldValues['FachPK'];     if ((Form7.FindComponent('MaskEdit'+IntToStr(i+1)) as TMaskEdit).Text='СПЕЦИАЛЬНОСТЬ') then       begin         (Form7.FindComponent('Edit'+IntToStr(i+4)) as TEdit).Enabled:=False;         (Form7.FindComponent('ComboBox'+IntToStr(i)) as TComboBox).ItemIndex:=1;         (Form7.FindComponent('ComboBox'+IntToStr(i)) as TComboBox).Enabled:=False;         (Form7.FindComponent('MaskEdit'+IntToStr(i+6)) as TMaskEdit).Enabled:=False;         (Form7.FindComponent('Edit'+IntToStr(i+8)) as TEdit).Enabled:=False;       end;     dm.DbGrid2.DataSource.DataSet.Next;     end;

UPD. Причем даже нет, не так, НЕ ПРАВИЛЬНО отрабатывает именно

Код:

1	if ((Form7.FindComponent('MaskEdit'+IntToStr(i+1)) as TMaskEdit).Text='СПЕЦИАЛЬНОСТЬ') then

т.е. в поле MaskEdit2 100% находится текст СПЕЦИАЛЬНОСТЬ который он все равно не верно сравнивает...
Собственно вопрос как сделать так чтоб выполнить findcomponent над form7 без необходимости показывания 7 формы?
P.S. Parent'ом для искомых компонентов является GroupBox1, но мне это нифига не помогло ибо при поиске в паренте выдает Error

[poli-smen]

Сообщение от Sheitan48

Всю голову себе сломал, хоть тресни FindComponent не верно отрабатывает если перед ним не сделать Form7.Show;
.....
UPD. Причем даже нет, не так, НЕ ПРАВИЛЬНО отрабатывает именно

Код:

т.е. в поле MaskEdit2 100% находится текст СПЕЦИАЛЬНОСТЬ который он все равно не верно сравнивает...
Собственно вопрос как сделать так чтоб выполнить findcomponent над form7 без необходимости показывания 7 формы?
P.S. Parent'ом для искомых компонентов является GroupBox1, но мне это нифига не помогло ибо при поиске в паренте выдает Error

Не удалось мне сымитировать твою проблему - у меня FindComponent прекрасно находит все компоненты на скрытой форме.
Попробуй поставить точку останова на этой проблемной строке, и когда произойдёт в том месте останов - посмотри какое значение содержится в переменной i - скорее всего значение будет отличаться от предполагаемого тобой.

[Sheitan48]

Да пробовал, верное туда значение пишется, собственно оно только здесь и используется, откуда ж ему не верному взяться... Да и тем более оно ж правильно отрабатывает если показать форму а значит и счетчик правильный пишется...

Не знаю с чем это связано, причем просто findcomponent отрабатывает, а на if сравнение со значением не верно делает %) бред какой-то...

[poli-smen]

Сообщение от Sheitan48

Не знаю с чем это связано, причем просто findcomponent отрабатывает, а на if сравнение со значением не верно делает %) бред какой-то...

Тогда посмотри какое значение в действительности в найденном TMaskEdit-е, например добавив перед этой проблемной строкой такую:

Код:

1	ShowMessage('"'+(Form7.FindComponent('MaskEdit'+IntToStr(i+1)) as TMaskEdit).Text+'"');

[Страдалецъ]

Или я чего-то не понимаю или лыжи не едут.
Зачем в вашем случае вообще искать что-то на форме? Вы же фактически работаете с текущим значением:

Код:

1	dm.DbGrid2.DataSource.DataSet.FieldValues['FachPK']

Не проще написать сразу?

Код:

1	if dm.DbGrid2.DataSource.DataSet.FieldValues['FachPK']='СПЕЦИАЛЬНОСТЬ') then

[Sheitan48]

Сообщение от poli-smen

Код:

Сообщение от Страдалецъ

Код:

Код:

Ууу...позор мне) я почему то был на 100% уверен что в базе хранятся строки в верхнем регистре... Оказалось нет. В базе лежит "Специальность"...

И ShowMessage в итоге перед показом формы возвращает "Специальность", а после показа формы "СПЕЦИАЛЬНОСТЬ" (в MaskEdit'e CharCase выставлен в ecUpperCase)... Теперь стало понятно почему не правильно как я думал отрабатывал if...
Но это не отменяет непонимания мной того факта, почему перед показом формы возвращается значение которое находилось в базе, т.е. не обработанное с учетом CharCase...