Сложение чисел

[kostya_hor]

у меня есть 10 Edit-тов и мне нужно сложить числа которые там нахотятся,такой вариант конечно слишком длинный и он не работает,вылезает ошибка

var
a,b,c,d,f,g,i,k,l,j:integer;
n:Real;
begin
a:=StrToInt(Edit2.Text);  // Ввод данных     #1
b:=StrToInt(Edit12.Text);  // Ввод данных     #2
c:=StrToInt(Edit13.Text);  // Ввод данных     #3
d:=StrToInt(Edit14.Text);  // Ввод данных     #4
i:=StrToInt(Edit15.Text);  // Ввод данных     #5
f:=StrToInt(Edit16.Text);  // Ввод данных     #6
g:=StrToInt(Edit17.Text);  // Ввод данных     #7
j:=StrToInt(Edit18.Text);  // Ввод данных     #8
k:=StrToInt(Edit19.Text);  // Ввод данных     #9
l:=StrToInt(Edit20.Text);  // Ввод данных     #10
n:=a+b+c+d+j+f+g+i+k+l;
Edit22.Text:=FloatToStr(n);
end;

и еще такую штуку надо сделать,если в нескольких Edit число больше 200,то выводится количество этих Edit

[p51x]

Ну так используйте StrToFloat, настраивайте едиты на ввод интов... смотря что надо.

[kostya_hor]

Сообщение от p51x

смотря что надо.

просто сложить числа 
все работает спасибо 
var
a,b,c,d,f,g,i,k,l,j,n:real;
begin
a:=StrToFloat(Edit2.Text);  // Ââîä äàííûõ     #1
b:=StrToFloat(Edit12.Text);  // Ââîä äàííûõ     #2
c:=StrToFloat(Edit13.Text);  // Ââîä äàííûõ     #3
d:=StrToFloat(Edit14.Text);  // Ââîä äàííûõ     #4
i:=StrToFloat(Edit15.Text);  // Ââîä äàííûõ     #5
f:=StrToFloat(Edit16.Text);  // Ââîä äàííûõ     #6
g:=StrToFloat(Edit17.Text);  // Ââîä äàííûõ     #7
j:=StrToFloat(Edit18.Text);  // Ââîä äàííûõ     #8
k:=StrToFloat(Edit19.Text);  // Ââîä äàííûõ     #9
l:=StrToFloat(Edit20.Text);  // Ââîä äàííûõ     #10
n:=a+b+c+d+j+f+g+i+k+l;
Edit22.Text:=FloatToStr(n);
end;

[Serge_Bliznykov]

Сообщение от kostya_hor

у меня есть 10 Edit-тов

не очень продуктивно вручную записывать все эти эдиты.
Хотя, конечно, можно и так.

я бы предложил использовать либо StringGrid + цикл
либо дать нужным Edit'ам одинаковый префикс (приставку) в имени
и тогда элементарно перебрать все компоненты в цикле:

  sum := 0.0;
  count200 :=0;
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then 
         if Copy(Components[i].Name,1,7)='sumedit' then begin
           try
              f := StrToFloat(TEdit(Components[i]).Text);
              if f>200 then inc(count200);
              sum := sum + f
           except
           end;
         end;

[kostya_hor]

Сообщение от Serge_Bliznykov

не очень продуктивно вручную записывать все эти эдиты.

а как сложить количество Edit-ов если число в их превышает 150

[Serge_Bliznykov]

Сообщение от kostya_hor

а как сложить количество Edit-ов если число в их превышает 150

что такое - "сложить количество" ?
Подсчитать, сколько Edit содержит число более 150 ?

так в моём примере подсчитывается количество Edit, содержащих числа больше 200
точно так же можно подсчитать количество Edit, которые содержат число больше 150

[kostya_hor]

Сообщение от Serge_Bliznykov

что такое - "сложить количество" ?

Смотрите у меня есть 10 Edit
Edit1-----169
Edit2-----287
Edit3-----150
Edit4-----345
Edit5-----150
Edit6-----134
Edit7-----98
Edit8-----155
Edit9-----130
Edit10-----70
и получается что тут 4 Edit-а в которых число больше 150

[p51x]

Вон же код выше. Обартите внимание на count200 и иф.

[kostya_hor]

Скорее всего я делаю что-то не так
у меня на форме вопще 20 Edit,да знаю можно через StringGrid,но мне надо так
и мне нужно сложить другие 10 Edit,а мне выводит 0

procedure TForm3.Button6Click(Sender: TObject);
var
 count150,i:Integer;
 sum,f:Real;
 begin
 sum:= 0.0;
  count150 :=0;
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
         if Copy(Components[i].Name,1,7)='sumedit' then
         begin
           try
              f := StrToFloat(TEdit(Components[i]).Text);
              if f>150 then inc(count150);
              sum := sum + f
           except
           end;
         end;
         Edit21.Text:=FloatToStr(sum);
 end;
end.

[p51x]

Сообщение от Serge_Bliznykov

либо дать нужным Edit'ам одинаковый префикс (приставку) в имени
и тогда элементарно перебрать все компоненты в цикле:

Читайте посты, а не тупо копипасьте. Вы даже код не помотрели, а то увидели б сравнение части имени.