大家帮帮忙 ( 积分: 30 )

procedure TForm1.FormCreate(Sender: TObject);
begin
session.getaliasnames(ComboBox1.Items);//什么意思
end;

procedure TForm1.Button1Click(Sender: TObject);
var
vstr:TStringList;TStringList什么意思
begin
if session.isalias(ComboBox1.Text) then //session.isalias(ComboBox1.Text)什么意思
begin
vstr:=TStringList.Create;// 什么意思
try
session.getaliasparams(ComboBox1.Text,vstr);//什么意思
if vstr.count>0 then //什么意思
begin
Memo1.Lines.AddStrings(vstr);//什么意思
end;
except
Memo1.Lines.Add('无法获得');//什么意思
end;
vstr.Free;
end;
end;

帮帮忙啊大家，最后30分了

帮忙解释的详细一些啊

session.getaliasnames(ComboBox1.Items);//什么意思
答：得到数据库别名！设置数据库别名

TStringList什么意思
答：这是个变量，字符串列表

以下都是对 这个列表的操作!

新手要多测试!