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.
执行结果如下。

1
2
3


 

相关阅读 >>

Delphi 几个实用的html解析函数

Delphi分别连接ms sqlserver、oracle和access数据库的连接字符串

Delphi 关于虚拟的desktop的编程

Delphi windows 编程[10] - wm_lbuttondown、wm_lbuttonup 和 wm_mousemove 消息

Delphi 删除或清除tstringgrid中的行

Delphi-基础（for循环）

Delphi windows 编程[8] - wm_paint 消息

Delphi exec error 错误处理

Delphi nativeexcel获取excel所有列

Delphi将image存入mysql数据库

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

转载请注明出处：木庄网络博客 » Delphi中使用可修改的常量