Форум: "Игры";
Текущий архив: 2014.02.23;
Скачать: [xml.tar.bz2];
ВнизСоздание своего класса в 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 много раз? Вроде хватило бы одного. Потому и красное наверно.
← →
XProger © (2007-11-14 16:51) [4]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"ов.
:)
Страницы: 1 вся ветка
Форум: "Игры";
Текущий архив: 2014.02.23;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.002 c