|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как умножить все edit ы и показать в label1
помогите мне , в написание кода у меня на форме при нажатие на кнопку создаются новые Edit ы , как их всех умножит с друг другом
смотрите как ниже в картинке |
#2
|
|||
|
|||
Код:
for j:=0 to form1.componentscount do |
#3
|
|||
|
|||
Цитата:
|
#4
|
|||
|
|||
у меня код такой при нажимание создается новые edit ы
Код:
begin i:=i+1; Ed:= TEdit.Create(Self); Ed.Parent:= Form1; Ed.Top:=20*i; ed.text:='5,0';//+IntToStr(i); Ed.Name:='Edit'+IntToStr(i); end; как умножит с друг другом и вывести в label1 Последний раз редактировалось Admin, 15.03.2014 в 12:21. |
#5
|
||||
|
||||
Код:
procedure TForm1.Button1Click(Sender: TObject); var i, b: integer; begin b:= 0; with Form1 do for i:= 0 to ComponentCount-1 do if Components[i] is TEdit then Inc(b, StrToInt((Components[i] as TEdit).Text)); Label1.Caption:= IntToStr(b); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#6
|
|||
|
|||
Цитата:
а как умножит их ? |
#7
|
||||
|
||||
Код:
procedure TForm1.Button1Click(Sender: TObject); var i: integer; b: real; begin b:= 1; with Form1 do for i:= 0 to ComponentCount-1 do begin if Components[i] is TEdit then b:= b * StrToFloat((Components[i] as TEdit).Text); end; Label1.Caption:= FloatToStr(b); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 15.03.2014 в 01:27. |