[electric]

Здравствуйте!
мне нужно создать класс фигура для шахматной доски
шахматная доска готова
состоит из 64ёх панелек))
сейчас класс выглядит вот так:

Код:

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;
         
  Public
  Function GetHodFigure:TPanel;
  Procedure SetHodFigure(a:TPAnel);
           

  Private
  constructor Fcreate (Coord:Tpanel);
  end;

подскажите почему у меня ошибка там где красное?
и что я вообще сделал не так или неправильно?
прошу помочь в разработке.
спасибо!

[AlexSku]

А что за ошибка? Может, это первая ошибка, а есть и другие? Впечатление такое, что после объявления функции надо дать её реализацию в разделе implementation:

Код:

  Function TFigure.GetCoordFigure:TPanel;
  begin
  end;

Я так сделал и ошибка исчезла

[electric]

Сообщение от AlexSku

А что за ошибка? Может, это первая ошибка, а есть и другие? Впечатление такое, что после объявления функции надо дать её реализацию в разделе implementation:

Код:

  Function TFigure.GetCoordFigure:TPanel;
  begin
  end;

Я так сделал и ошибка исчезла

покажи пожалуйста если можешь куда втыкнуть этот класс в этой доске
спасибо)

[electric]

Сообщение от AlexSku
[CODE

Function TFigure.GetCoordFigure:TPanel;
begin
end;
[/code]
Я так сделал и ошибка исчезла

а я так сделал и ошибка появилась на слове begin =)

[AlexSku]

Во-первых, пиши, пожалуйста, что за ошибка.
Во-вторых, опять осенило. Такая ошибка будет, если описание до implementation, а не после. (ответ на последний вопрос.)

[AlexSku]

куда втыкнуть этот класс в этой доске

Не специалист я по шахматам, но дам несколько советов.
1). Нумерацию строк делай не сверху вниз, а снизу вверх.
2) Если класс заранее объявлен (или есть ссылка на модуль, где он объявлен uses...), то его можно воткнуть как поле в другой класс:

Код:

type
  TFigure = class
  end;

  TFigColor = (fWhite, fBlack);

  TDoska = class (TObject)
  private
    mass:array [0..7,0..7] of TPanel;
    Figures: array[TFigColor, 1..16] of TFigure;
  protected
  public
    Constructor Create();
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FDoska: TDoska;
  public
    { Public declarations }
  end;

3). Надо бы предусмотреть в свойствах фигуры, на доске она или нет. Можно набор фигур рассматривать не как массив, а как множество.
4) Советую начать игру с одной фигурой у белых и одной у чёрных, иначе долго будешь реализовывать.

[electric]

...спасибо

[electric]

подскажите пожалуйста как загрузить картинку и указать для неё координаты?

[AlexSku]

Советую ещё попрактиковаться с готовыми решениями Drag&Drop и Docking. Надо только выставить логические условия. Во-первых, курсор сам принимает вид руки во время переноса (шах. фигуры) и вид запрета, если на какое-то поле нельзя ходить. Во-вторых, объект цепляется к сетке. А сетки есть в StringGrid, DrawGrid, ListView (ViewStyle=vsIcon).