Изменять приватные свойства одного класса внутри другого

[TwiX]

Можно ли как-нибудь сделать так, чтобы из класса А можно было бы изменять v.bv? Полагаю, должен быть какой-нибудь атрибут Friend

b = class
private
 bv: integer;
end;

a = class
 v: b;
end;

[Sibedir]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  Tb = class
  private
    bv: integer;
  end;

  Ta = class
    v: Tb;
    constructor Create;
    procedure Free;
  end;

var
  Form1: TForm1;

implementation

{ Ta }

constructor Ta.Create;
begin
  inherited Create;
  v := Tb.Create;
  v.bv := 0;
end;

procedure Ta.Free;
begin
  v.Free;
  inherited Free;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  a: Ta;
begin
  a := Ta.Create;
  a.v.bv := 1;
  ShowMessage (IntToStr (a.v.bv));
  a.Free;
end;

end.

Поясни суть проблемы. Ведь в пределах одного модуля раздел private доступен всем.

[Sanprof]

Можно через интерфейсы, в любых приделах ко всем секциям.

[Stilet]

Зачем? Sibedir ведь четко сказал - проблем не будет.

[TwiX]

Спасибо. В смысле "в пределах одного модуля"? А если А находится в A.pas, а B в B.bas, то так можно делать?

[Sibedir]

private - скрытый раздел.
По сути ваш вопрос звучит следующим образом: "Я поесил на дверь замок. Как мне в неё войти?"
Зачем, спрашивается, вообще нужно вешать замок?

Есть вариант, когда B.pas - модуль стороннего разработчика. Тогда можно его взять и исправить. Если есть только B.dcu, то остается только материть разработчика.

[Пепел Феникса]

А если А находится в A.pas, а B в B.bas, то так можно делать?

нет, private это для классов в одном модуле(A и B в моделе AB.pas)

вообще есть protected который доступен и потомкам.(это при наследовании)

Sanprof, можно и по указателю, благо известно как класс устроен8)

[Sibedir]

Да, если нет иных способов, через указатель будет самое оно.

[Alter]

Ну так что мешает так написать:

type TTest = class
  private
   FSecret :string;
   FInt :Integer;
  protected

  public

  published
   property Secret:string read FSecret write FSecret;
   property Intg:Integer read FInt write FInt;
end;

[BOBAH13]

Сообщение от Alter

Ну так что мешает так написать:

type TTest = class
  private
   FSecret :string;
   FInt :Integer;
  protected

  public

  published
   property Secret:string read FSecret write FSecret;
   property Intg:Integer read FInt write FInt;
end;

Наверное эго а по указателю, в не управляемом языке, вы серьезно? Доступ на абум. Плохая затея.