delphi中使用可修改的常量
您可以在Delphi中使用可重写常量。
以下代码重写常量。
此代码将导致编译错误。
procedure F;
const
foo: Integer = 0;
begin
foo := foo + 1; //[dcc32 エラー] Project1.dpr(13): E2064 代入できない左辺値です
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
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.043046951293945 seconds