|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Код:
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)
|