k:= 0;
flag:= false;
for l:=0 to 48 do
begin
j1:=0;
for i2:=0 to 19 do
begin
if aFlag[l,i2] then inc(j1);
end;
if j1 > 0 then
begin
if Flag then
Continue; if (k+1) < 9 then
begin
inc(k);
ai[k - 1]:= l;
end;
Flag:= True;
Continue;
end;
if Not Flag then
Continue;
if (k+1) < 9 then
begin
inc(k);
ai[k - 1]:= l;
end;
Flag:= False;
end;
---------------------------------------------------------
int k = 0;
boolean flag = false;
int ai1[] = new int[20];
for(int l = 0; l < 49; l++)
{
int j1 = 0;
for(int i2 = 0; i2 < 20; i2++)
if(aflag[l][i2])
j1++; if(j1 > 0)
{
if(flag)
continue;
if(++k < 9)
ai[k - 1] = l;
flag = true;
continue;
}
if(!flag)
continue;
if(++k < 9)
ai[k - 1] = l;
flag = false;
}
flag:= false;
for l:=0 to 48 do
begin
j1:=0;
for i2:=0 to 19 do
begin
if aFlag[l,i2] then inc(j1);
end;
if j1 > 0 then
begin
if Flag then
Continue; if (k+1) < 9 then
begin
inc(k);
ai[k - 1]:= l;
end;
Flag:= True;
Continue;
end;
if Not Flag then
Continue;
if (k+1) < 9 then
begin
inc(k);
ai[k - 1]:= l;
end;
Flag:= False;
end;
---------------------------------------------------------
int k = 0;
boolean flag = false;
int ai1[] = new int[20];
for(int l = 0; l < 49; l++)
{
int j1 = 0;
for(int i2 = 0; i2 < 20; i2++)
if(aflag[l][i2])
j1++; if(j1 > 0)
{
if(flag)
continue;
if(++k < 9)
ai[k - 1] = l;
flag = true;
continue;
}
if(!flag)
continue;
if(++k < 9)
ai[k - 1] = l;
flag = false;
}
C可以在任何地方定义变量,delphi则必须一开始就用var来定义