Constants

Od verze 2. Objekt Constants slou₧φ pro uchovßvßnφ konstantnφch hodnot (tedy jednou definovan²ch a dßle neměnn²ch) i mimo běh jednoho skriptu. TakΘ umo₧ňuje konstanty ulo₧it a opět načφst do/ze soubor.

• procedure Clear - Metoda vyma₧e vÜechny konstanty a jejich hodnoty ze seznamu.

• procedure Define (VariableName: string, VariableValue: string) - Definuje novou konstantu a jejφ hodnotu.

• procedure Delete (VariableName: string) - Vyma₧e konstantu ze seznamu.

• function GetValue (VariableName: string): string - Vrßtφ hodnotu konstanty zadanΘ jmΘnem.

• function IsDefined (VariableName: string): Boolean - Vracφ True, pokud je konstanta zadanß sv²m nßzvem definovßna. Pokud nenφ, vracφ False.

• procedure SaveToFile (FileName: string) - Ulo₧φ seznam konstant a jejich hodnot do souboru.

• procedure LoadFromFile (FileName: string) - Odstranφ stßvajφcφ konstanty a načte konstanty a jejich hodnoty ze souboru.

Pozor! Nßzvy konstant jsou zßvislΘ na velikosti pφsmen a to bez ohledu na to, jak² skriptovacφ jazyk pou₧φvßte.

Přφklad:

Nßsledujφcφ přφklad načte konstanty ze souboru (pokud soubor existuje) a pokud nenφ definovßna konstanta i, definuje i. Nßsledně hodnotu konstanty zobrazφ. Nakonec konstantu opět ulo₧φ do souboru. Pozor. Z přφkladu se mů₧e zdßt, ₧e je nutnΘ konstanty neustßle načφtat a uklßdat. Nenφ to pravda. Konstanta existuje od svΘ definice a₧ do zavolßnφ metody Clear, Delete nebo do ukončenφ rkEditu. Ulo₧enφ na disk zajistφ, ₧e při znovunačtenφ konstant např. při novΘm spuÜtěnφ rkEditu bude konstant existovat.

function Example()

{

  var

    cons = 'C:\\cons.txt';

  if (System.FileExists (cons))

    Constants.LoadFromFile (cons);

  if (!Constants.IsDefined ('i'))

    Constants.Define ('i', 0);

  Dialogs.ShowMessage (Constants.GetValue ('i'));

  Constants.SaveToFile (cons);

}