我有多个奖品，奖品单价依次为58元、38元、18元、14.8元、2.8元、0.8元。如果我想把成本控制在5元/客，客流量大概5000人，如果中奖概率是100%，那么每个奖项应该设置怎样的概率，计算公式是什么。 最好是直接可以用EXCEL表格公式进行计算，总中奖概率是100%。 要计算的是，怎么样设定中奖产品的百分比概率，并不是说数量。

m选n有没有更快速的枚举方法呢？ 当前使用的是递归的方法， 当范围区间越大时速度越慢，有没有速度更快或多线程的运行方式呢？

感谢阅读此帖，期盼您的回复。 以下为帖子所描述问题的C#伪代码： List<List<int>> lstlstN = newList<List<int>>(); Random rd = new Random(); int n = 10; for(int i=0;i<n;i++) { List<int> lstM = new List<int>(); int m = rd.Next(1,10); for(int j=0;j<m;j++) { lstM.Add(j); } lstlstN[i].Ad

我新做了一个控件TmyCheckBox，继承自TCustomCheckBox，截获消息WM_PAINT自行处理，运行时经常在执行完inherited就直接刷新控件（非必然，只是经常），然后才运行自绘内容，造成闪烁，请各位大神帮忙看一下如何解决，谢谢。 procedure TmyCheckBox.WMPaint(var Message: TWMPaint); begin inherited; C := TControlCanvas.Create; C.Control:=Self; C.L

有一个老项目的直接能用 我新建一个的连DataModule代码都复制过去了 还是不行！各种设置都一样！

公司电脑统一管理没有管理员权限，经常用的个别软件打开老是提醒输入管理员账号密码，大神们有没有什么办法跳过这个步骤直接运行 就是这种有盾牌的软件

function ExportDBGrid(DBGrid: TDBGrid; SheetName: string;SaveDialog1:TSaveDialog;qry:TADOQuery): boolean;//直接保存，不显示EXCEL var c, r, i, j: integer; app: Olevariant; TempFileName, ResultFileName: string; begin try result := True; app := CreateOLEObject

目前有个项目，想把采集到的数据在PC上显示出来，每个通道的数据类型都是一样，开始考虑用label控件来实现，一来每通道数据有好几个，有几十个通道，这样一个一个label赋值太过于麻烦了，但实在想不出好的办法。另考虑用数据库来实现，用通道地址做索引，实时更新数据库的数据，然后感知显示在对应的关联控件上；只是数据库的数据会保留下来，下次打开时还是会显示对应通道的数据，但通道的地址值是不固定的，在显示时会把不存在的通道数据（以前保留有对应地址的数据）也显示出来，这就有点尴尬了，同时也不想写数据库过于频

本人小白一个，目前工作中涉及大量合同填写工作，每一个客户用的合同都是同一套，每一套里有15个合同文本，填写内容大概有20项左右，如何实现在excel表格里输入填写内容后在word自动生成填写好的合同

看资料说Delphi XE 10.4.2下自动提示有两种模式：一种是classic code insight，一种是language service protocal。用了下发现lsp好像只能通过快捷键ctrl+space来开启启动提示，而不能像classic code insight那样随着输入会自动提示。请教各位，lsp能不能不用快捷键，而是随着代码输入自动提示呢？

已知列表list1=[9.2，6，3，7，8，4]将该列表的每个元素都扩大10倍后存储到列表list2里输出,并收集list2中所有大于50的数将它们存入一个新列表中输出。

之前是delphi7的管理程序，用到sql-server 数据库，infopower4000控件和 indy10控件； 现想转成Lazarus代码，还在windows下用，怎样方案改动最小呢？ 求指导.

procedure TMain.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin If (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) Then Begin if Msg.wParam > 0 Then SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_UP, 0) Else SendMessage(DBGrid

procedure TMain.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If DBGrid1.Datasource.Dataset.RecordCount > 0 Then with DBGrid1.DataSource.DataSet do begin if DataCol = 0 Then

IF MessageBox(Handle, '删除？', '警示', MB_OKCANCEL + MB_ICONWARNING)=IDOK Then begin Main.ADOQuery1.Delete; end; 我要实现的是： ADOQuery01.FieldByName('SourceName').AsString;//获取到了，李四，这段代码防在哪里 点击删除则提示：删除李四？ IF MessageBox(Handle, '删除？+ADOQuery01.FieldByName('St