Скачать: CL | DM;

Мастера, где ошибка?   Найти похожие ветки 

← →
Солер ©   (2002-07-06 09:21) [0]

Уважаемые Мастера! Не могу понять где ошибка.
При выборе значения combobox должно производиться арифметическое
действие согласно значений e,f,g разных для каждого значения combobox.
формула считает, но значение e,f,g не совпадает со значением установленным для
конкретного значения combobox т.е. для "Иванова" e,f,g может принимать значения
"Петрова""Сидорова" и т.д.

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c,d,e,f,g:Single;
begin
if combobox1.Text="Иванов"
then
e:=19.3;
f:=1.5;
g:=54.9;
if combobox1.Text="Петров"
then
e:=6.8;
f:=1.1;
g:=40.8;

if combobox1.Text="Сидоров"
then
e:=9.9;
f:=5.4;
g:=61.6;

if combobox1.Text="Пупкин"
then
e:=9.9;
f:=5.4;
g:=61.6;


begin

a:=StrToFloat(Edit1.Text);
b:=((a*e)/100);
c:=((a*f)/100);
d:=((a*g)/100);

label1.Caption:=FloatToStr(Round(b*100)/100);
label2.Caption:=FloatToStr(Round(c*100)/100);
label3.Caption:=FloatToStr(Round(d*100)/100);

end;

---

← →
TTCustomDelphiMaster ©   (2002-07-06 09:36) [1]

if combobox1.Text="Иванов"
then
begin
e:=19.3;
f:=1.5;
g:=54.9;
end;

и так далее

---

← →
Солер ©   (2002-07-06 11:36) [2]

К сожалению вэтом случае, процедура вообще не выполняется

---

← →
MBo ©   (2002-07-06 11:44) [3]

кроме того, что уже сказали,

убери этот Begin:

begin

a:=StrToFloat(Edit1.Text);

---

← →
Солер ©   (2002-07-06 14:34) [4]

Спасибо, теперь всё получилось

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c