Как в цикле последоватеотно пербитать Edit-ы?

[voverrr]

Пытаюсь организовать цикл
на форме четыре Edit-a и комбобокс.
При выборе комбобокса эти едиты последовательно опрашиваются, и если значение в очередном едите=0, то переменная "а" увеличивается на единицу.

Буксует на строчке, где упоминается очередной едит[i].Подскажите, пожалуйста, как пишется команда для перебора этих окошек?

procedure TForm1.cbb1Change(Sender: TObject);
var i, j, a, summa :Integer;

     begin
        j:= cbb1.ItemIndex;
        for i:=1 to j do
        if edt[i].Text :=0   ///// вот тут ошибка
         then....

     end;

вот беда, объяснить-то толком не могу...

[Serge_Bliznykov]

1) абсолютно непонятно, что такое edt[i] ?!
У Вас есть массив, куда Вы заносите все нужные Edit'ы ?
Или что?

2) абсолютно непонятно, что Вы вкладываете в понятие "очередной едит" ? Очередной, это тот, на который переходит фокус с текущего эдита(по табуляции?

3) нельзя сравнивать переменную Text с нулём - обычно эта переменная типа String;

4) есть несколько подходов.
a) завести массив объектов и перебирать их по массиву
b) находить их по именам (если имена эдитов подчиняются какому-то регулярному закону.)
например,

var
  MyComponent: TComponent;
begin
 for d:=2 to 10 do
  begin
   MyComponent := Form2.FindComponent('Edit'+IntToStr(d));
   if MyComponent <> nil then
     if TEdit(MyComponent).Text = '0' then ....;
end;

c) перебрать все имеющиеся на форме Edit'ы

  for k:=0 to Form1.ComponentCount-1 do
     if Form1.Components[k] is TEdit then begin
        if TEdit(Form1.Components[k]).Text = '0' 
          then ...в очередном Edit - ноль...

[voverrr]

1. Edt[i] - это Edit1 при первом витке цикла(i=1), Edit2 - при втором, когда i=2 и т.д.
просто у меня оно пишется почему-то не Edit, а Edt. То ли настройки какие-то, то ли ещё что...

3. а если переменную в едите перевести в ноль?:
edt1.Text:=IntToStr(0);

тут вот в чём проблема. После then он буксует.
как видите познания мои в дельфи на уровне.... (в каком там классе начинают программирование изучать?)-1 класса.

procedure TForm1.cbb1Change(Sender: TObject);
var i, j, a, summa :Integer;

begin
j:= cbb1.ItemIndex;
for i:=1 to j do

    If TEdit(FindComponent('edt'+inttostr(i))).text := 0
     then
      a := a+1;
      lbl2.Caption := IntToStr(a);

end;

[Serge_Bliznykov]

1) как сравнивали text с нулём, так и сравниваете

2) зачем выкинули из моего примера проверку на то, что компонент через FindComponent успешно найден ?

3) примерно так:

procedure TForm1.cbb1Change(Sender: TObject);
var i, j, a, summa :Integer;

begin
j:= cbb1.ItemIndex;
a := 0;
for i:=1 to j do

    If FindComponent('edt'+inttostr(i))<>nil then
        if TEdit(FindComponent('edt'+inttostr(i))).text = '0'
        then
           a := a+1;

      lbl2.Caption := IntToStr(a);

end;

p.s. Вы проверку на то, что найденный компонент с именем edtX является TEdit тоже убрали.
Поэтому, если назовёте какой-нибудь компонент (например, кнопку, именем edt1) получите Access Vioaltion...

[ArtGrek]

If TEdit(FindComponent('edt'+inttostr( i))).text := 0

 If TEdit(FindComponent('edt'+inttostr(i))).text = 0

не вижу у voverrr строки типа а := 0;
может где то в создании формы есть?

эти едиты последовательно опрашиваются

зачем вот ето?
j:= cbb1.ItemIndex;
разве цикл не должен происходить столько раз сколько на нем едитов? или я что то не так понял?

[Serge_Bliznykov]

ArtGrek
спасибо. вот что значит копировать не свой текст, а чужой.
Просмотрел этот баг! (сейчас исправлю в примере...)

[voverrr]

спасибо за советы, закрутился на несколько дней, сейчас буду пробовать.
в общих чертах суть задачи такова:

это калькулятор для просчёта дверей в шкафу-купе.
дверь может быть полноформатная, 2х-фрагментная, 3х-фрагментная, и 4х-фрагментная, за это отвечает За это отвечает ItemIndex (j) у Cbb1. Соответственно этому итеминдексу и выставляется счётчик циклов.

Затем в цикле опрашивается содержимое Едита, и если оно равно нулю - переменная а увеличивается на единицу.

В процессе пользования этой программой предполагается, что если в поле Едит-а стоит ноль(не указана), то высота этой вставки зависит от высоты соседних, которые указаны.
Не знаю, насколько полезные эти мои подробности, ну да ладно, напишу.

а:=0 - у меня действитна, нигде не прописано.

Serge_Bliznykov
2)это мне тут насоветовали попутно

вот картинка того, что у меня есть:


цикл не должен происходить столько раз сколько на нем едитов?
неа. Едитов на форме больше, чем фрагментов на двери.

[ArtGrek]

последнии вариант от Serge_Bliznykov разве не подошел?
только, думаю ItemIndex('4-х фрагментная') = 3
................................... .3...........................2
................................... .2...........................1
................................... .1...........................0
j:= cbb1.ItemIndex + 1;

[voverrr]

ArtGrek
да, с j+1 я понял, что надо подгонять значения.
Serge_Bliznykov
спасибо, Ваш вариант как раз подошёл. Потихоньку разбираюсь как это всё работает.

Соответственно, ещё один вопрос, уже не по теме:
как организовать подпрограмму(если в дельфи вообще есть такое понятие, как подпрограмма)?
В бейсике помнится было достаточно просто - GoSub(номер строки), В дельфи же что-то я не могу найти никакого описания. У меня тут кусок кода есть, который повторяется много раз, ведь как-то можно организовать обращение к нему?

[ArtGrek]

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Podprograma(Sender: TObject; NewCaption: string);
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Podprograma(Sender: TObject; NewCaption: string);
begin
  TButton(Sender).Caption := NewCaption;
end;

procedure TForm1.FormClick(Sender: TObject);
var
  Str: string;
begin
  Str := IntToStr(Left + Top);
  Podprograma(Button1, Str);
end;

end.

но думаю после практики лучше создать новую тему, потому что она объемная