Delphi中使用可修改的常量

本文整理自网络，侵删。

 您可以在Delphi中使用可重写常量。
以下代码重写常量。此代码将导致编译错误。
procedure F;const  foo: Integer = 0;begin  foo := foo + 1; //[dcc32 エラ?`] Project1.dpr(13): E2064 代入できない左?x??です  WriteLn(foo);end;使用编译器命令“ {$ J +}”或“ {$ WRITEABLECONST ON}”将导致可以更改的常量。
procedure F;const{$WRITEABLECONST ON}  foo: Integer = 0;{$WRITEABLECONST OFF}begin  foo := foo + 1;  WriteLn(foo);end;创建以下控制台应用程序作为示例应用程序。
program Project1;
{$APPTYPE CONSOLE}{$R *.res}
uses  System.SysUtils;
procedure F;const{$WRITEABLECONST ON}  foo: Integer = 0;{$WRITEABLECONST OFF}begin  foo := foo + 1;  WriteLn(foo);end;
begin  F;  F;  F;end.执行结果如下。
123

 

相关阅读 >>

Delphi 判断正在运行的设备是iphone还是ipad

Delphi 关闭所有正在运行的程序

Delphi 将字符串转换成 utf8 编码的函数

Delphi 命令行程序调用单元函数

Delphi access violations 问题的解决之道

Delphi xe 安卓 memo设置字体颜色

Delphi 如何让程序在按了 android 的 back 键后不关闭当前 from 或者不 app 退出

Delphi stringgrid中回车换行

Delphi 精要-读书笔记(内存分配释放)

Delphi 的异步方法

更多相关阅读请进入《Delphi》频道 >>