Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-01-2011
llSnakell llSnakell is offline
Miembro
NULL
 
Registrado: ene 2011
Posts: 73
Poder: 16
llSnakell Va por buen camino
Hola Caral
Sabes que utilize Numeros Decimales, Con variables Real y utilize StrToFloat Pero Igual Me Aparece Error Puedes Revisarlo ???

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  N1,N2,Total:Real;
begin
  N1:=StrToFloat(Edit1.text);
  N2:=StrToFloat(Edit2.Text);
  Total:=N1+N2;
  Label4.Caption:=FloatToStr(Total);// ¿Como Puedo Hacer Para Colocar Un comentario? Solo Aparece el Numero
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

end.

Última edición por ecfisa fecha: 25-01-2011 a las 04:13:30. Razón: Etiquetas, identado
Responder Con Cita
  #2  
Antiguo 25-01-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
El codigo esta bien, que error te da?, donde?.

Por otro lado acerca de tu duda de poner un comentario con el total de la suma:
Código Delphi [-]
var
N1,N2,Total:Real;
begin
N1:=StrToFloat(Edit1.text);
N2:=StrToFloat(Edit2.Text);
Total:=N1+N2;
Label4.Caption:= 'El Total de la suma es = ' +FloatToStr(Total);
Saludos
__________________
Siempre Novato
Responder Con Cita
  #3  
Antiguo 25-01-2011
llSnakell llSnakell is offline
Miembro
NULL
 
Registrado: ene 2011
Posts: 73
Poder: 16
llSnakell Va por buen camino
Ya se no sale error XD
lo que pasaba que ingresaba numeros decimales como el las calculadoras
con puntos
y lo correcto es con comas
gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Me aparece el error "Insufficient memory for this operation." ilichhernandez Varios 5 23-07-2010 18:48:16
Error en este código. FF funciona/IE da error papulo HTML, Javascript y otros 7 14-11-2007 09:44:23
I. Explorer 7 abre siempre una ventana adicional que da error y se situa al frente Wonni Windows 4 14-06-2007 00:27:37
No me aparece este collate ES_ES_CI_AI en FireBird versión 2.0 calogero Firebird e Interbase 3 03-04-2007 20:54:07
¿Por qué me da este error?Error creating cursor manejador nuri SQL 2 01-08-2005 17:30:28


La franja horaria es GMT +2. Ahora son las 21:47:12.


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