Изменять значения константDelphi , Синтаксис , Типы и ПеременныеИзменять значения констант
Оформил: DeeCo procedure ChangeConst(const Constant; var Value; Size: Integer); begin Move((@Value)^, (@Constant)^, Size); end; // How to use ChangeConst: (Sample) const TestStrConst: string = 'This is a text sample'; TestInteger: Integer = 4367; var NewString: string; NewInteger: Integer; begin // String Demo: ShowMessage('Before ChangeStringConst (TestStrConst): ' + TestStrConst); NewString := 'New Value'; ChangeConst(TestStrConst, NewString, SizeOf(string)); ShowMessage('After ChangeStringConst (TestStrConst): ' + TestStrConst); // Integer Demo: ShowMessage('Before ChangeStringConst (TestInteger): ' + IntToStr(TestInteger)); NewInteger := 93534; ChangeConst(TestInteger, NewInteger, SizeOf(Integer)); ShowMessage('After ChangeStringConst (TestInteger): ' + IntToStr(TestInteger)); end; В статье описана процедура ChangeConst, позволяющая изменять значения констант в программном коде Delphi. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Типы и Переменные ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |