Globale Variablen

[Christian Seehase]

Moin Silent,

ich meine nahezu das Gleiche wie sakura.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    // Was halt so auf dem Formular ist
    // ergänzt um Deine Prozeduren
    procedure MyProc1;
    procedure MyProc2;
  private
    // Klassenfeld (wie sakura schon sagte)
    Firgendwas: boolean;
  public
    // Als Eigenschaft veröffentlicht, damit ggf. von Aussen zugegriffen werden kann
    // ansonsten kann man das auch weglassen
    property irgendwas : boolean read FfVariable;
  end;

//...

implementation

procedure TForm1.MyProc1;
begin
  irgendwas := false;
end;

procedure TForm1.MyProc2;
begin
  irgendwas := true;
end;

Oder als eigenes Objekt:

Delphi-Quellcode:

type
  TMyClass = class(TObject)
  private
    Firgendwas : boolean;
  public
    procedure MyProc1;
    procedure MyProc2;
    // Wiederum bei Bedarf
    property irgendwas : boolean read Firgendwas;
  end;

implementation

procedure TMyClass.MyProc1;
begin
  irgendwas := false;
end;

procedure TMyClass.MyProc2;
begin
  irgendwas := true;
end;

Eingebunden z.B. in das Formular

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    //...
    procedure FormCreate(sender: TObject);
    procedure FormDestroy(sender: TObject);
  private
    FMyObject : TMyClass;
  public
    property MyObject : TMyClass read FMyObject;
  end;

implementation

// In OnCreate des Formulares erstellen
procedure TForm1.FormCreate(sender: TObject);
begin
  FMyObject := TMyClass.Create;
end;

// und im OnDestroy wieder freigeben
procedure TForm1.FormDestroy(sender: TObject);
begin
  FreeAndNil(FMyObject);
end;

War das so als Beispiel verständlich?