Реферат: Программа Клон

a[ai,aj]:=1;

image2.Canvas.StretchDraw(b[ai,aj],image1.picture.bitmap);

beep;

for m:=i-9 to i+9 do //проверка всего поля

for n:=j-9 to j+9 do

if (m>=0)and(n>=0)and(m<=9)and(n<=9) then

begin

if (a[m,n]=1)or(a[m,n]=0)then

kol:=kol+1;

end;

if kol=100 then

form4.show;

m:=0;n:=0;kol:=0;

end;hod:=false;//теперь красные

end;

end;

END;

//-------------------------------------------------------------------------------

//При нажатии активна красная (правая клавиша)

if hod=false then

BEGIN

if a[i,j]=2 then

begin

if button=mbright then

begin

image2.Canvas.StretchDraw(b[i,j],image4.picture.bitmap);

V2i:=i;

v2j:=j;

end