Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];

Вниз

Помогите разобраться   Найти похожие ветки 

← →
ser35   (2005-02-25 16:26) [0]

Делаю выбор необходимых значений,  в соответствии с чем произвожу расчет. Не компилирует после слова then. Подскажите, в чем ошибка?
procedure TForm6.Button5Click(Sender: TObject);
var
a: real;
b: real;
c: real;
d: real;
e: real;
V: real;
begin
a:=StrToFloat(Form8.DBEdit1.Text);
B:=StrToFloat(Form8.DBEdit2.Text);
c:=StrToFloat(Form8.DBEdit3.Text);
d:=StrToFloat(Form8.DBEdit4.Text);
e:=StrToFloat(Edit2.Text);
if  DBRadioGroup1.Items:=0 and DBComboBox1.Items:=0
  then
V:= a*e;

Edit1.Text:=FloatToStr(v);

end;

---

← →
Anatoly Podgoretsky ©   (2005-02-25 16:29) [1]

До тех пор пока не скажешь об ошибке не жди ответа.

---

← →
ser35   (2005-02-25 16:30) [2]

[Error] Unit6.pas(430): Incompatible types: "TStrings" and "Integer"

---

← →
begin...end ©   (2005-02-25 16:31) [3]

> ser35   (25.02.05 16:26)

> if DBRadioGroup1.Items:=0 and DBComboBox1.Items:=0 then

if (DBRadioGroup1.Items = 0) and (DBComboBox1.Items = 0) then

---

← →
begin...end ©   (2005-02-25 16:32) [4]

> begin...end ©   (25.02.05 16:31) [3]

Мда... Ну я и хреновину иногда пишу...

---

← →
Anatoly Podgoretsky ©   (2005-02-25 16:41) [5]

Это ты исправил одну ошибку, а еще остались и другие.

ser35   (25.02.05 16:30) [2]
Нельзя проводить логические операции над TStrings и Integer, они не совместимы, для этого надо использовать скобки для смены приоритета. Приоритет логических операций выше приоритета операций отношения.

Но это только одна из трех или более ошибок.

---

← →
MBo ©   (2005-02-25 16:45) [6]

>begin...end ©   (25.02.05 16:32) [4]
>Мда... Ну я и хреновину иногда пишу...
Ты стандартную ошибку попытался исправить, а здесь экстраординарная ;)

---

← →
Arm79 ©   (2005-02-25 17:07) [7]

Может так?

procedure TForm6.Button5Click(Sender: TObject);
var
a: Double;
b: Double;
c: Double;
d: Double;
e: Double;
V: Extended;
begin
with Form8 do
begin
 a:=StrToFloat(DBEdit1.Text);
 b:=StrToFloat(DBEdit2.Text);
 c:=StrToFloat(DBEdit3.Text);
 d:=StrToFloat(DBEdit4.Text);
end;
e:=StrToFloat(Edit2.Text);
if (DBRadioGroup1.ItemIndex=0) and (DBComboBox1.ItemIndex=0)
  //или может имелось в ввиду DBRadioGroup1.Items.Count?
 then
  V := a*e
 else
  V := 0;

Edit1.Text:=FloatToStr(V);
end;


---

← →
DiamondShark ©   (2005-02-25 17:28) [8]

if  DBRadioGroup1.Items:=0 and DBComboBox1.Items:=0

Я ещё понимаю, когда сишники = и == путают. Но такое...

Ну и скобки, конечно. Приоритет булевых операций выше, чем операций сравнения.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.043 c