нахождение едитов равных нулю

[kta87]

Подскажите как из несколькоих едитов определить те, текст которых равен нулю ну и присовить это значение переменной n.

[FaTaL]

Пробежаться по этим едитам и посмотреть их свойство TEdit.Text
В чём проблема то?

[kta87]

ну так и сделал... загрузил в массив едиты и проверил их типа:

for i := 0 to 23 do
  if a[i] = 0 then
  begin
   edit0:= edit0+a[i];
  end;

[Serge_Bliznykov]

да нет, можно вполне обойтись без массива эдитов.
TEdit - это же визуальный компонент. А значит, он имеет смысл только в том случае, когда он видимый и доступный, а значит - принадлежит какому-то объекту формы (или самой форме).
Достаточно перебрать все эдиты, принадлежащие этому объекту и проверить их на заполненность (корректность)... см. Components, ComponentCount


впрочем, Вы не озвучили ИСХОДНУЮ задачу, возможно, что Вам и ваше решение подходит!

[FaTaL]

Что то типа:

for i:=0 to Form1.ComponentCount - 1 do
  begin
    if (Form1.Components[i] is TEdit) and (Form1.Components[i] as TEdit.Text = '0') then
      begin
        //Ваш код
      end;
  end;

Рядом нет Delphi, так что извиняйте.

[kta87]

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

впрочем, Вы не озвучили ИСХОДНУЮ задачу, возможно, что Вам и ваше решение подходит!

Ага подходит и мое и ваше, для общего развития реализовал! Спасибо за логику!