Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   sumar dos números y ver resultado con un boton (https://www.clubdelphi.com/foros/showthread.php?t=70033)

kike22 26-09-2010 06:00:57

sumar dos números y ver resultado con un boton
 
Hola a todos, comienzo a programar en Delphi, pero aun soy muy novato, quisiera sumar dos números que están en dos "edit" y que al presionar un botón me de el resultado, espero me puedan ayudar.. gracias.

ecfisa 26-09-2010 08:10:08

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. :)

kike22 26-09-2010 19:13:58

muchas gracias ecfisa, me sirvio mucho eso de conversiones; ya logre hacer mi programa.
Saludos


La franja horaria es GMT +2. Ahora son las 12:00:34.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi