Legistry 使用例（Delphi Script サンプル）

　レジストリィはairWeb標準の設定情報データベースです。DlphiScriptからは、TLegistryコンポーネントを経由して、データの読み書きを行うことができます。以下に代表的な使用例を記します。
  1. TLegistry.Create　レジストリィのオープン
  2. TLegistry.Free　レジストリィのクローズ
  3. TLegistry.ReadStringDef　文字列の読み込み
  4. TLegistry.ReadIntegerDef　数値の読み込み
  5. TLegistry.ReadBoolDef　論理値の読み込み
  6. TLegistry.Signature　シグネチャの設定
  7. TLegistry.CreateKey　キーの作成
  8. TLegistry.WriteString　文字列の保存
  9. TLegistry.WriteInteger　数値の保存
  10. TLegistry.WriteBool　論理値の保存
■TLegistry.Crearte（レジストリィのオープン）

　レジストリィ C:\SampleReg.dat を参照モードでオープンする。

   1:Var
   2:  Leg:TLegistry;
   3:Begin
*  4:  Leg:=TLegistry.Create('C:\SampleReg.dat',lmOpenRead,1024,1024,nil);
   5:  {以降、Leg を経由して、SampleReg.dat へアクセス可能}

　レジストリィ C:\SampleReg.dat が存在しない時は作成モード、存在する場合は更新モードでオープンする。

   1:Var
   2:  Leg:TLegistry;
   3:Begin
   4:  if FileExists('C:\SampleReg.dat') then
*  5:    Leg:=TLegistry.Create('C:\SampleReg.dat',lmOpenReadWrite,1024,1024,nil)
   6:  else
*  7:    Leg:=TLegistry.Create('C:\SampleReg.dat',lmCreate,1024,1024,nil);
   8:  {以降、Leg を経由して、SampleReg.dat へアクセス可能}

■TLegistry.Free（レジストリィのクローズ）

　レジストリィ変数 Leg をクローズする。

*  1:  Leg.Free;

■TLegistry.ReadStringDef（レジストリィから文字列を読み込み）

　レジストリィ SampleReg.dat のキー /common/str1 から文字列型変数 Str1 へ文字列を読み込む。キーが存在しない場合は 'abc'。

   1:Var
   2:  Leg:TLegistry;
   3:  Str1:String;
   4:Begin
   5:  If FileExists('C:\SampleReg.dat') Then Begin
   6:    Leg:=TLegistry.Create('C:\SampleReg.dat',lmOpenRead,1024,1024,nil)
*  7:    Str1:=Leg.ReadStringDef('/common/str1','abc');
   8:    Leg.Free;
   9:  End;

■TLegistry.ReadIntegerDef（レジストリィから数値を読み込み）

　レジストリィ SampleReg.dat のキー /common/int1 から数値型変数 Int1 へ数値を読み込む。キーが存在しない場合は 0。

   1:Var
   2:  Leg:TLegistry;
   3:  Int1:Integer;
   4:Begin
   5:  If FileExists('C:\SampleReg.dat') Then Begin
   6:    Leg:=TLegistry.Create('C:\SampleReg.dat',lmOpenRead,1024,1024,nil)
*  7:    Int1:=Leg.ReadStringDef('/common/int1',0);
   8:    Leg.Free;
   9:  End;

■TLegistry.ReadBoolDef（レジストリィから論理値を読み込み）

　レジストリィ SampleReg.dat のキー /common/bool1 から論理型変数 Bool1 へ論理値を読み込む。キーが存在しない場合は False。

   1:Var
   2:  Leg:TLegistry;
   3:  Bool1:Boolean;
   4:Begin
   5:  If FileExists('C:\SampleReg.dat') Then Begin
   6:    Leg:=TLegistry.Create('C:\SampleReg.dat',lmOpenRead,1024,1024,nil)
*  7:    Bool1:=Leg.ReadBoolDef('/common/bool1',False);
   8:    Leg.Free;
   9:  End;

■TLegistry.Signature（シグネチャの設定）

　レジストリィ SampleReg.dat にシグネチャ SAMPLE を設定する。

   1:Var
   2:  Leg:TLegistry;
   3:Begin
   4:  If FileExists('C:\SampleReg.dat') Then Begin
   5:    Leg:=TLegistry.Create('C:\SampleReg.dat',lmOpenReadWrite,1024,1024,nil)
*  6:    Leg.Signature:='SAMPLE';
   7:    Leg.Free;
   8:  End;

■TLegistry.CreateKey（キーの作成）

　レジストリィ SampleReg.dat にキー /common/subkey を作成する。

   1:Var
   2:  Leg:TLegistry;
   3:Begin
   4:  If FileExists('C:\SampleReg.dat') Then Begin
   5:    Leg:=TLegistry.Create('C:\SampleReg.dat',lmOpenReadWrite,1024,1024,nil)
*  6:    Leg.Createkey('/common/subkey');
   7:    Leg.Free;
   8:  End;

■TLegistry.WriteString（文字列の保存）

　レジストリィ SampleReg.dat の /common/str1 に文字列 abc を保存する。

   1:Var
   2:  Leg:TLegistry;
   3:Begin
   4:  If FileExists('C:\SampleReg.dat') Then Begin
   5:    Leg:=TLegistry.Create('C:\SampleReg.dat',lmOpenReadWrite,1024,1024,nil)
*  6:    Leg.WriteString('/common/str1','abc');
   7:    Leg.Free;
   8:  End;

■TLegistry.WriteInteger（数値の保存）

　レジストリィ SampleReg.dat の /common/int1 に数値 999 を保存する。

   1:Var
   2:  Leg:TLegistry;
   3:Begin
   4:  If FileExists('C:\SampleReg.dat') Then Begin
   5:    Leg:=TLegistry.Create('C:\SampleReg.dat',lmOpenReadWrite,1024,1024,nil)
   6:    Leg.WriteInteger('/common/int1',999);
*  7:    Leg.Free;
   8:  End;

■TLegistry.WriteBool（論理値の保存）

　レジストリィ SampleReg.dat の /common/bool1 に論理値 True を保存する。

   1:Var
   2:  Leg:TLegistry;
   3:Begin
   4:  If FileExists('C:\SampleReg.dat') Then Begin
   5:    Leg:=TLegistry.Create('C:\SampleReg.dat',lmOpenReadWrite,1024,1024,nil)
   6:    Leg.WriteBool('/common/bool1',True);
*  7:    Leg.Free;
   8:  End;