to ReallyFail:
我说的方法是针对某一期的...你可以将如下写为一个函数(不管那一期或多少期你循环调用这个函数就得了),至于组你当然要定义一个数组了或其它的了
总之只是提供一种思路,详细的代码只能....:
function toGroup(Code[]):boolean;
begin
Code[]数组里存放的是某一期的中奖号码: 假定为整型吧.
for i:=0 to 7do
//你的八个号
begin
case (Code-1) div 9 of
0: 放入第一组中;
1: 放入第二组中;
3: 放入第三组中;
...
end;
end;
'
end;
然后你再写一个函数根据你的期数得到当期的号码:
function GetPeriod(aPeriodNo):Codes
(
...
//如何取我想不用我写了吧,那要看你的数据在存在什么地方的..如果是表里则查询,文件则定位取值,用户输入当然就最简单了直接付值给返回值即可
)