de str afloat con componentcount

[Kamael]

Quiero pasar 10 edit de strtofloat con este codigo :

var
i : integer ;

begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
begin
StrtoFloatDef(TEdit(Components[i]).Text,0);
end ;

hasta ahí todo bien(eso creo), pero cuando le introduzco a los edit los numeros a sumar me los suma como edits string.Por ejemplo

FloatToStr(edit3.Text) := Edit1.Text+Edit2.Text ... ;
Edit3 = 1+3 = 13 en vez de 4

A que es debido esto si los edits los tengo convertidos a float?

[marcoszorrilla]

Empezado por Kamael

Quiero pasar 10 edit de strtofloat con este codigo :

var
i : integer ;

begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
begin
StrtoFloatDef(TEdit(Components[i]).Text,0);
end ;

hasta ahí todo bien(eso creo), pero cuando le introduzco a los edit los numeros a sumar me los suma como edits string.Por ejemplo

edit3.Text :=FloatToStr( StrToFloat(Edit1.Text)+StrToFloaat(Edit2.Text) )... ;

Edit3 = 1+3 = 13 en vez de 4

A que es debido esto si los edits los tengo convertidos a float?

Un Saludo.

[Kamael]

Yo pensaba que pasando todos los edit a float no tendria que volver a convertirlos.
Suponiendo que el codigo inicial me los convierta, claro.
Gracias por contestarme marcoszoriilla