Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 22.05.2014, 17:38
Guusse Guusse вне форума
Прохожий
 
Регистрация: 22.05.2014
Сообщения: 2
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию Программа на Delphi, реализующая интерфейс и наследование

Нужна какая-нибудь небольшая программа на Delphi, реализующая интерфейс и наследование.
Ответить с цитированием
  #2  
Старый 22.05.2014, 21:43
Аватар для madMonia
madMonia madMonia вне форума
Новичок
 
Регистрация: 25.02.2014
Сообщения: 50
Версия Delphi: Delphi XE3
Репутация: 2545
По умолчанию

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
interface
 
type
   IScratcher = interface
       procedure Scratch;
   end;
 
    INipper = interface
       procedure Nip;
   end;
 
   TAnimal = class(TInterfacedObject, INipper)
   private
     FName: String;
   private \\ INipper
     procedure Nip; 
   protected
     function GetName: String; virtual;
   public
     constructor Create(aName: String);
     property Name: String read GetName;
   end;
    
   TCat =  class(TAnimal , IScratcher )
   protected
     function GetName: String; override;
   private \\IScratcher
     procedure Scratch;
   end;
     
implementation
 
procedure TAnimal.Nip; 
begin
   Writeln('Nip Nip');
end;
 
function TAnimal.GetName: String;
begin
  Result := FName;
end;
 
constructor TAnimal.Create(aName: String);
begin
  FName = aName;
end;
 
procedure TCat.Scratch;
begin
  Writeln('Scratch Scratch');
end;
 
function TAnimal.GetName: String;
begin
   Result := 'Cat ' + inherited GetName;
end;
__________________
Невозможно заточить карандаш тупым топором. Столь же тщетно пытаться сделать это десятком тупых топоров
Ответить с цитированием
  #3  
Старый 22.05.2014, 21:56
Guusse Guusse вне форума
Прохожий
 
Регистрация: 22.05.2014
Сообщения: 2
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию

)))))))
Боюсь, что это слишком небольшая.
Ответить с цитированием
  #4  
Старый 22.05.2014, 22:11
Аватар для madMonia
madMonia madMonia вне форума
Новичок
 
Регистрация: 25.02.2014
Сообщения: 50
Версия Delphi: Delphi XE3
Репутация: 2545
По умолчанию

Не повезло тебе(
__________________
Невозможно заточить карандаш тупым топором. Столь же тщетно пытаться сделать это десятком тупых топоров
Ответить с цитированием
Эти 4 пользователя(ей) сказали Спасибо madMonia за это полезное сообщение:
Alegun (23.05.2014), Freeman (22.05.2014), M.A.D.M.A.N. (22.05.2014), phomm (23.05.2014)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 06:58.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025