Verwenden von Pointern

[Klaus01]

Hallo,

estelle Dir eine Unit mit der "globalen Klasse".
Diese Unit kannst Du in alle Forms einbinden.
Nutze das Singleton Pattern.

Delphi-Quellcode:

type
  TDeineKlasse = class(TObject)
    private
      class var fInstance: TDeineKlasse;
      constructor create; 
   public
      class function getInstance: TDeineKlasse;
  end;


implementation

class function TDeineKlasse.getInstance: TDeineKlasse;
begin
  if not assigned(fInstande) then
    fInstance := TDeineKlasse.create;

  result := fInstance;
end;

Grüße
Klaus