Record Properties

[FAM]

Hallo Zusammen,

ich habe einen eigenen Datentypen über record definiert.

Delphi-Quellcode:

  TRedundancyLivedataResult = record
  private
    FAppTime: String;
    FOpcTime: string;
    procedure SetRedundanyLivedataAppTime(const Value: String);
    procedure SetRedundanyLivedataOpcTime(const Value: String);
  public
    property AppTime: String read FAppTime write SetRedundanyLivedataAppTime;
    property OpcTime: string read FOpcTime write SetRedundanyLivedataOpcTime;
  end;

diesen Benutze ich in einer Klasse

Delphi-Quellcode:

 TViewModel = class(TModel)
  private
...

    FConsoleHandler: TConsoleHandler;

    FRedundancyLivedata: TRedundancyLivedataResult;

    property RedundanyLivedata: TRedundancyLivedataResult
      read FRedundancyLivedata write SetRedundancyLivedata;
...

procedure TViewModel.SetRedundancyLivedata(const Value
  : TRedundancyLivedataResult);
begin
FRedundancyLivedata := Value;
end;

...

Im Haupt-Programm

Delphi-Quellcode:

// Daten ins Model schreiben
FViewModel.RedundanyLivedata.AppTime := Result.AppTime;

dann wird intern das ausgeführt, mein Problem ist wie komme ich aus den Record-Setter TRedundancyLivedataResult.SetRedundanyLivedataAppTime zurück zur "Parent-Klasse" TViewModel um auf dessen Member-Vars zurückzugreifen (z.B. FConsoleHandler)

Delphi-Quellcode:

procedure TRedundancyLivedataResult.SetRedundanyLivedataAppTime
  (const Value: String);
begin

  // Nur wenn sich die Daten geändert haben
  if (FAppTime <> Value) then
  begin
    // Neue Daten speichern
    FAppTime := Value;


// An dieser Stelle möchte gerne auf Members aus der Klasse (TViewModel) zugreifen
// TViewModel.FConsoleHandler <- geht logischerweise nicht


  end;
end;