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

Цитата DesweR @ 15.03.11, 07:14

Цитата D_KEY @ 15.03.11, 06:55

Не было такого. Извини, но у тебя есть проблемы с понимаеним того, что происходит в теме. Разговор был в очередной раз замят. Причем вашей стороной.

Извини, но вы в очередной раз увиливаете

От чего? Все подробно вам объясняем. Ждем от вас того же, не всегда дожидаемся. Shaggy вот большое спасибо, за некоторые разъяснения.

Цитата

Цитата D_KEY @ 15.03.11, 06:55

Причем тут какая-то технология?

Почитай "Сущность технологии СОМ" (Дональд Бокс), там подробно рассматриваются данные аспекты и мотивы их решений.

Какое отношение имеет эта отдельно взятая технология к языковым механизмам?

Добавлено 15.03.11, 07:27

Цитата DesweR @ 15.03.11, 07:14

Почитай "Сущность технологии СОМ" (Дональд Бокс), там подробно рассматриваются данные аспекты и мотивы их решений.

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

Цитата MyNameIsIgor @ 15.03.11, 06:26

Необходимо ли указывать, как каким методам внутреннего объекта будет иметь доступ внешний код?

в идеале -- это чтоб можно было сказать либо "весь-интерфейс", либо список методов

Добавлено 15.03.11, 07:48

Цитата Мяут-Настоящий @ 15.03.11, 06:34

А кто определяет, к каким методам x обратиться можно, а к каким нельзя?
И потом, если C должен иметь подможество интерфейса x, не проще ли унаследоваться от x и не заморачиваться?

C и определяет. Естественно он может выбирать только из публичных.

ещё раз: как ты предлагаешь наследоваться от Int, в случае когда в C необходимо иметь несколько объектов класса Int?

Добавлено 15.03.11, 07:50
хотя возможно лучше без выбора: либо все публичные, либо никаких. Частичное сокрытие интерфейса внутреннего объекта может нарушить логику его поведения

Цитата D_KEY @ 15.03.11, 07:23

От чего? Все подробно вам объясняем. Ждем от вас того же, не всегда дожидаемся.

Ну ну, лукавить только не надо

korvin
Так что ли?

  IInt = interface
    function GetX: Integer;
    procedure SetX(const AX: Integer);
    property X: Integer read GetX write SetX;
  end;
 
  TInt = class(TInterfacedObject, IInt)
  strict private
    FX: Integer;
    function GetX: Integer;
    procedure SetX(const AX: Integer);
  end;
 
...
 
var
  Int: IInt;
begin
  Int := TInt.Create;
  Int.X ...
end;

Цитата D_KEY @ 15.03.11, 07:23

Какое отношение имеет эта отдельно взятая технология к языковым механизмам?

Это не просто технология - это стиль компонентно‑ориентированного программирования.

Цитата D_KEY @ 15.03.11, 07:23

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

Во первых: я уже точно не помню, там ещё манера изложения материала - по спирали, т.е. как минимум нужно по диагонали пробежаться;
Во вторых: мне некогда и лень сейчас искать/качать книгу;
В третьих: если действительно интересно - найдешь без труда, содержание там есть.
Ну и в четвёртых: о С++ там тоже идёт речь

Добавлено 15.03.11, 08:12

Цитата korvin @ 15.03.11, 07:42

хотя возможно лучше без выбора: либо все публичные, либо никаких.

Кажется понял, ты хочешь чтобы "автоматом" получались все методы?

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

Цитата DesweR @ 15.03.11, 08:10

Во первых: я уже точно не помню, там ещё манера изложения материала - по спирали, т.е. как минимум нужно по диагонали пробежаться;
Во вторых: мне некогда и лень сейчас искать/качать книгу;
В третьих: если действительно интересно - найдешь без труда, содержание там есть.

"Пойди туда, сам знаешь куда, принести то, сам знаешь что"

