Получить доступ к секции Private

[Kronos913]

Вопрос выходит из название - как получить из своего юнита доступ к секции "PRIVATE" объекта из чужого юнита?

С одной стороны, я понимаю, что оно для того и "Private" чтобы туда никто не лазил. Но может есть обход?

В этой теме я затронул конкретную задачу - пытался создать самостоятельную процедуру для TBitMap, но столкнулся с проблемой того, что нужно получить доступ к свойствам, которые находятся в секции "Private"

Создал отдельную тему потому что вообще вопрос то касается не только BitMap, а любого объекта. Если кто-то будет гуглить аналогичный вопрос - чтобы попадал на эту тему=))

[Arigato]

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

как получить из своего юнита доступ к секции "PRIVATE" объекта из чужого юнита?

Хотите, извращайтесь:

type
  TMyClass = class
    private
      FTest: Integer;
    public
      property Test: Integer read FTest;
      constructor Create(A: Integer);
  end;

constructor TMyClass.Create(A: Integer);
begin
  inherited Create;
  FTest := A;
end;

type
  TMyHackClass = class
    public
      FTest: Integer;
      property Test: Integer read FTest;
      constructor Create(A: Integer);
  end;

constructor TMyHackClass.Create(A: Integer);
begin
  inherited Create;
  FTest := A;
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  A: TMyClass;
begin
  A := TMyClass.Create(123);
  TMyHackClass(A).FTest := 456;
  ShowMessage(IntToStr(A.Test));
end;

Чем больше извращений в коде, тем лучше

[northener]

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

Хотите, извращайтесь

Ну это слишком жесткое извращение. Причем без объяснений почему в данном примере это работает.

[Arigato]

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

Причем без объяснений почему в данном примере это работает.

Пусть ТС сам разберется, почему и как оно работает

[phomm]

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

Если кто-то будет гуглить аналогичный вопрос - чтобы попадал на эту тему=))

"Наивный юноша" ©
Кому надо будет, если учился грамотно, пойдёт и возьмёт https://docwiki.embarcadero.com/Libr...iType.GetField
Но это неактуально для дельфи7 в любом случае, тк 20 с лишним лет прошло.
Пытаться делать такие доступы либо хаками, как выше, либо писать самому что-то сеньорское, вроде расчёта смещений, для этого надо читать GunSmoker

НО ! это дичайший треш, решать задачу обращения к паре элементов, через доступ к приват полям такого класса, как, нихрена себе ☝️, TBitmap, когда это делатеся в одну процедурку (либо юзерскую либо через наследника):

procedure SetBitmapSize(ABitmap: TBitmap; AWidth, AHeight: Integer);
begin
  Assert(Assigned(ABitmap));
  ABitmap.Width := AWidth;
  ABitmap.Height := AHeight;
end;