Доступ к данным, хранящиеся в другом блоке Delphi

Question

В unit2 моей программы у меня есть следующий код:

TValue = Record 
    NewValue, 
    OldValue, 
    SavedValue : Double; 
end; 

TData = Class(TObject) 
Public 
    EconomicGrowth : TValue; 
    Inflation : TValue; 
    Unemployment : TValue; 
    CurrentAccountPosition : TValue; 
    AggregateSupply : TValue; 
    AggregateDemand : TValue; 
    ADGovernmentSpending : TValue; 
    ADConsumption : TValue; 
    ADInvestment : TValue; 
    ADNetExports : TValue; 
    OverallTaxation : TValue; 
    GovernmentSpending : TValue; 
    InterestRates : TValue; 
    IncomeTax : TValue; 
    Benefits : TValue; 
    TrainingEducationSpending : TValue; 
End; 

Я тогда декларировать данные: TDATA в Var.

, когда я пытаюсь сделать следующее, однако в группы1:

ShowMessage(FloatToStr(Unit2.Data.Inflation.SavedValue)); 

Я получаю сообщение EAccessViolation. Есть ли способ получить доступ к данным, хранящимся в «Данные» из Unit1, без ошибок?

Answer 1

Добавить Data := TData.Create; в раздел Unit12 initialization или изменить TData на запись вместо объекта. Нет ничего неправильного в доступе к глобальным объектам Unit2 из Unit1, если они правильно инициализированы.

Answer 2

@ Hendriksen123, вы инициализируете переменную Data перед ее использованием? EAccessViolation является классом исключений для недопустимых ошибок доступа к памяти и обычно возникает, когда ваш код пытается получить доступ к объекту, который не был создан (инициализирован) или уже был уничтожен.

попробуйте использовать Data := TData.Create;

, а затем вы можете использовать Data вар.

Answer 3

unit Unit2; 

interface 

type 
    TValue = Record 
    NewValue, 
    OldValue, 
    SavedValue : Double; 
    end; 

    TData = Class(TObject) 
    Public 
    EconomicGrowth : TValue; 
    Inflation : TValue; 
    Unemployment : TValue; 
    CurrentAccountPosition : TValue; 
    AggregateSupply : TValue; 
    AggregateDemand : TValue; 
    ADGovernmentSpending : TValue; 
    ADConsumption : TValue; 
    ADInvestment : TValue; 
    ADNetExports : TValue; 
    OverallTaxation : TValue; 
    GovernmentSpending : TValue; 
    InterestRates : TValue; 
    IncomeTax : TValue; 
    Benefits : TValue; 
    TrainingEducationSpending : TValue; 
    End; 

procedure InitialiseData (var pData : TData); 

implementation 

procedure InitialiseData (var pData : TData); 
begin 
    pData := TData.Create; 

    pData.EconomicGrowth.SavedValue := 1.00; 

end; 

end. 

---

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Unit2, 
    StdCtrls; 

type 
    TForm1 = class(TForm) 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    vData : TData; 
begin 
    Unit2.InitialiseData(vData); 

    ShowMessage(FloatToStr(vData.EconomicGrowth.SavedValue)); 

end; 

end. 

---

Это работает