Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2017.01.15;
Скачать: CL | DM;

Вниз

Классовые методы с неклассовыми свойствами   Найти похожие ветки 

 
Внук ©   (2016-01-28 18:41) [0]


type
 TClassA = class
 protected
 public
   class function GetCode: string; virtual; abstract;
   class function GetName: string;
   property MyName: string read GetName;
   property MyCode: string read GetCode;
 end;

 TClassB = class(TClassA)
 public
   class function GetCode: string; override;
 end;

class function TClassA.GetName: string;
begin
 Result := Format("%s Class", [GetCode]);
end;

class function TClassB.GetCode: string;
begin
 Result := "B";
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 B: TClassB;
begin
 B := TClassB.Create;
 try
   ShowMessage(B.MyName);
 finally
   B.Free;
 end;
end;


Обратите внимание на строчку ShowMessage. Пример компилируется. Но не работает.
Меняем на ShowMessage(B.GetName); - работает, само собой.
Меняем на ShowMessage(B.MyCode); - снова работает.

Пробовал на D2006, впрочем на XЕ6 ровно то же самое.
Не знаю, что даже спросить. Почему не работает, или почему компилятор позволяет это компилировать...


 
Внук ©   (2016-01-28 18:46) [1]

Естественно, что если я напишу class property, то оно даже не скомпилируется.


 
Cobalt ©   (2016-02-04 12:58) [2]

недосмотрели



Страницы: 1 вся ветка

Текущий архив: 2017.01.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
15-1457422493
Pavia
2016-03-08 10:34
2017.01.15
C 8 марта!


2-1421233871
aka
2015-01-14 14:11
2017.01.15
самый быстрый вывод текста


4-1281020267
Danger
2010-08-05 18:57
2017.01.15
SQLite в winapi-приложении


3-1311085051
yurikon
2011-07-19 18:17
2017.01.15
Сколько памяти занимает SQLEXPRESS


15-1454413847
Кто б сомневался
2016-02-02 14:50
2017.01.15
Запустить с обычными правами из под проги с админ. правами