Главная страница
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.011 c
1-51716
volph7777
2002-12-04 15:39
2002.12.16
Почему не извеняется запись в TTable


7-51980
RUS1
2002-10-16 11:05
2002.12.16
Запускаем процесс...


1-51808
kepten
2002-12-05 09:50
2002.12.16
Как неписать много if


4-52013
Vlads
2002-10-28 22:12
2002.12.16
Работа без VCL


4-52032
TankMan
2002-11-05 12:24
2002.12.16
Как узнать, приоритет любой программы?