Мастера, где ошибка?

← →
Солер © (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);

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

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