Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

Помогите с элементарным классом   Найти похожие ветки 

 
lovres ©   (2002-12-05 23:49) [0]

Надо сделать класс, а я уже и забыл как это в Delphi делается
В общем начало такое:
TwoDTreeNode = class
public
x:integer;
y:integer;
direction:integer;
ltree:^TwoDTreeNode;
rtree:^TwoDTreeNode;
...
Помогите доделать его.
Надо добавить конструктор и деструктор к определению класса и написать сами их тела(конструктор должен создавать экземпляр и устанавливать начальные значения для x,y,direction,..., а деструктор просто уничтожать)
Знаю как это выглядит на Cи, а в Delphi что-то не получается правильный код написать


 
zavdim   (2002-12-06 05:19) [1]

interface
type
Tmyclass = class
private
.....
public
....
constructor Create;
destructor Destroy;override;
end;
implementation
constructor TMyclass.Create;
begin
inherited;
.......
end;
destructor TMyclass.Destroy;
begin
......
inherited
end;


 
MBo ©   (2002-12-06 06:08) [2]

ltree:^TwoDTreeNode;
раз работаешь с классами, ^ здесь не нужно - экземпляр класса и так является указателем


 
lovres ©   (2002-12-06 08:24) [3]

У меня мало опыта работы с ООП.
Подскажите, пожалуйста, что в теле надо написать, чтобы выполнились упомянутые действия - буду очень благодарен.


 
zavdim   (2002-12-06 09:01) [4]

То что выше +

var
One : TMyClass;

....
one := TMyclass.Create;
One.x := 1;
....
one.free;
А в остальном - книжечку попроще возьми и почитай - лекции по Азам Дельфей - никто читать не будет.



Страницы: 1 вся ветка

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
14-51884
iLover
2002-11-22 19:15
2002.12.16
http://perl.mastak.ru/cgi-bin/gb.pl


3-51588
User_OKA
2002-11-27 13:00
2002.12.16
Запрос


14-51910
Дима
2002-11-24 14:45
2002.12.16
Системный динамик


8-51845
DeMoN-777
2002-09-02 17:56
2002.12.16
Как узнать длинну трека или клипа проигрываемого в TMediaPlaer ?


1-51735
Danlicha
2002-12-06 00:11
2002.12.16
Фурье преобразование