请看下面代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Session.GetDatabaseNames(ComboBox1.Items);
  ComboBox1.Text:='DBDEMOS';
  ComboBox1Change(self);
  ListBox1.ItemIndex:=0;
  ListBox1Click(self);
end;
请问Session是什么?
关于Self作何理解?
谢谢!!!

解决方案 »

  1.   

    TSession(会话)组件用来管理一组的数据库连接,可以用session组件取得所有的数据库名,数据表名,Addpassword,别名管理等,delphi的demos里有例子用到
    self我的理解就是使用当前的属性触发一个procedure,例如comboBox(Self),如果你的comboBox。text为空,或不是一个有效的值,comboBoxONClick(self)在使用text属性的时候就会出错~
    一点愚见,呵呵