Codigo para agregar un digito (+1) a un tEdit

		Foros Club Delphi > Principal > Varios
Codigo para agregar un digito (+1) a un tEdit

26-07-2018

Ñ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

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

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 17:23:56
TEdit primer digito no sea número	alquimista	Varios	7	25-07-2013 00:24:26
agregar registros de tedit a dbgrid	edgar_prospero	Varios	23	15-08-2012 23:34:41
Eliminar un digito y mostrar el digito eliminado	luisito2011	Varios	17	01-04-2011 05:27:17
Comparar un number dígito a dígito	kuan-yiu	SQL	2	25-06-2007 17:26:47

La franja horaria es GMT +2. Ahora son las 21:51:14.