Variable in Record für Unit (initialization) deklarieren

[LTE5]

Ich komme gerade nicht weiter. Wie muss man eine Variable in einem Record deklarieren, wenn diese nur für diese ein Unit zur Verfügung stehen soll?

Gebraucht wird die Variable im initialization-Teil.

In dieser Variablen vom Typ TFormatSettings möchte ich die aktuell von Windows genutzten Formate
FormatSettings.ShortTimeFormat, FormatSettings.LongTimeFormat, FormatSettings.ShortDateFormat und FormatSettings.LongDateFormat speichern.

[Der schöne Günther]

Zitat:

Zitat von LTE5 (Beitrag 1389425)

wenn diese nur für diese ein Unit zur Verfügung stehen soll?

Das ist das Schlüsselwort

Delphi-Quellcode:

private

.

Delphi-Quellcode:

interface uses System.SysUtils;

type
   TSomeRecord = record
      private var
         originalFormatSettings: TFormatSettings;
   end;

var
   iLikeGlobalVariables: TSomeRecord;

implementation

initialization
   iLikeGlobalVariables.originalFormatSettings := System.SysUtils.FormatSettings;
end.

[LTE5]

Delphi-Quellcode:

iLikeGlobalVariables: TSomeRecord;

Das hat mir gefehlt.

Kann man das irgendwie lokal deklarieren, sodass andere Units diese Variable nicht sehen?
Denn ich arbeite grundsätzlich mit Records und Class-Angaben wie diese hier

Delphi-Quellcode:

class procedure TUnitX.FunctionY(Param: Z);

und rufe das über TUnitX.FunctionY(Z); auf.

[Der schöne Günther]

Verschiebe die Varialen-Deklaration vom

Delphi-Quellcode:

interface

in den

Delphi-Quellcode:

implementation

-Teil, schon sieht sie außer deiner Unit keiner mehr.

[Delphi.Narium]

Delphi-Quellcode:

implementation

var
   iLikeGlobalVariables: TSomeRecord;

[LTE5]

:thumb:

Wieder was gelernt. Danke.

Jetzt kann ich im initialization-Teil folgendes machen, genau wie gewünscht

Delphi-Quellcode:

iLikeGlobalVariables.originalFormatSettings.ShortDateFormat := FormatSettings.ShortDateFormat;
usw

Natürlich nutze ich andere Variablennamen.