[Myrik]

суть проблемы: выбираю в ComboBox1 первую строчку, открывается ComboBox7, там тоже выбираю первую строчку, в Memo выводится отчёт: "1) ляляля". затем выбираю в ComboBox1 вторую строчку, открывается ComboBox6, там выбираю первую строчку, в Memo выводится уже вот такой отчёт: "2) ляляля 2) ляляля". если продолжаю переключать комбобоксы, то отчёт в Мемо утраивается, учетверяется и т.д.. В чём ошибка в коде программы?

вот сам код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

procedure TForm2.ComboBox1Change(Sender: TObject); begin  if form2.ComboBox1.ItemIndex=0 then  begin  form2.Button1.Visible:=true;  form2.ComboBox6.Visible:=false;  form2.ComboBox7.Visible:=true;    end;  if form2.ComboBox1.ItemIndex=1 then  begin  form2.Button1.Visible:=true;  form2.ComboBox6.Visible:=true;  form2.ComboBox7.Visible:=false;  end; end;   procedure TForm2.Button1Click(Sender: TObject); begin  ch:=ch+1;  if form2.ComboBox6.ItemIndex=0 then  begin  spec:=form2.ComboBox6.Items[0];  form2.Memo1.Lines.Add(inttostr(ch)+')'+spec);  end;  if form2.ComboBox7.ItemIndex=0 then  begin  spec:=form2.ComboBox7.Items[0];  form2.Memo1.Lines.Add(inttostr(ch)+')'+spec);  end; end;

[Alegun]

Перед тем как что-то добавлять в мемо, нужно вызвать Memo.Clear

[Myrik]

мне надо, чтобы предыдущие строчки в Memo сохранялись

[Alegun]

Тогда надо проверять сколько строчек в мемо и при превышении лимита запрещать их туда добавлять

Код:

1	if form2.Memo1.Lines.Count < 5 then form2.Memo1.Lines.Add(inttostr(ch)+')'+spec);

[Myrik]

тоже не то =D
уже поняла, что предыдущий итеминдекс остается выбранным и поэтому увеличивается отчёт в мемо. теперь вопрос стоит конкретнее: как обнулять итеминдекс? ну то есть делать так, чтобы он не был выбран

[Alegun]

Тогда наверное нужно после добавления в мемо очищать строку комбобокса

Код:

1	form2.ComboBox.Text:= '';

Оффтоп:
Всё равно логики отследить так и не удаётся, ускользает мысль

[Myrik]

спасибо, что откликаешься на мои сообщения)))
я так и не придумала нормальную формулировку своего вопроса =D
завтра препода буду доставать

[Alegun]

Чисто методом тыка, всё же просёк алгоритм c ляляля :-0 даже ошибку смоделировал похожую на оригинал - просто в клике кнопки два раза выполнялось условие, вот переработка, проверьте

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.Button1Click(Sender: TObject); begin  inc(ch);  if ComboBox6.ItemIndex = 0 then    Memo1.Lines.Add(IntToStr(ch) + ')' + ComboBox6.Text)     else        if ComboBox7.ItemIndex = 0 then          Memo1.Lines.Add(IntToStr(ch) + ')' + ComboBox7.Text); end;