Подсчитать количество не пустых edit-ов

@Иришк@ · Регистрация: 27.01.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток! помогите пожалуйста, нужно подсчитать кол-во непустых edit'ов.
на мой вариант ругается

Delphi

for i:=1 to 20 do
    begin
      if (form1.Components[i].ClassNameIs('TEdit')) <> ' ' then
      k:=k+1;
    end;

заранее благодарю!

@opv88 · 28.09.2013, 18:45

Pascal

function TForm1.GetNotEmptyCnt: Integer;
var
  i: Integer;
begin
  Result := 0;
 
  for i := 0 to Form1.ComponentCount - 1 do
  begin
    if (Form1.Components[i] is TEdit) and (Trim(TEdit(Form1.Components[i]).Text) <> '') then
      inc(Result);
  end;
end;

@Иришк@ · 28.09.2013, 19:22 **[ТС]**

не работает, вообще в цикл не заходит, хотя у меня первые 9 эдитов из 20 заполнены

точнее заходит, но не накапливает

@opv88 · 28.09.2013, 19:24

Как называется форма, как вызываете GetNotEmptyCnt? Код 100% рабочий. Если на форме как минимум 20 edit'ов, то в цикл зайдет.

@Иришк@ · 28.09.2013, 19:26 **[ТС]**

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  Form2.Show;
  k:=0;
  for i:=1 to 20 do
    begin
      if (Form1.Components[i] is TEdit) and (Trim(TEdit(Form1.Components[i]).Text) <> '')
      then
      begin
        k:=k+1;
      end;
    end;
end;

@opv88 · 28.09.2013, 19:28

У Вас точно на форме именно TEdit?

@northener · 28.09.2013, 19:28

Сообщение от Иришк@

Form1.Components[i]

А эдиты то на какой форме? На Form1 или на Form2? Вот на той форме и ищите.

@opv88 · 28.09.2013, 19:30

И цикл не от 1, а от 0, написал же. И не 20, а кол-во всех контролов на форме минус 1.

@Иришк@ · 28.09.2013, 19:32 **[ТС]**

на первой форме на GroupBox все 20 расположены

Добавлено через 1 минуту

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

И цикл не от 1, а от 0, написал же. И не 20, а кол-во всех контролов на форме минус 1.

и от нуля пробовала до 19. потому что всего их 20 и нужно все проверить

@cotseec · 28.09.2013, 19:34

Сообщение от Иришк@

потому что всего их 20 и нужно все проверить

не лохматьте бабушку.... хоть два, это ни коим образом не значит, что цикл необходимо проводить по количеству искомых эдитов, если первый эдит 23 в списке, а у вас цикл только до 20, естественно вы его не найдете...

@opv88 · 28.09.2013, 19:38

ComponentCount поставьте.

Добавлено через 2 минуты
Короче, тот код, который писал выше - рабочий и больше тут добавить нечего )))

@Иришк@ · 28.09.2013, 19:40 **[ТС]**

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

не лохматьте бабушку.... хоть два, это ни коим образом не значит, что цикл необходимо проводить по количеству искомых эдитов, если первый эдит 23 в списке, а у вас цикл только до 20, естественно вы его не найдете...

работает, спасибо огромное!!!
только все равно не понимаю почему так, если в моем случае я специально сделала эдиты строго от edit1 до edit20

Добавлено через 35 секунд

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

ComponentCount поставьте.

Добавлено через 2 минуты
Короче, тот код, который писал выше - рабочий и больше тут добавить нечего )))

да да

спасибо

@opv88 · 28.09.2013, 19:41

Сообщение от Иришк@

работает, спасибо огромное!!!
только все равно не понимаю почему так, если в моем случае я специально сделала эдиты строго от edit1 до edit20

Перебираются ВСЕ компоненты на форме. У вас кроме edit еще на ней есть что-то. Нумерация edit не связана с нумерацией всех компонент на форме никоим образом.

@Иришк@ · 28.09.2013, 19:43 **[ТС]**

фантастика просто

@cotseec · 28.09.2013, 19:44

Сообщение от Иришк@

не понимаю почему так, если в моем случае я специально сделала эдиты строго от edit1 до edit20

при кидании объекта на форму этот объект добавляется в список Components, кинули первым, например лейбл, он стал под номером 0 (первым), далее кинули ваш первый эдит, он стал вторым, потом накидали 20 лейблов еще, потом стали кидать эдиты, они в списке буду уже вовсе не в первой двадцатке, а после предыдущих накиданных объектов, как видите - позиция в списке ~~форбс~~ Components никак не зависит от номера компонента в названии

