0

Можно ли избавится от захламления кода лишними функциями при написании класса?

SomeClass1 = class
  SomeValue : Record
    z:integer;
  end;
end;

SomeClass2 = Class
  SomeRec   : SomeClass1;
end;

SomeClass3
Private
  MyClass : SomeClass2;
Public
  Property SomeVal : integer read MyClass.SomeRec.SomeVal.z;//<<<Тут ошибка
End;

Обязательно ли в SomeClass3 делать доп функцию для чтения SomeVal.z? или можно поедить сие хитрой конструкцией прямо в описании Property SomeVal

SomeClass3
Private
  Function ReadSomeVal:integer;
  MyClass : SomeClass2;
Public
  Property SomeVal : integer read ReadSomeVal;
End;
implementation
Function SomeClass3.ReadSomeVal;
 Begin
   Result:=MyClass.SomeRec.SomeVal.z;
 end;
4
  • Да, обязательно. Так правильнее со всех точек зрения. > Result := MyClass.SomeRec.SomeVal.z; А не страшно, что внезапно окажется, что MyClass = nil, и обращение к проперти закончится AV?
    – Nofate
    17 дек 2012 в 8:12
  • Нет не страшно) SomeClass3 является Ребёнком для MyClass и служит для сокращеня имен переменных из MyClass.. Сделано для упрощения скриптования(использую TPSScript) дабы обращение из скрипта шло вида wnd(wName).SomeVal заместо MyClass(LinkMyClass).SomeClass.SomeClass.SomeVal.Val; 17 дек 2012 в 8:23
  • Чесно сказать вопрос правильности это последнее что меня интересует при построении такого велосипеда ;) само наличие SomeClass3 уже неправильно) 17 дек 2012 в 8:25
  • Это печально. Давайте в ответ, приму его чтоли.) 17 дек 2012 в 9:33

3 ответа 3

2

Delphi в любом случае ожидает Field or method после read, так что вставить туда выражение вам никто не даст.

4
  • Пока не закрыл, можно ли делать так? Function SomeFunc(s:String):boolean; Property SomeProp : boolean read SomeFunc('1'); 17 дек 2012 в 10:15
  • нет, потому что ожидается Field or method, т.е. идентификатор метода или поля, а не вычисляемое выражение (коим является вызов функции). Никто ведь не удивляется, что нельзя написать такое: Property SomeProp : integer read 5+3;
    – Nofate
    17 дек 2012 в 11:30
  • Ну я допустим негодую...и с удовольствием писал бы как показано выше) 17 дек 2012 в 14:04
  • 1
    Так форкните FreePascal Compiler и перепишите, как надо )
    – Nofate
    17 дек 2012 в 14:43
1

Да, обязательно. Если Вы не хотите писать много гетеров в классе (хотя не понятно почему, это же автоген), то наверное можете сделать какой-нибудь универсальный геттер от индекса например. И либо хард код, или через интерефейсы реализовать. Но зачем?

PropertiesInterface = interface
  function GetIntegerValueByName(name:string):integer;
  function GetValueContainerByName(name:string):PropertiesInterface ;
end

SomeClass1 = class(PropertiesInterface)
  SomeValue : Record
    z:integer;
  end;
  function GetIntegerValueByName(name:string):integer;
  function GetValueContainerByName(name:string):PropertiesInterface ;
end;

SomeClass2 = Class(PropertiesInterface)
  SomeRec   : SomeClass1;
  function GetIntegerValueByName(name:string):integer;
  function GetValueContainerByName(name:string):PropertiesInterface ;
end;

SomeClass3
Private
  MyClass : SomeClass2;
Public
  Property SomeIntVal[name: string] : integer read GetIntVal
End;

