Delphi：分配给全局记录 - 全局记录不会改变

Question

在delphi单元中，我有一个名为“Context”的全局记录：

interface
  type
    TContext = record
       ...
    end;

  var
    context: TContext;

我在这个单元中还有一个初始化过程，采用上下文：

interface  
  procedure Init(AContext: TContext);

在Init过程中，我尝试将给定的上下文分配给全局上下文：

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

出于某种原因，分配后全局上下文保持为空。这是为什么？ 在过程内声明一个局部变量并为其赋值按预期工作。

---

我应该提到的是，这个单元位于 dll 中，并且 init 过程是从 exe 调用的。 声明一条全局记录或声明几个全局字符串没有什么区别。分配的值丢失。

问候，
-维加

Answer 1

我想你必须展示更多的代码。使用

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.

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

Answer 2

发现错误了。一切真的有点乱......原来负责调用init方法的对象存在两次，并且包含全局变量的单元同时存在于dll和exe项目中。由于某种原因，调用类的一个实例操纵了 exe 内的全局变量，另一个操纵了 dll 内的全局变量，开发人员和调试器都陷入了停顿......

该代码是一些旧代码的一部分，我们正在尝试分解和清理混乱的遗留代码。我们真的开始掌握“破坏”部分的窍门...

感谢您的回复，很抱歉浪费您的时间。

问候，
-维加

Answer 3

如果您不更改

procedure Init(AContext: TContext);

到

过程 Init(Var AContext: TContext);