
Zasláno: čt 10. leden 2008 18:09
Snažim se v delphi udělat bubble breaker, postupuju podle
tohohle návodu (samozřejmě, že kód píšu normální pascalovskej, ale když nevim jak něco udělat, tak kouknu do toho) a mam problém s označením okolních polí, který jsou stejnou barvou jak to, na který jsem kliknul.
Dělam to přes tuhle proceduru, jenže když na něco kliknu, tak to na chvilku zamrzne a pak zahlásí Stack Overflow.
kód: procedure tform1.oznac(xx,yy:integer);
begin
pole[xx,yy].oznaceno:=true;
if (yy > 0) and (pole[xx,yy].barva=pole[xx,yy-1].barva) then
oznac(xx,yy-1);
if (xx > 0) and (pole[xx,yy].barva=pole[xx-1,yy].barva) then
oznac(xx-1,yy);
if (yy < 10) and (pole[xx,yy].barva = pole[xx,yy+1].barva) then
oznac(xx,yy+1);
if (xx < 10) and (pole[xx,yy].barva=pole[xx+1,yy].barva) then
oznac(xx+1,yy);
end;
Někde jsem se dočetl, že v rekurzi nejde používat array a cosi o allocmem, jenže v programování jsem začátečník a vůbec netušim, co to allocmem je...

Jak jinak to mam udělat?