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

[Jorgeeyv]

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.

[ElKurgan]

Nada más fácil

procedure TForm2.Button1Click(Sender: TObject);
var
i: Integer;
begin
i := StrToIntDef(Edit1.Text, 0);
Edit1.Text := IntToSTr(i + 1)
end;

Saludos

[Ñuño Martínez]

Y si quieres ahorrarte una variable:

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

[ElKurgan]

Tal como va la vida, un ahorro es un ahorro

:D:D:D

Saludos

[TOPX]

Qué tal,
I7v8j1iC9u4
-

[Jorgeeyv]

Perfecto! muchas gracias

[Jorgeeyv]

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