Исключение из проверки по Enabled...?

[kta87]

Пишу проверку на адекватность значений в LabeledEdit'ах

case ComboBox2.ItemIndex of
  0..7:
  begin
  for IndexLE:= 1 to 10 do
   begin
   if ((FindComponent('LabeledEdit'+IntToStr(IndexLE)) as TEdit).Text = '') or
    ((FindComponent('LabeledEdit'+IntToStr(IndexLE)) as TEdit).Text = '0') then
     begin
      ShowMessage('Одно или несколько полей ввода заполнены неверно!');
      (FindComponent('LabeledEdit'+IntToStr(IndexLE)) as TEdit).SetFocus;
     end;
   end;
  end;
 end;

Как добавить в этот код исключение LabeledEdit'ов, которые

Enabled:= False;

[Человек_Борща]

Банальный цикл фо форме:

for i:=0 to Form.ComponentCount -1 do
begin
  If (Components[i] is TLabeledEdit) then
  begin
  if not (Components[i] as TLabeledEdit).enabled then continue else
  begin
  {DO SOMETHING! DO!!!1}
  end;
  end;
end;

[kta87]

Не могу понять в чем ошибка... все компилируется, однако при полях ввода равных '' или '0' программа вылетает с ошибкой: Invalid Class TypeCast вы деляется при этом строка

if ((FindComponent('LabeledEdit'+IntToStr(IndexLE)) as TEdit).Text='') or

Весь код показан ниже

// Проверкана адекватность данных по LabeledEdit;
 for NComp:= 1 to Form1.ComponentCount -1 do
   begin
    if (Components[NComp] is TLabeledEdit) then
     begin
      if not (Components[NComp] as TLabeledEdit).Enabled then Continue else
      begin
      for IndexLE:=1 to 10 do
      if ((FindComponent('LabeledEdit'+IntToStr(IndexLE)) as TEdit).Text='') or
      ((FindComponent('LabeledEdit'+IntToStr(IndexLE)) as TEdit).Text='0') then
        begin
         ShowMessage('Одно или несколько полей ввода заполнены неверно!');
         (FindComponent('LabeledEdit'+IntToStr(IndexLE)) as TEdit).SetFocus;
         Exit;
        end;
      end;
     end;
   end;

Подскажите как исправить?

[Человек_Борща]

Страшная тайна:
1. отсчет начинать с 0-я.
2. Если перебираете компоненты, то FindComponent вам больше не нужен.

[phomm]

Это что-то странное... Вы LabeledEdit приводите к Tedit ? разницу видите, думаю ? Причем в одном месте Вы делаете правильно а в другом неправильно
Если что, вот ещё инфа :
Доступ к тексту написанному в Эдите прицепленном к Labelededit осуществляется через свойство Text, а доступ к тексту в прицепленном лейбле по свойству Editlabel.caption

[kta87]

phomm, и действительно... но вот заметил только после того как вы написали... Человек_борща, согласен - с 0-я, просто тупанул, про ненужность FindComponent - не могли бы написать код в таком виде как вы его представляете?

[phomm]

Человек Борща намекал, что нет смысла одновременно делать перебор компонентов в цикле и метод FindComponent (который сам по себе есть цикл по компонентам, в чем легко убедиться, Ctrl+кликнув по FindComponent, с просмотром его исходника в VCL).

Если Вам надо перебирать все компоненты и что-то с ними делать, то 1 цикл от Вас - нормальное решение, а если Вам надо только 1 компонент из всей массы, то FindComponent избавляет Вас от необходимости делать свой цикл.

[Кольша]

насчет labeledit приводить к edit это моя ошибка(ну я в другой теме вам помогал) я просто забыл про существование такого компонент и думал что ыу вас Tedit так называеться

[kta87]

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

Если Вам надо перебирать все компоненты и что-то с ними делать, то 1 цикл от Вас - нормальное решение, а если Вам надо только 1 компонент из всей массы, то FindComponent избавляет Вас от необходимости делать свой цикл.

Мой первый цикл работает... однако я просил помочь в него добавить исключение из проверки LebeledEdit'ов Enabled которых = False; вот собственно прошу с этим разобраться!
П.С. перебрать нужно по компонентам всем с индексами 1..10.

[Кольша]

for NComp:= 1 to Form1.ComponentCount -1 do
   begin
    if (Components[NComp] is TLabeledEdit) then
     begin
      if  (Components[NComp] as TLabeledEdit).Enabled then
      begin
      for IndexLE:=1 to 10 do
      if ((Components[NComp] as TLabeledEdit).Text='') or
      ((Components[NComp] as TLabeledEdit).Text='0') then
        begin
         ShowMessage('Одно или несколько полей ввода заполнены неверно!');
         (FindComponent('LabeledEdit'+IntToStr(IndexLE)) as TEdit).SetFocus;
         Exit;
        end;
      end;
     end;
   end;