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