|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Как правильно создавать и использовать классы?
Читал не мало статей, но толком не догнал. Вот мне нужно создавать n картинок (спрайтов) и мне нужно сделать что то вроде этого:
ai1.health ai1.attack что-то вроде property в object inspector. Помогите пожалуйста |
#2
|
||||
|
||||
Код:
interface type TAI = class public function Health: Integer; procedure Attack; end; implementation procedure TAI.Attack; begin // do it end; function TAI.Health: Integer; begin Result:=0; end; >> Код:
var ai: TAI; i: Integer; begin ai:=TAI.Create; try ai.Attack; i:=ai.Health; finally ai.Free; end; end; Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Ruz (14.05.2013)
|