Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Вниз

Можно ли изменить параметр 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]

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


 
vidiv ©   (2006-10-28 18:10) [5]

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


 
MsGuns ©   (2006-10-28 18:16) [6]

>Anatoly Podgoretsky ©   (28.10.06 13:01) [4]
>Грязным хаком пахнет

Я бы даже сказал "смердит"



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.043 c
2-1162404089
Vladimir1984
2006-11-01 21:01
2006.11.19
как сохранить файл bmp из панели, используя SavePictureDialog


2-1162460306
проходил мимо решил заглянуть
2006-11-02 12:38
2006.11.19
Ошибки конвертации


3-1158692386
Inq
2006-09-19 22:59
2006.11.19
Написание потомка DataSet


3-1158326339
-=Tiger=-
2006-09-15 17:18
2006.11.19
Перемещение записей в ADOTable


8-1141656784
Belorus
2006-03-06 17:53
2006.11.19
Медиа плеер.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский