Ver Mensaje Individual
  #2  
Antiguo 26-09-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola y bienvenido kike.

Te pongo un ejemplo con dos opciones para mostrar la suma del contenido de los Edits :
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  r: Double;
begin
   { usando una variable }
   r:= StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text);
   ShowMessage(Format('%8.2f',[r]));   // o también: ShowMessage(FloatToStr(r));
   
   { conversión directa }
   ShowMessage(Format('%8.2f',[StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text)]));
   // o también: ShowMessage(FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text)));
end;

El contenido de un Edit se obtiene de la propiedad Text (TCaption), es un string y hay que convertirlo a número para sumarlo.
Esto último hace la función StrToFloat. La función inversa es FloatToStr. El procedimiento ShowMessage muestra un cuadro de
texto en pantalla. La función Format da formato a un texto. ( consultá la ayuda de delphi sobre los distintos argumentos de Format ).

Saludos.

Última edición por ecfisa fecha: 26-09-2010 a las 08:29:57.
Responder Con Cita