Цитата:
|
не совсем понятно, что вы имели ввиду. В том месте, куда вы предлагаете поставить end он не нужен. Расчетная часть выполняется правильно, не выводится только текст
|
Ваш код:
Код:
if (CB_valuta_per.Text='Доллар') and (CB_perevod_v.Text='Рубль') then
rez:=sum*dol_pr;
Label24.Caption:=FloatToStr(rez) + ' рубля';
По условию выполняется строчка №2 с расчетами, а строчка №3 выполняется всегда в не зависимости от условия.
Мой код:
Код:
if (CB_valuta_per.Text='Доллар') and (CB_perevod_v.Text='Рубль') then begin
rez:=sum*dol_pr;
Label24.Caption:=FloatToStr(rez) + ' рубля';
end;
Все что идет после begin и до end - выполняется
только при выполнении условия.