singlepost

Создание своего класса в Delphi 7 << На главную или назад  

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

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

35 ответов в теме “Создание своего класса в Delphi 7”

  1. 2
    Анзор Апшев ответил:

    =-O
    нахер столько end-ов братишко?

  2. 1
    Анзор Апшев ответил:

    имхо в шахматах только белое и черное, красного там веще не должно быть)))

Клуб программистов работает уже ой-ой-ой сколько, а если поточнее, то с 2007 года.