нужно создать свой класс фигуры для шахматной доски
сама шахматная доска уже создана
нужно создать свой класс имеющий некоторые свойства)
у меня вот так:
Код: Выделить всё
TFigure=Class(TObject)
[B]Private[/B]
Color:Boolean; чёрная или белая
TypeFigure:String;
ImgFigure:TImage;
[B]Protected[/B]
DestroyFigure:Boolean; срубление фигуры
OcheredHodaFigure:Boolean;
[B]Function[/B] Coord1:TPanel;
[B]Procedure[/B] Coord2(Coord:Tpanel);
[B]Property[/B] CoordFigure:TPanel будет ходить по панелькам
[B]read[/B] Coord1
[B]write[/B] Coord2;
[B]Public[/B]
Procedure HodFigure(a:TPAnel);
[B]Private[/B]
constructor Fcreate (Coord:Tpanel);
end;
2) Как вообще правильно написать процедуру с функцией
3) Как правильно написать read write
4) и вообще что я сделал не так и почему не работает )
СПАСИБО.