Я пишу не так:
А вот так:
-- почему? Да потому, чтобы исключить прямой вызов методов доступа к свойству. GetValue - он не "режет глаз", а pm_GetValue - РЕЖЕТ. Есть что-то неестественное в этой записи. И эта неестественность - коррелирует с неестественностью НЕПОСРЕДСТВЕННОГО вызова метода доступа к свойству.
Ну или использую - private, если виртуальность не нужна. Но всё равно стараюсь писать pm_GetX/pm_SetX.
Попробуйте. Может быть вам понравится.
TA = class protected function GetValue: Integer; virtual; procedure SetValue(aValue: Integer); virtual; protected property Value: Integer read GetValue write SetValue; end;
А вот так:
TA = class protected function pm_GetValue: Integer; virtual; procedure pm_SetValue(aValue: Integer); virtual; protected property Value: Integer read pm_GetValue write pm_SetValue; end;
-- почему? Да потому, чтобы исключить прямой вызов методов доступа к свойству. GetValue - он не "режет глаз", а pm_GetValue - РЕЖЕТ. Есть что-то неестественное в этой записи. И эта неестественность - коррелирует с неестественностью НЕПОСРЕДСТВЕННОГО вызова метода доступа к свойству.
Ну или использую - private, если виртуальность не нужна. Но всё равно стараюсь писать pm_GetX/pm_SetX.
Попробуйте. Может быть вам понравится.
Комментариев нет:
Отправить комментарий