jeffrey_s朋友:测试过了，好像有问题。 ( 积分: 100 )

也许是我对程序结构不熟吧，您写的程序我总是调试不好．能否将您写的组合及限制条件程序,帮我加入到我自己设计的程序界面里,并通过信箱给我传过来?我往我自己设计的界面里加你写的程序时总出问题．多谢！！
我的信箱:sq68686@163.com

也许是我对程序结构不熟吧，您写的程序我总是调试不好．能否将您写的组合及限制条件程序,帮我加入到我自己设计的程序界面里,并通过信箱给我传过来?我往我自己设计的界面里加你写的程序时总出问题．多谢！！
我的信箱:sq68686@163.com

哦。
我稍晚的时候再发过去。

大概要过了晚上才可以，明天再调试吧。

没问题。多谢！！！

jeffrey_s朋友：
我刚才把您写在我界面中的程序测试了一下。组号及显示数据速度很快。我有几个问题请教：
一、我发现你是用固定36选7，能否改成N个数选7？
二、显示在STRINGGRID组件中的数据结果只显示了一部分，如果全部显示，会用多长时间，能否影响到组号运算速度？

程序存在问题：

两数之差最小值、最大值或指定数值输入到相应的栏里后，对组号结果不起任何限制作用？我看了半天不知原因出在哪里？请您帮助我再看一下。

你认为我原来的界面设计，从程序来讲算法有点复杂，且稍微不成熟，界面和说明都很复杂。您这次改动界面是不是就是从您这个想法出发的，如果在我设置的限制条件数量和功能保持不变的话，程序界面该如何设计更科学合理。我设计这个界面是以我个人近几年玩彩的经验设计的，是完全个性化的，通用性肯定会很差。如果按照我设计的界面去编写程序的话，会出现什么问题？望您多指教！ 多谢！！

一、我发现你是用固定36选7，能否改成N个数选7？
//这个，是需要重新写算法。。。


二、显示在STRINGGRID组件中的数据结果只显示了一部分，如果全部显示，会用多长时间，能否影响到组号运算速度？
// 这个你可以更改 const下的 PreWrite 和 MaxTimes ，使可以显示全部试试看。

两数之差最小值、最大值或指定数值输入到相应的栏里后，对组号结果不起任何限制作用？我看了半天不知原因出在哪里？请您帮助我再看一下。
//这个是我程序问题。应该是这句出错。更新一下。
procedure SgToArray(Sg: TStringGrid
var SubMin, SubMax: TSetArray);
var
L, j, i: integer;
begin
for j := 1 to 6 do
for i := 2 to 7 do
begin
SubMin[j, i] := 0;
SubMax[j, i] := 0;
end;

L := 0;
for j := 1 to 6 do
for i := j + 1 to 7 do
begin
L := L + 1;
if Sg.Cells[2, L] = '' then
SubMin[j, i] := 1
else
SubMin[j, i] := StrToInt(Sg.Cells[2, L]);
if Sg.Cells[3, L] = '' then
SubMax[j, i] := MaxNum - MinNum
else
SubMax[j, i] := StrToInt(Sg.Cells[3, L]);
end;
end;

至于界面修改，基本的元素我都没增减，只是换成比较少占资源的控件而已，同样可以实现同样的功能。

知道了!我再测试一下!多谢!