Цитата DesweR @ 15.03.11, 08:10

Цитата D_KEY @ 15.03.11, 07:23

Какое отношение имеет эта отдельно взятая технология к языковым механизмам?

Это не просто технология - это стиль компонентно‑ориентированного программирования.

http://en.wikipedia.org/wiki/Component_Object_Model

Цитата

Ну и в четвёртых: о С++ там тоже идёт речь

В основном сомнительной достоверности

Цитата DesweR @ 15.03.11, 08:10

Кажется понял, ты хочешь чтобы "автоматом" получались все методы?

по-моему это не то, что я хочу

?

  IInt = interface
    function  GetX: Integer;
    procedure SetX(const AX: Integer);
  end;
  
  TInt = class(TInterfacedObject, IInt)
  strict private
    FX: Integer;
  strict protected
    function  GetX: Integer;
    procedure SetX(const AX: Integer);
  end;
  
 
  TC = class
  strict private
    FInts: TList<IInt>; //всё в списке, для удобства
    function GetInt(const AIndex: Integer): IInt;
  public
    constructor Create(const AIntsCount: Integer);
    destructor  Destroy; override;
    property    Ints[const Index: Integer]: IInt read GetInt; //получаем интерфейс, а не сам объект
  end;
 
 
function TInt.GetX: Integer;
begin
  Result := FX;
end;
 
procedure TInt.SetX(const AX: Integer);
begin
  FX := AX;
end;
 
 
constructor TC.Create(const AIntsCount: Integer);
var
  i: Integer;
begin
  FInts := TList<IInt>.Create;
  
  FInts.Capacity := AIntsCount;
  for i := 0 to AIntsCount - 1 do
    FInts.Add(TInt.Create);    
end;
 
destructor TC.Destroy;
begin
  FreeAndNil(FInts);
end;
 
function TC.GetInt(const AIndex: Integer): IInt;
begin
  Result := FInts[AIndex];
end;
 
...
 
var
  C: TC;
begin
  C := TC.Create(3);
 
  C.Ints[0].SetX(111);
  C.Ints[1].SetX(222);
  C.Ints[2].SetX(333);
    
  Writeln(C.Ints[0].GetX);
  Writeln(C.Ints[1].GetX);
  Writeln(C.Ints[2].GetX);
  
  C.Free;
end;

зачем ты усложняешь?

Цитата korvin @ 15.03.11, 09:38

зачем ты усложняешь?

Ну а как?

Добавлено 15.03.11, 09:48

  TC = class
  strict private
    FInts1: IInt;
    FInts2: IInt;
    FInts3: IInt;
  public
    constructor Create;
    property    Int1: IInt read FInts1;
    property    Int2: IInt read FInts2;
    property    Int3: IInt read FInts3;
  end;

вот пример, как это могло бы быть на Java (интерфейс Show здесь не важен, просто для App.println):

package example;
 
interface Show {
    public String show ();
}
 
class Point implements Show {
    private int x = 1;
    private int y = 2;
 
    public int getX () { return x; }
    public int getY () { return y; }
 
    public void setX (int x) { this.x = x; }
    public void setY (int y) { this.y = y; }
 
    public String show () {
        return String.format( "(%d, %d)", x, y );
    }
}
 
class Line implements Show {
    /*спецификатор*/ Point A = new Point();
    /*спецификатор*/ Point B = new Point();
 
    public String show () {
        return String.format( "[%s - %s]", A.show(), B.show() );
    }
}
 
public class App {
    static void println (Show s) {
        System.out.println( s.show() );
    }
    public static void main (String[] args) {
        Line L = new Line();
        L.A.setX(8); // OK
        L.A.setY(9); // OK
 
        println(L);
        println(L.A); // ошибка компиляции
    }
}

Добавлено 15.03.11, 10:23

Цитата DesweR @ 15.03.11, 09:46

Цитата korvin @ 15.03.11, 09:38

зачем ты усложняешь?

