Zdravim,
mam mensi programik v pascale tak by som Vas rad poprosil o pomoc,
mam pole
Kód:
var
index[1..8, 1..8] of TPanak;
Pozostavajuce z objektov triedy TPanak,
kazdy z tychto objektov ma public premennu farba typu boolean;
pola pola pozostava z objektov typu TPanak a polka pola je prazdna,
vytvoril som proceduru ktora sa aplikuje na jeden prvok pola podla suradnic a vymaze dany objekt ktory sa v tomto prvku pola nachadza,
vsetko ide v poriadku pokial sa procedura neaplikuje na prvok pola ktory je prazdny a neobsahuje objekt, vtedy program spadne,
skusal som googlit, skusam rozne casti kodu uz strasne dlho tak som sa rozhodol spytat tu ....
myslel som ze toto pomoze
Kód:
try
if(index[s[1],s[2]].farba <> farba)then
index[s[1],s[2]].free;
except
end;
ale nejako sa to sprava rovnako, co by ste mi poradili? dakujem