Главная страница
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.015 c
6-1281776559
Симулятор
2010-08-14 13:02
2017.01.15
Как сделать симуляцию в индиевских серверах?


15-1445860992
DayGaykin
2015-10-26 15:03
2017.01.15
PHP и Java для Web


15-1451823438
Сергей
2016-01-03 15:17
2017.01.15
Выбор версии Delphi


15-1448185459
Limpo
2015-11-22 12:44
2017.01.15
Oracle хранимые процедуры


8-1238746691
igor666
2009-04-03 12:18
2017.01.15
Карта города.