Помогите с элементарным классом

← →
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;
А в остальном - книжечку попроще возьми и почитай - лекции по Азам Дельфей - никто читать не будет.

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