将中奖号码01.03.06放到一个StringList中，在每行中调用如下函数对进行号码字段进行判断是否中奖。
假设：号码字段依次为F1,F2,...F6，StringList为bonus
Function isWinner(ds : TDateSet, bonus: TStrings) : Boolean;
var
cnt, i : Integer;
begin
cnt := 0;
for i := 1 to 6 do begin
if bonus.indexOf(ds.FieldByName('F' + i).asString) >= 0 then
cnt := cnt + 1;
if cnt >= 3 then
isWinner := TRUE;
end;
isWinner := FALSE;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024