Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Создание своего класса в Delphi 7


Автор: Sosisko 13.11.2007, 13:09
Прошу помощи в создании своего класса )

нужно создать свой класс фигуры для шахматной доски

сама шахматная доска уже создана

нужно создать свой класс имеющий некоторые свойства)

у меня вот так:

Код

TFigure=Class(TObject)
  Private
        Color:Boolean;              чёрная или белая
        TypeFigure:String;
        ImgFigure:TImage;
  Protected
        DestroyFigure:Boolean;         срубление фигуры
        OcheredHodaFigure:Boolean;
  Function Coord1:TPanel;
  Procedure Coord2(Coord:Tpanel);
         Property CoordFigure:TPanel        будет ходить по панелькам
                             read Coord1
                             write Coord2;

  Public
  Procedure HodFigure(a:TPAnel);

  Private
  constructor Fcreate (Coord:Tpanel);
  end;


1) прошу помочь куда и как написать правильно конструктор с деструктором
2) Как вообще правильно написать процедуру с функцией
3) Как правильно написать read  write
4) и вообще что я сделал не так и почему не работает )
СПАСИБО.

Автор: OdesitVadim 13.11.2007, 14:19
Приватный конструктор? это интересно. и как вы думаете его вызывать? smile 
мало того, имя  Fcreate не совсем подходит, хотя никто не запрещал.
Код

Function Coord1:TPanel;
  Procedure Coord2(Coord:Tpanel);
         Property CoordFigure:TPanel        будет ходить по панелькам
                             read Coord1
                             write Coord2;

этот код лучше написать так
Код

private
  function GetCoordFigure:TPanel;
  procedure SetCoordFigure(const Value:TPanel);
public
  property CoordFigure:TPanel read GetCoordFigure write SetCoordFigure;

почему такие имена? так принято.

Но сделать поле в виде 64 панелек - супер!

Автор: WaReZMEN 13.11.2007, 14:37
Констуркто и деструктор пишется в Public
Код

constructor Fcreate (Coord:Tpanel); 

дисктруктор
Код

destructor destroy;

Автор: OdesitVadim 13.11.2007, 14:52
дЕструктор пишеться немного не так
Код

destructor Destroy; override;
....
destructor Destroy;
begin
  //ваш код
  inherited;
end;

Автор: Sosisko 13.11.2007, 14:55
OdesitVadim, 
Цитата

Приватный конструктор? это интересно. и как вы думаете его вызывать?

ну мне учитель сказал в приват его )
Цитата

Но сделать поле в виде 64 панелек - супер! 

видимо ты очень хорошо разбираешься )
да именно так
написано массивом
 спасибо.

Добавлено через 5 минут и 3 секунды
вот сама доска

Автор: Sosisko 13.11.2007, 15:02
part 2

Автор: OdesitVadim 13.11.2007, 15:10
В делфи конструктор в приват не суётся. Это применяют иногда в С++, когда нужно сделать класс, который не должен создаваться "обычным методом", а только через специальный.
А в делфи приватный консруктор... Если других нет, то его и нельзя вызвать - тоесть нельзя создать экземляр класса. вопрос, что делать с таким классом, если у него нет классовых методов? Спроси преподавателя об этом.

Добавлено через 2 минуты и 25 секунд
Я бы сделал просто PintBox или панельку, на которой бы нарисовал поле. и всё. а фигурам вместо координамы в виде панельки передавал бы нормальные координаты (x,y)
Хотя каждый сочиняет проблемы на свою голову сам.

Автор: Sosisko 13.11.2007, 15:13
OdesitVadim, 
Цитата
В делфи конструктор в приват не суётся. Это применяют иногда в С++, когда нужно сделать класс, который не должен создаваться "обычным методом", а только через специальный.
А в делфи приватный консруктор... Если других нет, то его и нельзя вызвать - тоесть нельзя создать экземляр класса. вопрос, что делать с таким классом, если у него нет классовых методов? Спроси преподавателя об этом.


хорошо

покажи как бы ты сделал етот класс в этой доске, если несложно =)

Добавлено через 1 минуту и 46 секунд
Цитата

Я бы сделал просто PintBox или панельку, на которой бы нарисовал поле. и всё. а фигурам вместо координамы в виде панельки передавал бы нормальные координаты (x,y)
Хотя каждый сочиняет проблемы на свою голову сам. 

дак вот именно что я несоображаю как мне проще будет)
поэтому и прошу помочь)

Автор: Sosisko 13.11.2007, 20:28
всё это выглядит теперь вот так:
Код

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
 [color=red] Function GetHodFigure:TPanel;[/color]
  Procedure SetHodFigure(a:TPAnel);
           end;

  Private
  constructor Fcreate (Coord:Tpanel);
  end;

Подскажи почему ошибка там где красное?

Автор: ama_kid 13.11.2007, 21:32
Цитата
почему ошибка там где красное?

Код
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;  // <===Что закрывает этот end???
  Public
    Function GetHodFigure:TPanel;
  Procedure SetHodFigure(a:TPAnel);
           end;  // <===Что закрывает этот end???
  Private
    constructor Fcreate (Coord:Tpanel); // Конструктор, как тебе уже говорили, должен быть public
  end;

Автор: Sosisko 13.11.2007, 22:55
ama_kid, end - это заглушка =)
неправильно?

Автор: skyboy 13.11.2007, 23:25
Sosisko, end без предшевствующего ему 
  • begin
  • try..finally
  • try..except
  • class
  • interface
является не "заглушкой", а синтаксической ошибкой. Ибо синтаксис - строгая штука.
Цитата(OdesitVadim @  13.11.2007,  13:19 Найти цитируемый пост)
это интересно. и как вы думаете его вызывать? 

