4

看看这个小片段:

implementation
{$R *.dfm}

我将代码放在上面{$R *.dfm}还是下面?有关系吗?
我找不到关于这个问题的任何确认。
是否有一套标准来解决这个问题,还是只是设计师?

4

2 回答 2

5

没关系。代码和资源不会相互影响(除非您尝试加载不存在的资源,但这是一个完全不同的问题)。话虽如此,我更喜欢将所有选项都放在顶部。

于 2013-06-04T05:21:39.853 回答
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.
于 2013-06-04T05:28:55.147 回答