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

[[ElKurgan]]

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

[Ñuño Martínez]

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.

[[ElKurgan]]

Tal como va la vida, un ahorro es un ahorro



Saludos

[TOPX]

Qué tal,

-

[Jorgeeyv]

Perfecto! muchas gracias

[Jorgeeyv]

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