<textarea class="delphi" rows="10" cols="60" name="code"> const i : integer = 1; //================== 在程式中寫下面的語句 i := 3; </textarea> 如果在Delphi4中，可以編譯成功。 在Delphi7中報錯“Left side cannot be assigned to ” 如何解決？

小弟用delphi5測試好像沒有問題
是不是delphi7比較嚴謹…
如果是在procedure test(const i: Integer = 1);基本上i是無法再修改的吧…

~小弟淺見，參考看看~
===================引 用 文 章===================
<textarea class="delphi" rows="10" cols="60" name="code">const i : integer = 1; //================== 在程式中寫下面的語句 i := 3; </textarea> 如果在Delphi4中，可以編譯成功。 在Delphi7中報錯“Left side cannot be assigned to ” 如何解決？

------
~小弟淺見，參考看看~

check help yourself.

typed constants, unlike true constants, can hold values of array, record, procedural, and pointer types. Typed constants cannot occur in constant expressions.
In the default {$J-} compiler state, typed constants can not have new values assigned to them; they are, in effect, read-only variables. However, if the {$J } compiler directive is in effect, typed constants can have new values assigned to them; they behave essentially like initialized variables.
Declare a typed constant like this:

const identifier: type = value

where identifier is any valid identifier, type is any type except files and variants, and value is an expression of type type. For example,

const Max: Integer = 100;

In most cases, value must be a constant expression; but if type is an array, record, procedural, or pointer type, special rules apply.

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

既要宣告為"常數"又要改變它的值不是很矛盾嗎?

------
~§~迷時師渡，悟了自渡~§~

其實我也不算是有真的用過這樣的方式..不過Delphi可以這樣玩應該是錯不了..:P

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=65890

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

楼主可用编译指令来操作

{$J }
const
I: Integer = 0;
{$J-}
begin
Inc(I);
....
end;