implementation
//name VarName|VarName|
Function GetIntVal(name: string):integer;
var
   varList: array of string;
   i: integer;
   current_var: PropertiesInterface;
 Begin
   varList = name.Strip("|");//не помню есть ли такое в дельфи, но суть ясна?
   current_var = MyClass as PropertiesInterface;
   for i := 0 to Length(varList)-1 do
   begin
     current_var = current_var.GetValueContainerByName(varList[i]);
     if current_var = nil then 
       raise ENotFoundExeption;
   end;
   if current_var <> nil then
     result = current_var.GetIntegerValueByName(varList[Length(varList)-1])
   else
     raise ENotFoundExeption;
 end;
9
  • Невариант. условие описано четко) как сделать по другому я и так знаю(в другом места так и делаю), но хотелось данный клас описать максимально коротко и "красиво" 17 дек 2012 в 14:07
  • C# ? :-) public int SomeVal { get { return MyClass.some.other.vals;} } К сожалению в object pascale так незя. Хотя может это и к лучшему, больше дисциплинирует. Можно имплементацию этих геттеров вынести в другой файл конечно. Не совсем понимаю зачем надо в описании класса видеть откуда он берёт данные проперти? На мой взгляд, верный путь - правильно именовать проперти, ну и сеттеры геттеры можно под дерективу {$I} вынести.
    – Чад
    17 дек 2012 в 14:30
  • 1
    да, я тоже задумался, не съест ли компилятор анонимную функцию, так сказать in-place. Но нет, не съел. Оно и к лучшему: анонимные функции в дельфе весьма громоздки.
    – Nofate
    17 дек 2012 в 14:45
  • Да и это будет противоречить идеологии. Допустим имплементация у нас лежит в dll а в интерфейсе мы вдруг каким-то образом воткнули такое выражение - в итоге или линковщик с компилятором сойдут с ума, или программисты которые писали имплементацию, когда им посыпятся претензии что их код работает не так как надо. И, я уверен, они потом найдут того кудесника который подправил интерфейсную часть класса, и если уж до 105 не дойдёт то 116 точно будет :-)
    – Чад
    17 дек 2012 в 15:20
  • Оу оу оу, все выше описано как я уже гдето говорил сделано лиш для удобной обработки скриптов на паскаль машинке.. ну не гоже пользователю знать иерархию классов у меня, ему хватит того к чему разрешено лезть, просто не хотелось городить кучу функций гетеров. т.к. паскаль машинка сама втягивает класы на которые тыкнут пальцем и была попытка сделать такой велосипед, ну раз не судьба буду писать кучу гетеров... 17 дек 2012 в 16:26
-2

Извиняюсь. По теме, Я делаю так:

TMyClassAbstract = class
private
  function GetX: Integer;
  procedure SetX(Value: Integer);
  // ...
public
  property X: Integer read GetX write SetX;
  // ... и все другие свойства
end;

TMyClass = class (TMyClassAbstract)
// ..

т. е. все свойства Я скрываю в абстрактном класе

4
  • не о том речь
    – Nofate
    9 янв 2013 в 6:33
  • Извиняюсь. По теме, Я делаю так: TMyClassAbstract = class private function GetX: Integer; procedure SetX(Value: Integer); // ... public property X: Integer read GeX write SetX; // ... и все другие свойства end; TMyClass = class (TMyClassAbstract) т. е. все свойства Я скрываю в абстрактном класе
    – ADR
    9 янв 2013 в 17:52
  • Мне не нужно их скрывать и не поверите раздел Private и все что в нем видно только при вызове из компонента\потомка. я хотел избавится от описания ф-ий, т.к. не считаю полезным кодом функции подобные begin result:=someclass.val; end; 10 янв 2013 в 9:45
  • >>раздел Private и все что в нем видно только при вызове из компонента\потомка Нет. То что в нем видно только в границах модуля. Но мы же не собираемся напрямую обращаться к полю когда есть свойство? (а если и так то есть protected) Избавится от кода функций, конечно, не возможно. Могу лишь посоветовать использовать сокращение: Ctrl + Spase + propf (свойства для доступа к полю), Ctrl + Spase + propgs (через функи Get/Set), Ctrl + Spase + propro (Read Only) и т. д. (они есть в Delphi XE2 и выше) для автоматической генерации кода
    – ADR
    10 янв 2013 в 11:50

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.