变量初始化

aqr95022

于 2015-02-17 12:16:00 发布

阅读量75

点赞数

原文链接：http://www.cnblogs.com/BlackList-Sakura/p/4295113.html

版权

本文探讨了在Delphi中如何为变量赋初始值及利用initialization进行初始化的方法。通过示例展示了使用const关键字和WritableConstOn/off指令赋值，以及在initialization段设置变量的流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1.变量赋初始值

 1 const
 2 {$J+}
 3   num: Integer = 1;
 4 {$J-}
 5 begin
 6   Inc(num);
 7   ShowMessage(IntToStr(num)); {2}
 8 end;
 9 
10 //或者写作:
11 const
12 {$WRITEABLECONST ON}
13   num: Integer = 1;
14 {$WRITEABLECONST OFF}
15 begin
16   Inc(num);
17   ShowMessage(IntToStr(num)); {2}
18 end;

2.利用initialization初始化

1 var
2   FilePath : string;
3 
4 implementation
5 
6 initialization
7   FilePath := ExtractFilePath(Application.ExeName) + 'Test.xml'; {..\Test.xml}
8 
9 end.