德尔福：分配给全球纪录 - 全球记录不改变

Question

德尔福单位，我有一个名为“语境”全球记录：

interface 
    type 
    TContext = record 
     ... 
    end; 

    var 
    context: TContext; 

我也有在这个单元中的初始化程序，采取背景：

interface 
    procedure Init(AContext: TContext); 

的初始化过程里面，我试着给定上下文分配给全球范围内：

implementation 
    procedure Init(AContext: TContext); 
    begin 
    context := AContext; 
    end; 

佛由于某种原因，作业后的全局范围仍然是空的。这是为什么？ 在过程中声明一个局部变量，并赋予它按预期工作。

---

我应该提到的是，这个单元住在一个dll中，而init程序是从exe中调用的。 声明一个全局记录，或声明几个全局字符串没有区别。分配的值将丢失。

问候，
-Vegar

Answer 1

找到错误。一切都真的是一团糟......原来，负责调用init方法的对象存在两次，并且包含全局变量的单元同时存在于dll和exe项目中。出于某种原因，其中一个调用类的实例操纵EXE内的全局变量，另一个是DLL里面的全局变量，以及开发人员和调试器都停止响应...

代码是是我们试图拆分和清理的一些旧的，凌乱的遗留代码的一部分。我们真的开始得到'破'的部分......

感谢您的答复，并遗憾浪费您的时间。

问候， -Vegar

Answer 2

我想你必须表明，更多的代码。随着

unit Unit1; 

interface 

type 
    TContext = record 
    dummy: Integer; 
    end; 

var 
    context: TContext; 

procedure Init(AContext: TContext); 

implementation 

procedure Init(AContext: TContext); 
begin 
    context := AContext; 
end; 

end. 

和

program Project1; 

{$APPTYPE CONSOLE} 

uses 
    Unit1 in 'Unit1.pas'; 

procedure Test; 
var 
    c: TContext; 
begin 
    c.dummy := 666; 
    Init(c); 
end; 

begin 
    Test; 
end. 

我得到预期的结果，即c和Unit1.context都包含666 Test执行Init(c);后。

Answer 3

如果你不改变

程序初始化（AContext：TContext）;

至

procedure Init（Var AContext：TContext）;