Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Мастера, где ошибка? [D6, WinXP]

Солер © (2002-07-06 09:21:00)
Уважаемые Мастера! Не могу понять где ошибка.
При выборе значения 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;

Солер (2002-07-06 14:34:00) [1]
Спасибо, теперь всё получилось

MBo (2002-07-06 11:44:00) [2]
кроме того, что уже сказали,

убери этот Begin:

begin

a:=StrToFloat(Edit1.Text);

Солер (2002-07-06 11:36:00) [3]
К сожалению вэтом случае, процедура вообще не выполняется

TTCustomDelphiMaster (2002-07-06 09:36:00) [4]
if combobox1.Text="Иванов"
then
begin
e:=19.3;
f:=1.5;
g:=54.9;
end;

и так далее

Наверх

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