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.

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

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

Tal como va la vida, un ahorro es un ahorro

:D:D:D

Saludos

Qué tal,
-

Perfecto! muchas gracias

Perfecto! muchas gracias a todos, justo lo que nececitaba, gracias a todos