@Иришк@ · 28.09.2013, 19:47 **[ТС]**

я поняла

@opv88 0 / 0 / 1 Регистрация: 28.09.2013 Сообщений: 35
	28.09.2013, 19:38	11
	ComponentCount поставьте. Добавлено через 2 минуты Короче, тот код, который писал выше - рабочий и больше тут добавить нечего ))) 0

@Иришк@ 5 / 5 / 2 Регистрация: 27.01.2013 Сообщений: 74
	28.09.2013, 19:40 [ТС]	12
	Сообщение от cotseec не лохматьте бабушку.... хоть два, это ни коим образом не значит, что цикл необходимо проводить по количеству искомых эдитов, если первый эдит 23 в списке, а у вас цикл только до 20, естественно вы его не найдете... работает, спасибо огромное!!! только все равно не понимаю почему так, если в моем случае я специально сделала эдиты строго от edit1 до edit20 Добавлено через 35 секунд Сообщение от opv88 ComponentCount поставьте. Добавлено через 2 минуты Короче, тот код, который писал выше - рабочий и больше тут добавить нечего ))) да да спасибо 0

@Иришк@ 5 / 5 / 2 Регистрация: 27.01.2013 Сообщений: 74
	28.09.2013, 19:43 [ТС]	14
	фантастика просто 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	28.09.2013, 19:44	15
	Сообщение от Иришк@ не понимаю почему так, если в моем случае я специально сделала эдиты строго от edit1 до edit20 при кидании объекта на форму этот объект добавляется в список Components, кинули первым, например лейбл, он стал под номером 0 (первым), далее кинули ваш первый эдит, он стал вторым, потом накидали 20 лейблов еще, потом стали кидать эдиты, они в списке буду уже вовсе не в первой двадцатке, а после предыдущих накиданных объектов, как видите - позиция в списке ~~форбс~~ Components никак не зависит от номера компонента в названии 1

@Иришк@ 5 / 5 / 2 Регистрация: 27.01.2013 Сообщений: 74
	28.09.2013, 19:47 [ТС]	16
	я поняла 0

@Иришк@ 5 / 5 / 2 Регистрация: 27.01.2013 Сообщений: 74
	28.09.2013, 19:22 [ТС]	3
	не работает, вообще в цикл не заходит, хотя у меня первые 9 эдитов из 20 заполнены точнее заходит, но не накапливает 0

@opv88 0 / 0 / 1 Регистрация: 28.09.2013 Сообщений: 35
	28.09.2013, 19:24	4
	Как называется форма, как вызываете GetNotEmptyCnt? Код 100% рабочий. Если на форме как минимум 20 edit'ов, то в цикл зайдет. 0

@opv88 0 / 0 / 1 Регистрация: 28.09.2013 Сообщений: 35
	28.09.2013, 19:28	6
	У Вас точно на форме именно TEdit? 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,252
	28.09.2013, 19:28	7
	Сообщение от Иришк@ Form1.Components[i] А эдиты то на какой форме? На Form1 или на Form2? Вот на той форме и ищите. 0

@opv88 0 / 0 / 1 Регистрация: 28.09.2013 Сообщений: 35
	28.09.2013, 19:30	8
	И цикл не от 1, а от 0, написал же. И не 20, а кол-во всех контролов на форме минус 1. 0

@Иришк@ 5 / 5 / 2 Регистрация: 27.01.2013 Сообщений: 74
	28.09.2013, 19:32 [ТС]	9
	на первой форме на GroupBox все 20 расположены Добавлено через 1 минуту Сообщение от opv88 И цикл не от 1, а от 0, написал же. И не 20, а кол-во всех контролов на форме минус 1. и от нуля пробовала до 19. потому что всего их 20 и нужно все проверить 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	28.09.2013, 19:34	10
	Сообщение от Иришк@ потому что всего их 20 и нужно все проверить не лохматьте бабушку.... хоть два, это ни коим образом не значит, что цикл необходимо проводить по количеству искомых эдитов, если первый эдит 23 в списке, а у вас цикл только до 20, естественно вы его не найдете... 0

@opv88 0 / 0 / 1 Регистрация: 28.09.2013 Сообщений: 35
	28.09.2013, 19:41	13
	Сообщение от Иришк@ работает, спасибо огромное!!! только все равно не понимаю почему так, если в моем случае я специально сделала эдиты строго от edit1 до edit20 Перебираются ВСЕ компоненты на форме. У вас кроме edit еще на ней есть что-то. Нумерация edit не связана с нумерацией всех компонент на форме никоим образом. 0