| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проценты [D5, Win95/98]
Son!K © (2003-01-31 21:51:00)Мне надо сделать так, чтоб при введении числа в эдит
это число делилось на нужное число частей в зависимости от процента.
var I1, I2, I3: Integer;
begin
I1 := StrToInt(Edit1.text) //тут 32% от цисла в эдите.
I2 := StrToInt(Edit1.text) //тут 50%
I3 := StrToInt(Edit1.text) //тут 18%
label1.caption := IntToStr(I1);
...
end;
Что-то в таком роде, я новичёк в дэлфи...
Сильно благодарен.
Son!K (2003-01-31 22:30:00) [1]Да это то что надо, огромное вам спасибо.
Skyle (2003-01-31 22:18:00) [2]Если я правильно понял, то задача стоит такая :
В TEdit вводится число(N). Надо переменным I1, I2, I3 присвоить значения такие, что
I1 = 0.32*N
I2 = 0.5*N
I3 = 0.18*N
Если так, то пиши что-то типа этого:
var I1, I2, I3 : Extended(Currency...);
begin
I1 := 0.32 * StrToFloat(Edit1.Text);
I2 := 0.5 * StrToFloat(Edit1.Text);
I1 := 0.18 * StrToFloat(Edit1.Text);
Label1.Caption := FloatToStr(I1);
Label2.Caption := FloatToStr(I2);
Label3.Caption := FloatToStr(I3);
end;
| |
