Создание своего класса в Delphi 7

← →
Greg (2007-11-13 23:34) [0]

Здравствуйте!
мне нужно создать класс фигура для шахматной доски
шахматная доска готова
состоит из 64ёх панелек))
сейчас класс выглядит вот так:
[CODE=pas]
TFigure=Class(TObject)
[B]Private[/B]
Color:Boolean;
TypeFigure:String;
ImgFigure:TImage;
[B]Protected[/B]
DestroyFigure:Boolean;
OcheredHodaFigure:Boolean;
[B]Private[/B]
[COLOR=red][B]Function[/B] GetCoordFigure:TPanel;[/COLOR]
[B]Procedure[/B] SetCoordFigure(const Value:Tpanel);
[B]public[/B]
[B]Property[/B] CoordFigure:TPanel
read GetCoordFigure
write SetCoordFigure;

[B]Public[/B]
Function GetHodFigure:TPanel;
[B]Procedure[/B] SetHodFigure(a:TPAnel);

[B]Private[/B]
[B]constructor[/B] Fcreate (Coord:Tpanel);
end;
[/CODE]
подскажите почему у меня ошибка там где красное?
и что я вообще сделал не так или неправильно?
спасибо

← →
XProger © (2007-11-14 01:26) [1]

> что я вообще сделал не так или неправильно?

тэги расставил неправильно

Что за ошибка?

← →
@!!ex © (2007-11-14 07:45) [2]

> [0] Greg (13.11.07 23:34)

Копипастил с gamedev.ru?

← →
savyhinst © (2007-11-14 15:39) [3]

Почему private много раз? Вроде хватило бы одного. Потому и красное наверно.

savyhinst, неограничено

← →
{RASkov} (2007-11-14 20:45) [5]

> [0] Greg (13.11.07 23:34)

Это в отдельном юните? Может в Uses не хватает ExtCtrls? TPanel как раз там описан.

> шахматная доска готова
> состоит из 64ёх панелек))

О боже :)
Начитался советов? из
http://delphimaster.net/view/15-1194870352/

Убогий TListBox (TDrawGrid, ..) замени парой десятков кнопок, Edit"ов.
:)

Создание своего класса в Delphi 7 Найти похожие ветки