Club Delphi  
    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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-07-2018
Jorgeeyv Jorgeeyv is offline
Miembro
NULL
 
Registrado: mar 2018
Posts: 18
Poder: 0
Jorgeeyv Va por buen camino
Codigo para agregar un digito (+1) a un tEdit

Que tal amigos, mi idea es hacer un tButton que al presionarlo (onClick), le sume un digito al valor que esta en el tEdit es decir, si el tEdit lo tengo en el numero 3, al presionarlo que quede el numero 4 y asi cada click +1,tengo que hacer el evento Onclick solo no se que codigo poner. para que al hacer click el valor de mi tEdit se le sume 1.
Responder Con Cita
  #2  
Antiguo 26-07-2018
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.232
Poder: 20
ElKurgan Va camino a la fama
Nada más fácil

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := StrToIntDef(Edit1.Text, 0);
  Edit1.Text := IntToSTr(i + 1)
end;

Saludos
Responder Con Cita
  #3  
Antiguo 26-07-2018
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.000
Poder: 25
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Y si quieres ahorrarte una variable:
Código Delphi [-]
PROCEDURE TForm2.Button1Click (Sender: TObject);
BEGIN
  Edit1.Text := IntToSTr (StrToIntDef (Edit1.Text, 0) + 1)
END;
Que es básicamente lo mismo, pero es que hoy estoy picajoso.
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita
  #4  
Antiguo 26-07-2018
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.232
Poder: 20
ElKurgan Va camino a la fama
Tal como va la vida, un ahorro es un ahorro



Saludos
Responder Con Cita
  #5  
Antiguo 26-07-2018
Avatar de TOPX
TOPX TOPX is offline
Miembro
 
Registrado: may 2008
Ubicación: Bogotá
Posts: 527
Poder: 16
TOPX Va camino a la fama
Qué tal,
-
__________________
"constructive mind, destructive thoughts"
Responder Con Cita
  #6  
Antiguo 27-07-2018
Jorgeeyv Jorgeeyv is offline
Miembro
NULL
 
Registrado: mar 2018
Posts: 18
Poder: 0
Jorgeeyv Va por buen camino
Perfecto! muchas gracias
Responder Con Cita
  #7  
Antiguo 27-07-2018
Jorgeeyv Jorgeeyv is offline
Miembro
NULL
 
Registrado: mar 2018
Posts: 18
Poder: 0
Jorgeeyv Va por buen camino
Perfecto! muchas gracias a todos, justo lo que nececitaba, gracias a todos
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
calculo de digito de control de cuenta bancaria para españa avmm2004 Varios 2 31-03-2015 18:23:56
TEdit primer digito no sea número alquimista Varios 7 25-07-2013 01:24:26
agregar registros de tedit a dbgrid edgar_prospero Varios 23 16-08-2012 00:34:41
Eliminar un digito y mostrar el digito eliminado luisito2011 Varios 17 01-04-2011 06:27:17
Comparar un number dígito a dígito kuan-yiu SQL 2 25-06-2007 18:26:47


La franja horaria es GMT +2. Ahora son las 23:57:20.


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
Copyright 1996-2007 Club Delphi