Variables

Od verze 2. Objekt Variables slou₧φ pro uchovßvßnφ hodnot i mimo běh jednoho skriptu. TakΘ umo₧ňuje proměnnΘ ulo₧it a opět načφst do/ze souboru. Toho lze vyu₧φt např. při u₧ivatelsky zadßvan²ch datech, kdy lze u₧ivateli nabφdnout předchozφ hodnotu.

• procedure Clear - Metoda vyma₧e vÜechny proměnnΘ a jejich hodnoty ze seznamu.

• procedure Define (VariableName: string, VariableValue: string) - Definuje proměnnou a jejφ hodnotu.

• procedure Delete (VariableName: string) - Vyma₧e proměnnou ze seznamu.

• procedure SetValue (VariableName: string, VariableValue: string) - Nastavφ proměnnΘ v seznamu novou hodnotu.

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

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

• procedure SaveToFile (FileName: string) - Ulo₧φ seznam proměnn²ch a jejich hodnot do souboru.

• procedure LoadFromFile (FileName: string) - Odstranφ stßvajφcφ proměnnΘ a načte proměnnΘ 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 proměnnΘ ze souboru (pokud soubor existuje) a pokud nenφ definovßna proměnnß i, definuje ji. Pokud je definovßna, přičte k nφ jedničku. Nßsledně hodnotu proměnnΘ zobrazφ. Nakonec proměnnΘ opět ulo₧φ do souboru. Pozor. Z přφkladu se mů₧e zdßt, ₧e je nutnΘ neustßle proměnnΘ načφtat a uklßdat. Nenφ to pravda. Proměnnß 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φ proměnn²ch např. při novΘm spuÜtěnφ rkEditu bude proměnnß existovat.

function Example()

{

  var

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

  if (System.FileExists (vars))

    Variables.LoadFromFile (vars);

  if (Variables.IsDefined ('i'))

    Variables.SetValue ('i', Variables.GetValue ('i')*1+1);

  else

    Variables.Define ('i', 0);

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

  Variables.SaveToFile (vars);

}