Delphi vs C++ vs C# , ну и Java немножко, где-то ближе к старшему байту номеров страниц

Цитата Romkin @ 31.10.11, 07:47

А в триалке текстов нет.

знаю, а не в триалке тексты Firemonkey открыты?

Цитата Flex Ferrum @ 31.10.11, 07:46

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

Так стоит ли овчинка выделки? Ну не было бы у тебя свойства поверх метода получения списка и что?

Цитата D_KEY @ 31.10.11, 07:49

Так стоит ли овчинка выделки?

"Цена удобства". В ту же тему:

class SurfaceMap
{
public:
   property size_t ColsCount {get {return m_Cells.чего-то-там();}}
   property size_t RowsCount {get {return m_Cells.чего-то-там-другое();}}
   property SurfaceCell& Cells(int row, int col) {get {return m_Cells[row][col];}}
 
private:
   boost::multi_index<SurfaceCell, 2> m_Cells;
};
 
// ...
SurfaceMap map(10, 10);
assert(map.ColsCount == 10);
assert(map.RowsCount == 10);
 
map.Cells[5][7].TerrinType = Terrain::BlueGrass;

Сообщение отредактировано: Flex Ferrum - 31.10.11, 07:59

Цитата Flex Ferrum @ 31.10.11, 07:48

Эммм... А как ты будешь связывать модель и представление? Духом святым?

Ага, всё таки их к VS да и Qt прикручивали не интереса ради

Альтернативный вариант:

// 1
SurfaceMap map(10, 10);
assert(map.ColsCount == 10);
assert(map.RowsCount == 10);
 
map.Cells[5][7].TerrinType = Terrain::BlueGrass;
 
// 2
SurfaceMap map(10, 10);
assert(map.GetColsCount() == 10);
assert(map.GetRowsCount() == 10);
 
map.GetCell(5, 7).SetTerrinType(Terrain::BlueGrass);

Сообщение отредактировано: Flex Ferrum - 31.10.11, 07:59

Цитата DesweR @ 31.10.11, 07:49

знаю, а не в триалке тексты Firemonkey открыты?

Вообще должны быть, никаких причин закрывать нет.

Цитата D_KEY @ 31.10.11, 07:49

Так стоит ли овчинка выделки? Ну не было бы у тебя свойства поверх метода получения списка и что?

Если свойства сделаны хорошо - стоит. Если просто свойства как обертка над геттером и сеттером, то понятно что сахар.
Но в Delphi с ними еще и RTTI работает, а это значит, что они участвуют в персистентности и рефлексии. Именно из-за наличия механизма свойств не нужно где-то дополнительно описывать работу с редактором, сохранение, позднее связывание.

Flex Ferrum
А что-нибудь такое?

    TRectangle = class
      private
        FCoordinates: array[0..3] of Longint;
        function GetCoordinate(Index: Integer): Longint;
        procedure SetCoordinate(Index: Integer; Value: Longint);
      public
        property Left: Longint index 0   read GetCoordinate write SetCoordinate;
        property Top: Longint index 1    read GetCoordinate write SetCoordinate;
        property Right: Longint index 2  read GetCoordinate write SetCoordinate;
        property Bottom: Longint index 3 read GetCoordinate write SetCoordinate;
        property Coordinates[Index: Integer]: Longint read GetCoordinate write SetCoordinate;
    end;

Добавлено 31.10.11, 08:00

Цитата Romkin @ 31.10.11, 07:58

Если просто свойства как обертка над геттером и сеттером, то понятно правила хорошего тона.

fixed

Цитата DesweR @ 31.10.11, 05:39

"Свойства" обеспечивают управление доступом к внутреннему состоянию объекта и тривиальной связкой методов "читать/писать", как ты полагаешь, они не ограничиваются.

да не нужен никакой "доступ к внутреннему состоянию", на то оно и внутреннее

Цитата DesweR @ 31.10.11, 05:39

  TAncestor = class
  private
    FCaption: string;
    FLength: Integer;
  protected
    property Caption: string read FCaption;
    property Length: Integer read FLength;
  end;
 
  TDerived1 = class(TAncestor)
  public
    property Caption;
    property Length;
  end;

здорово, вот так взяли и изменили область видимости свойств базового класса.

Цитата DesweR @ 31.10.11, 07:59

Flex Ferrum
А что-нибудь такое?

Ну, шарп (ЕМНИП) такого не поддерживает. Моя реализация свойств - могёт. А что-нибуть такое:

class IUnit
{
public:
   PROPERTIES(IUnit, // В интерфейсе объявляем набор RO-свойств
      ABSTRACT_RO_PROPERTY(IWizard*, Owner)
      ABSTRACT_RO_PROPERTY(IRace*, Race)
      ABSTRACT_RO_PROPERTY(StatsTuple&, Stats)
   );
};
 
class Unit : public IUnit
{
public:
   PROPERTIES(Unit, // Имплементируем их как R/W-свойства
      IMPLEMENT_PROPERTY(IUnit, PROPERTY(IWizard*, Owner))
      IMPLEMENT_PROPERTY(IUnit, PROPERTY(IRace*, Race))
      IMPLEMENT_PROPERTY(IUnit, PROPERTY(StatsTuple&, Stats))
   );
};

Таким образом получаем, что внешние клиенты системы работают с ReadOnly-свойствами. А внутри системы требования менее жёсткие, и те же самые свойства можно ещё и писать.
Интерфейс непрозрачен. Т. е. перейти от него к реализации - нельзя...

Сообщение отредактировано: Flex Ferrum - 31.10.11, 08:08

Цитата korvin @ 31.10.11, 08:03

здорово, вот так взяли и изменили область видимости свойств базового класса.

И что, это ужас-ужас? А что, методы в потомках в паблик не перемещают?

Цитата DesweR @ 31.10.11, 05:39

  TDerived4 = class(TDerived3)
  private
    procedure SetLength(const ALength: Integer);
  public
    property Caption write FCaption;
    property Length write SetLength;
  end;

доступ к приватному полю базового класса тоже доставляет, да...

Цитата korvin @ 31.10.11, 08:10

доступ к приватному полю базового класса тоже доставляет, да...

Доступ через метод. Какие проблемы-то собственно?
Ну да, я понимаю, приватные поля вообще не должны никак изменяться снаружи, ни методами ни опосредованно. Ибо приват

Сообщение отредактировано: Romkin - 31.10.11, 08:13

Цитата korvin @ 31.10.11, 08:10

доступ к приватному полю базового класса тоже доставляет, да...

Вот, кстати, доступ к свой базовой части, в принципе, нормален. К другом объекту, через интерфейс базового - нет.

Добавлено 31.10.11, 08:16
Сейчас меня, наверно, четвертуют

Цитата D_KEY @ 31.10.11, 08:13

Сейчас меня, наверно, четвертуют

А потом повесят, расстреляют, а остатки - сожгут на костре.

Сообщение отредактировано: Flex Ferrum - 31.10.11, 08:17

Цитата D_KEY @ 31.10.11, 08:13

Вот, кстати, доступ к свой базовой части, в принципе, нормален. К другом объекту, через интерфейс базового - нет.

Хе. А нафига тебе приватные поля, к которым нет доступа вообще?

Добавлено 31.10.11, 08:18

Цитата korvin @ 31.10.11, 08:10

Цитата (DesweR @ Сегодня, 08:39)

TDerived4 = class(TDerived3)
private
procedure SetLength(const ALength: Integer);
public
property Caption write FCaption;
property Length write SetLength;
end;

доступ к приватному полю базового класса тоже доставляет, да...

Кстати, доступа тут нет.