Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Greg © (2007-11-13 23:34:00)
Здравствуйте!
мне нужно создать класс фигура для шахматной доски
шахматная доска готова
состоит из 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]
подскажите почему у меня ошибка там где красное?
и что я вообще сделал не так или неправильно?
спасибо

{RASkov} (2007-11-14 20:45:00) [1]
> [0] Greg (13.11.07 23:34)

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

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

О боже :)
Начитался советов? из
http://www.delphimaster.ru/cgi-bin/forum.pl?n=3&id=1194870352

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

XProger (2007-11-14 16:51:00) [2]
savyhinst, неограничено

savyhinst (2007-11-14 15:39:00) [3]
Почему private много раз? Вроде хватило бы одного. Потому и красное наверно.

@!!ex (2007-11-14 07:45:00) [4]
> [0] Greg (13.11.07 23:34)

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

XProger (2007-11-14 01:26:00) [5]

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

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »