BDEの全エリアス名を取得する

BDEで設定したエリアス名を取得するには TSessionコンポーネントの GetAliasNamesメソッドを使います。引数に TStrings型の変数を渡せば, 一覧が生成されて返されます。

■ BDEの全エリアス名を取得する例 
  procedure TForm1.Button1Click(Sender: TObject);
  var
    ix  : integer;
    sltAliasNames : TStringList;
  begin
    {エリアス名をいれるリスト}
    sltAliasNames   :=   TStringList.Create;
    {セッション名は自動で定義}
    Session1.AutoSessionName  :=  True;
    {エリアス名を取得}
    Session1.GetAliasNames(sltAliasNames);
    for ix  :=  0 to  sltAliasNames.Count - 1 do begin  
      {取得したエリアス名をListBoxへ}
      ListBox1.Items.Add(sltAliasNames[ix]);
    end;
    {ListBox1.Items.Assign(sltAliasNames)も同じ}
    sltAliasNames.Free;
  end;