Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

Проценты   Найти похожие ветки 

 
Son!K   (2003-01-31 21:51) [0]

Мне надо сделать так, чтоб при введении числа в эдит
это число делилось на нужное число частей в зависимости от процента.
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;
Что-то в таком роде, я новичёк в дэлфи...
Сильно благодарен.


 
Skyle ©   (2003-01-31 22:18) [1]

Если я правильно понял, то задача стоит такая :
В 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;


 
Son!K   (2003-01-31 22:30) [2]

Да это то что надо, огромное вам спасибо.



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

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
3-28660
nick-from
2003-01-23 21:20
2003.02.10
Запись пачками


3-28646
cult
2003-01-23 15:19
2003.02.10
Новый чайник в ваших рядах! Принимайте! И сразу вопрос:


4-29173
Vladimir
2002-12-29 14:59
2003.02.10
Помогите пожалуйста


14-29103
petr_v_a
2003-01-24 17:52
2003.02.10
Маркировка товара на складах


14-29069
Дмитрий К.К.
2003-01-23 17:37
2003.02.10
1937-й год