edit Str a float

[ecfisa]

Hola kamael.

Viendo el último código que enviaste, creo que tienes un error conceptual.

Cuando realizas la asignacion:
Edit3.Text := Edit1.Text + Edit2.Text;

Aunque allí hayan almacenados dígitos numéricos, estos siempre serán tratados como caracteres.

Sumar los caracteres '1' + '2' y esperar como resultado el número 3, carece de sentido, lo que obtendrás será '12' como una cadena de caracteres y eso es lo lógico.

Saludos.

[BrunoBsso]

A ver, el código que te hice yo era para que veas como almacenar un número real de un TEdit en una variable de tipo real.
Si vos precisás transformar dos TEdits en real y mostrarlo en otro deberías hacer así

Código Delphi [-]
Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text))

O más expandido (pero mismo resultado)

Código Delphi [-]
//Usando 3 variables de tipo Real
F1:=StrToFloat(Edit1.Text);
F2:=StrToFloat(Edit2.Text);
F3:=F1+F2;
Edit3.Text:=FloatToStr(F3);

Yo al principio no sabía que querías sumarlas y mostrarlo en otor edit.
Vos con Edit3.Text := Edit1.Text + Edit2.Text; estás concatenando 2 TEdits en Edit3
Saludos.

[Kamael]

Ya veo que me explique mal. Perdón por ello.
Lo que quiero es sumar el contenido de dos edit y mostrarlo en un tercero.
Pero el problema es que no son solo tres edit, sinó que son unos veinte. entonces para evitarme crear veinte variables y asignarlas a cada una independientemente quiero hacerlo todos a la vez., y asi ahorrarme un monton de codigo.
Gracias a todos ppor preocupar y perdonad mi demora en responderos. No he estado en casa estos dias.(de Fallas en Valencia).
Un saludo

[BrunoBsso]

Bueno, acá te dejo una solución así lo aprendés y podés implementarlo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
  F:Real;
begin
  //Tomar en cuenta que el separador decimal (DecimalSeparator) puede ser . o ,
  F:=0;
  for I := 0 to ControlCount-1 do begin
    if (Controls[i] is TEdit) then begin
      if TEdit(Controls[i]).Tag<>1 then
        F:=F+StrToFloat(TEdit(Controls[i]).Text);
    end;
  end;
  EdResultado.Text:=FloatToStr(F);
end;

Para ese código usé 4 TEdits llamados EdSuma1, EdSuma2, EdSuma3 y EdSuma4, un botón Button1 y un TEdit EdResultado.
La propiedad Tag de los TEdits de sumas la dejé en 0 y la de EdResultado la dejé en 1 para encontrarlo fácil.
Tenés que tener en cuenta que el DecimalSeparator depende del lenguaje del SO.
Podés detectar cuando se escribe una coma o un punto y decidir vos qué caracter tiene que ser, pero eso ya es aparte de lo que necesitás.
Saludos!