Ну а как?

Добавлено 15.03.11, 09:48

  TC = class
  strict private
    FInts1: IInt;
    FInts2: IInt;
    FInts3: IInt;
  public
    constructor Create;
    property    Int1: IInt read FInts1;
    property    Int2: IInt read FInts2;
    property    Int3: IInt read FInts3;
  end;

а что будет, если

var
  A : TC;
  B : IInt;
 
...
 
B := A.Int1;

?

korvin, еще раз, в чем разница между предоставлением доступа к методам get/set и доступом "к самому объекту", если ты с объектом все-равно ничего сделать не сможешь, кроме get и set?

Сообщение отредактировано: D_KEY - 15.03.11, 10:26

Цитата korvin @ 15.03.11, 10:21

а что будет, если

Ну разве что объявить интерфейс и реализующий его класс внутри класса С.

  TC = class
  strict private
  type
    IInt = interface
      function  GetX: Integer;
      procedure SetX(const AX: Integer);
    end;
 
    TInt = class(TInterfacedObject, IInt)
    strict private
      FX: Integer;
    strict protected
      function  GetX: Integer;
      procedure SetX(const AX: Integer);
    end;
 
  strict private
    FInts: TList<IInt>;
    function GetInt(const AIndex: Integer): IInt;
  public
    constructor Create(const AIntsCount: Integer);
    destructor  Destroy; override;
    property    Ints[const Index: Integer]: IInt read GetInt;
  end;

var
  C: TC;
  B: IInt;//ошибка, необъявленный идентификатор
  B: TC.IInt;//Cannot access private symbol TC.IInt
begin
  C := TC.Create(3);
  B := C.Ints[0];

Добавлено 15.03.11, 10:36
Собственно тогда и интерфейс не нужен...

Сообщение отредактировано: DesweR - 15.03.11, 10:41

Цитата D_KEY @ 15.03.11, 10:26

korvin, еще раз, в чем разница между предоставлением доступа к методам get/set и доступом "к самому объекту", если ты с объектом все-равно ничего сделать не сможешь, кроме get и set?

get/set -- это условно, мне лень было придумывать кучу методов. разница в невозможности изменить часть объекта независимо от объекта, т.е. взять "адрес" на внутренний объект, передать куда-то и где-то там менять.

korvin, как я понимаю нужно что-то вроде:

class button
{
public:
 
    boost::function<void()> onClick;
};
 
class player
{
public:
 
    void play();
    void stop();
};
 
button playButton, stopButton;
player thePlayer;
 
void connect()
{
    playButton.onClick = boost::bind(&player::play, &thePlayer);
    stopButton.onClick = boost::bind(&player::stop, &thePlayer);
}

(пример кстати взят из документации по boost)

Для класса button в данном случае сокрыты не нужные методы player.

Сообщение отредактировано: Мяут-Настоящий - 15.03.11, 10:58

Ну или так.

  TInt = class
  strict private
    FX: Integer;
  public
    function  GetX: Integer;
    procedure SetX(const AX: Integer);
  end;
 
 
  TC = class
  strict private
  type
    TTCInt = class(TInt)
    end;
  strict private
    FInts: TList<TTCInt>;
    function GetInt(const AIndex: Integer): TTCInt;
  public
    constructor Create(const AIntsCount: Integer);
    destructor  Destroy; override;
    property    Ints[const Index: Integer]: TTCInt read GetInt;
  end;

var
  C: TC;
  //B: TTCInt; так не сработает
  B: TInt; //а так можно обойти, если догадаешься
begin
  C := TC.Create(3);
  B := C.Ints[0];

Добавлено 15.03.11, 10:58

Цитата Мяут-Настоящий @ 15.03.11, 10:55

korvin, как я понимаю нужно что-то вроде:

Ты вручную делегируешь методы, а Корвину это не нравится

Сообщение отредактировано: DesweR - 15.03.11, 10:58