| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с элементарным классом [D6, WinXP]
lovres © (2002-12-05 23:49:00)Надо сделать класс, а я уже и забыл как это в Delphi делается
В общем начало такое:
TwoDTreeNode = class
public
x:integer;
y:integer;
direction:integer;
ltree:^TwoDTreeNode;
rtree:^TwoDTreeNode;
...
Помогите доделать его.
Надо добавить конструктор и деструктор к определению класса и написать сами их тела(конструктор должен создавать экземпляр и устанавливать начальные значения для x,y,direction,..., а деструктор просто уничтожать)
Знаю как это выглядит на Cи, а в Delphi что-то не получается правильный код написать
zavdim (2002-12-06 09:01:00) [1]То что выше +
var
One : TMyClass;
....
one := TMyclass.Create;
One.x := 1;
....
one.free;
А в остальном - книжечку попроще возьми и почитай - лекции по Азам Дельфей - никто читать не будет.
lovres (2002-12-06 08:24:00) [2]У меня мало опыта работы с ООП.
Подскажите, пожалуйста, что в теле надо написать, чтобы выполнились упомянутые действия - буду очень благодарен.
MBo (2002-12-06 06:08:00) [3]ltree:^TwoDTreeNode;
раз работаешь с классами, ^ здесь не нужно - экземпляр класса и так является указателем
zavdim (2002-12-06 05:19:00) [4]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;
| |
