Installation von OnGuard, Unit Forms

[Gutelo]

Danke Himitsu,

nun bleibt er an folgender Stelle haengen:

Code:

procedure TModifierFrm.ModifierClick(Sender: TObject);
const
  Busy : Boolean = False;
var
  L : LongInt;
  D : TDateTime;
begin
  if Busy then
    Exit;

  {set busy flag so that setting "Checked" won't recurse}
  Busy := True;

Das kann doch auch eigentlich garnicht funktionieren der Konstanten Busy einen Wert zuzuweisen ...

[himitsu]

Funktionieren schon ... aber man sollte es nicht machen.

Zur Abwärtskompatibilität zu urururururalten Programmen kann man den Schreibschutz für typisieren Konstanten deaktivieren,
womit die wie eine private globale Variable arbeiten.

Typisierte Konstanten sind intern eigentlich schreibgeschützte Variablen.

Delphi-Quellcode:

const
  IchBinTypisiert: Boolean = False;
  IchBinEsNicht = False;

Wende dich an den Ersteller und der soll gefälligst den Schrott beheben,
oder mach daraus eine Globale Variable in der Implementation, damit es schnell funktioniert,
es könnte aber auch sein, daß es eigentlich ein privates Feld in TModifierFrm sein müsste, also an die Instanz gebunden und garnicht global.

[Gutelo]

Vielen Dank

Nachdem ich die Konstante Busy aus der Funktion raus habe und als globale Variable in der Unit definiert habe konnte ich das OnGuard Paket endlich installieren.