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

[Serge_Bliznykov]

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

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

берёте те Edit, которые хотите суммировать и прямо в IDE переименовывайте
например, дописывайте в начале текст "sumedit"

было: Edit1
переменовали, стало sumedit1
было Edit2 -> стало sumedit2
и т.д.

вот только после этого сработает код

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

if Copy(Components[i].Name,1,7)='sumedit' then

[kostya_hor]

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

берёте те Edit, которые хотите суммировать и прямо в IDE переименовывайте

Типо так?
Оно все равно не работает или я где-то косячу
и еще ошибка
[Hint] Unit3.pas(186): Value assigned to 'c' never used

[kostya_hor]

все я понял свой косяк
спасибо большое
что бы я длал без вас

procedure TForm3.Button6Click(Sender: TObject);
var
 i,c:Integer;
 sum,f:Real;
 begin
 sum:= 0.0;
  c :=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(c);
              sum := sum + f
           except
           end;

         end;
        Edit21.Text:=FloatToStr(c);
 end;
end.

[Serge_Bliznykov]

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

все я понял свой косяк

ещё одно замечание.

Костя, а для чего Вы считаете сумму, если Вы её никуда не выводите?
sum нужно или вывести в какой нибудь Edit/Label!
либо нет смысла делать sum := sum + f