德爾福：分配給全球紀錄 - 全球記錄不改變

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）;