Версия для печати темы

procedure TForm1.Button1Click(Sender: TObject);
var
  new: TStrings;
  all: TStrings;
begin
  new := TStringList.Create;
  all := TStringList.Create;
  Session1.GetAliasParams('BASE',new);
  new := Database2.Params;
  Session1.ModifyAlias('BASE',new);
  Session1.GetAliasParams('BASE',all);
  ListBox1.Items.Assign(all);
  new.Free;
  all.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  new: TStrings;
  all: TStrings;
begin
  new := TStringList.Create;
  all := TStringList.Create;
  Session1.GetAliasParams('BASE',new);
  new := Database1.Params;
  Session1.ModifyAlias('BASE',new);
  Session1.GetAliasParams('BASE',all);
  ListBox1.Items.Assign(all);
  new.Free;
  all.Free;
end;