| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Выполняется только половина.....

Страницы:   < 1 2 >

Nick_serov ©   (2006-04-06 00:21:00) 

У меня тут еще одна проблемка возникла.

begin
 try
  if (d < strtofloat(edit4.Text)) and (d > strtofloat(edit3.Text)) then // d - значение в Edit
  a1 := strtofloat(edit5.Text);
  a22 := d / 100 * a1 + d;
  edit6.Text := floattostr(a22);
 except
 end;
end;

begin
  try
   if (d < strtofloat(edit11.Text)) and (d > strtofloat(edit7.Text)) then
   a2 := strtofloat(edit15.Text);
   a33 := d / 100 * a2 + d;
   edit6.Text := floattostr(a33);
   except
  end;
end;

почему-то выполняет только вторую часть кода, а первую толи пропускает, толи она затирается... что делать???

---

ЮЮ   (2006-04-06 10:20:00) [21]

Заведи для a33 Edit7, ибо все что делается в первой части никому не нужно.
На кой ты считаешь a22, помещаешь результат в Edit6, если буквально тут же помещаешь туда a33?


> т.к стоит все это на изменении таблицы!

Не вишу где что-то на этом стоит :)

---

vovnuke   (2006-04-06 10:19:00) [22]

а что ты хочешь получить?

---

Nick_serov   (2006-04-06 10:12:00) [23]

> Yegorchic ©   (06.04.06 00:38) [1]
>
>
> >  if (d < strtofloat(edit4.Text)) and (d > strtofloat(edit3.
>
> > Text)) then // d - значение в Edit
>
>
> Может просто это условие не выполняется?


условие выполняется.... Одно затирает другое (если поменять местами части, то не выполняется другое)

То, что стоит последним, то и выполняется! Что сделать, чтобы избежать этого????   Приписать вторую часть к другому действию нельзя, т.к стоит все это на изменении таблицы!

---

Anatoly Podgoretsky   (2006-04-06 09:10:00) [24]

Бугага ©   (06.04.06 05:27) [3]
А тебе этого мало, это единственная видимая

---

SergP.   (2006-04-06 08:24:00) [25]

> Nick_serov   (06.04.06 00:21)  


Я не знаю логики твоей программы, но есть подозрение что ты забыл про begin ... end

---

TUser   (2006-04-06 05:57:00) [26]

Отключи оптимизацию, Project -> Options

---

Бугага   (2006-04-06 05:27:00) [27]

> почему-то выполняет только вторую часть кода, а первую толи
> пропускает, толи она затирается... что делать???

С чего это ты взял? Со значения Edit6.Text?

---

Anatoly Podgoretsky   (2006-04-06 00:54:00) [28]

А первая смысла не имеет, она полностью дублируется второй, затирает результаты первой.

---

Yegorchic   (2006-04-06 00:38:00) [29]

>  if (d < strtofloat(edit4.Text)) and (d > strtofloat(edit3.
> Text)) then // d - значение в Edit


Может просто это условие не выполняется?

---

Страницы:   < 1 2 >

Наверх