Globale Konstanten

[dGeek]

Ich mache das immer so:

Delphi-Quellcode:

unit _global_vars;

interface

// uses ... ;

type
 TGlobalVars = packed record
 
 // alles mögliche an Variablen z.B.
 iInteger: Integer;
 sString: String;

 // und / oder const z.B:
 const
  iConstInteger: Integer = 123;
  sConstString: String = 'Fester String';
end;

// ...

var 
 aGlobalVars: TGlobalVars; // Variablen und Konstanten können nun über "aGlobalVars.sMeineVariable" aufgerufen werden.
 
implementation

// hier notfalls irgendwelchen Funktionen und Proceduren, wenn nötig

end.

Ich finde das mit dem Record besser, da so ein Kontext besteht und man so weiß, wo die Variable hingehört.
Dafür das Record natürlich entsprechend benennen.