Можно ли изменить параметр FVisible в привате класса другого юнит

← →
ProV (2006-10-28 05:53) [0]

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

← →
vidiv © (2006-10-28 07:52) [1]

Можно...
вычислить смещение и записать в память... но это некрасиво!

← →
ЮЮ © (2006-10-28 08:46) [2]

> Нужно, чтобы не вносить своих изменений в исходник проекта
> с открытым исходником лежащим на CVS и часто оттуда обновляемым

Добавь protected св-во для изменения этого поля. И залей туда.Пусть все пользуются.

А может уже есть метод для его изменения?

← →
vidiv © (2006-10-28 08:54) [3]

program Project2; {$APPTYPE CONSOLE} type TMyClass=class(TObject) private FVisible: boolean; public constructor Create; procedure Show; end; PBoolean = ^Boolean; { TMyClass } constructor TMyClass.Create; begin FVisible := false; end; procedure TMyClass.Show; begin Writeln(FVisible); end; var Obj: TMyClass; begin Obj := TMyClass.Create; Obj.Show; PBoolean(integer(Obj)+4)^ := true; Obj.Show; Obj.Free; readln; end.

← →
Anatoly Podgoretsky © (2006-10-28 13:01) [4]

Грязным хаком пахнет

А вот вызвать метод - это уже сложнее... Самое сложное найти его адрес в памяти... Хотя это для меня, для когото может и просто =)

Можно ли изменить параметр FVisible в привате класса другого юнит Найти похожие ветки