delphi – 在一个单元中我把$R指令包含在资源中是否重要？

发布时间：2020-12-15 09:38:47 所属栏目：大数据来源：网络整理

导读：看看这个小片段： implementation{$R *.dfm} 我是否将代码放在{$R * .dfm}之上或之下？有关系吗？我在这个问题上找不到任何确认. 是否有一套标准可以解决这个问题,还是仅仅是设计师？解决方法它没关系,但作为一项规则,我把我的代码放在下面,编译开关实际

看看这个小片段：

implementation
{$R *.dfm}

我是否将代码放在{$R * .dfm}之上或之下？有关系吗？
我在这个问题上找不到任何确认.
是否有一套标准可以解决这个问题,还是仅仅是设计师？

解决方法

它没关系,但作为一项规则,我把我的代码放在下面,编译开关实际上链接该文件与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.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!