Nginx GUI Administrator

[sx2008]

Hmmm...
Jetzt sind die globalen Variablen immer noch global:

Delphi-Quellcode:

unit functions;

interface

var {global sichtbar}
  IsRunning : Boolean = False;
  IsAutoStart : Boolean = False;
  sConfPath: String;

Verschieben nach TGUI ist doch viel besser:

Delphi-Quellcode:

type
  TGUI = class(TForm)
    MainBox: TGroupBox;
....
  private
    IsRunning : Boolean;
    IsAutoStart : Boolean;
    sConfPath: String;
    function AutoStartExist: Boolean;

Private Variablen in Klassen werden in Delphi autom. mit 0 initialisiert; IsRunning und IsAutoStart sind also zu Beginn =False.
Es ist üblich private Variablen den Prefix "F" (für Field) vorneanzustellen.

Delphi-Quellcode:

  private
    FIsRunning : Boolean;
    FIsAutoStart : Boolean;
    FConfPath: String;