看看这个小片段:
implementation
{$R *.dfm}
Run Code Online (Sandbox Code Playgroud)
我将代码置于{$R *.dfm}其上方或下方吗?有关系吗?
我在这个问题上找不到任何确认.
是否有一套标准可以解决这个问题,还是仅仅是设计师?
小智 5
它没关系,但作为一项规则,我把我的代码放在下面,编译开关实际上链接pas文件与dfm文件(pas + dfm = form!),这里有一些提示.
unit Unit1;
interface
uses
....
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
local_var: String;
function myFormFunction:String;
end;
var
Form1: TForm1;
// global vars
superVar: integer;
const
// global constants
MY_CONST = 'TEXT!!!';
implementation
{$R *.dfm}
{ TForm1 }
// YOUR CODE!
procedure aCoolFunction;
Begin
// your code
inc(superVar);
End;
function TForm1.myFormFunction: String;
begin
// your code
local_var := 'some '+ MY_CONST;
inc(superVar);
end;
end.
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
228 次 |
| 最近记录: |