Видимо, преподаватель ожидал, что ученик создаст http://ru.wikipedia.org/wiki/%D0%A4%D0%B0%D0%B1%D1%80%D0%B8%D1%87%D0%BD%D1%8B%D0%B9_%D0%BC%D0%B5%D1%82%D0%BE%D0%B4 для штамповки фигур.

Автор: WaReZMEN 14.11.2007, 01:12
OdesitVadim,  на сколько я помню  override пишется если класс наследуется от другоГо...
Здесь я просто сразу не заметил... smile

Sosisko, 

1. А нахрена наследовать от TObject?

2.
 
Код

  TDoska = class (TObject)

  private
  mass:array [0..7,0..7] of TPanel;
  protected
  public
    Constructor Create();
  end;


если не используешь protected или private или public то их пИсать не обязательно.
Слушай а нахрена все панельками???? Есть просто канвас в конце концов.... 


M
Alexeis		Модератор: проверяйте орфографию.

Автор: Alexeis 14.11.2007, 10:39
Цитата(WaReZMEN @  14.11.2007,  01:12 Найти цитируемый пост)
А нахрена наследовать от TObject?

  Можно это и не писать. Любой класс по умолчанию будет наследником TObject.

Цитата(WaReZMEN @  14.11.2007,  01:12 Найти цитируемый пост)
Есть просто канвас в конце концов.... 

  Канвас и панелька это совершенно разные классы, которые не заменяют друг друга.

Автор: Sosisko 14.11.2007, 19:30
вот полный код
теперь всё работает
просто нужно было поставить заглушки

теперь нужно создать конструкторы для каждого подкласса (фигурки)
или один конструктор для самого класса Figure
как будет проще?
и как правильно синтаксически написать?
спасибо.
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

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

  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:Boolean;virtual;
  Procedure SetHodFigure(a:TPAnel);

  Private
  constructor Fcreate (Coord:Tpanel);

  end;
  TKing=class(TFigure)
  constructor Fcreate(a:boolean);
  Function GetHodFigure:Boolean;override;
  end;
  TKoroleva=class(TFigure)
  Function GetHodFigure:Boolean;override;
  end;
  TPeshka=class(TFIgure)
  Function GetHodFigure:Boolean;override;
  end;
  TLoshad=class(TFigure)
  Function GetHodFigure:Boolean;override;
  end;
  TLadya=class(TFigure)
  Function GetHodFigure:Boolean;override;
  end;
  TSlon=class(TFigure)
  Function GetHodFigure:Boolean;override;
  end;

  TDoska = class (TObject)

  private
  mass:array [0..7,0..7] of TPanel;

    Constructor Create();
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

  Constructor TDoska.Create();
  var pan:TPanel; i,j,y:integer; color:TColor;
  lab:TLabel;
  begin
  Inherited Create;
    color:=$ffffff;
    for i:=0 to 7 do
    begin
    for y:=0 to 1 do
        begin
        lab:=TLabel.Create(Form1);
        lab.Top:=60+i*60;
        lab.Left:=30+510*y;
        lab.AutoSize:=true;
        lab.Caption:=Inttostr(i+1);
        lab.Parent:=Form1;
        end;
      for j:=0 to 7 do
      begin
        for y:=0 to 1 do
        begin
        lab:=TLabel.Create(Form1);
        lab.Top:=20+505*y;
        lab.Left:=80+j*60;
        lab.AutoSize:=true;
        lab.Caption:=chr(65+j);
        lab.Parent:=Form1;
        end;
        mass[i,j]:=TPanel.Create(Form1);
        mass[i,j].Left:=50+j*60;
        mass[i,j].Top:=40+i*60;
        mass[i,j].Height:=60;
        mass[i,j].Width:=60;
        mass[i,j].BevelOuter:=bvNone;
        mass[i,j].Parent:=Form1;
        mass[i,j].Color:=color;
        if j=7 then Continue;
        if (color=$ffffff) then
          color:=$000000
        else
          color:=$ffffff;
      end;
    end;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var doska:TDoska;
begin
  doska:=TDoska.Create();

end;

Function TFigure.GetCoordFigure:TPanel;
begin
end;

Procedure TFigure.SetCoordFigure(const Value:Tpanel);
begin
end;

Function TFigure.GetHodFigure:Boolean;
  begin
  end;

Procedure TFigure.SetHodFigure(a:TPAnel);
  begin
  end;

constructor TFigure.Fcreate (Coord:Tpanel);
begin
end;
 Function TKing.GetHodFigure:Boolean;
 begin
 end;
 constructor Tking.Fcreate(a:boolean);
 begin
 end;
   Function TKoroleva.GetHodFigure:Boolean;
   begin
   end;
   Function TPeshka.GetHodFigure:Boolean;
   begin
   end;
   Function TLoshad.GetHodFigure:Boolean;
   begin
   end;
   Function TLadya.GetHodFigure:Boolean;
   begin
   end;
    Function TSlon.GetHodFigure:Boolean;
    begin
    end;
end.

Автор: Vetos 14.11.2007, 19:48
Я делал очень просто, брал свой класс, допустим TRobot=class(TObject);
И при создании формы или где нибудь еще, при объявленной переменной Robot делал так
Код

Robot:=TRobot.Create(...);

Попробуй, вместо "...", там само напишет вродебы))
Может там ничего ставить и ненадо)
Просто немогу понять это выражение
Цитата

теперь нужно создать конструкторы для каждого подкласса (фигурки)
или один конструктор для самого класса Figure
 

Автор: Sosisko 18.11.2007, 15:45
подскажите пожалуйста как загрузить картинку и указать для неё координаты?

Автор: Alexeis 18.11.2007, 16:00

M
Alexeis		Модератор: Пожалуйста, один топик - один вопрос.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)