Zum Thema globale
Unit für Konstanten ... siehe Units SysConst und RTLConsts ... also warum nicht
Wobei es in D6 wohl noch nicht geht,
aber ich kapsle immer öfters Konstanten direkt in die Klassen, zu denen sie gehören.
Delphi-Quellcode:
type
TMyClass = class
private type
TMySubType = Integer;
...
public type
TMyOtherSubType = Cardinal;
...
protected const
cEineKonstante = 129;
...
public const
cAndereKonstante = 'abx';
...
private class var
FLock: TCriticalSection;
...
private
FField: Integer;
...
protected
...
public
...
published
...
end;
So hat man alles schön zusammen.
Und aufgerufen wird's z.B. so TMyClass.cEineKonstante.