请教高手：如何实现动态功能？？(很急，现正准备用！！！)

Question

1:一时没有例子，随便找本书都有
2;IntToHex

Answer 1

1.用Session的GetTableNames()函数用法如下,取出后,你可以将其显示在ListBox中MyStringList := TStringList.Create;
try
  Session.GetTableNames('DBDEMOS', '*.db',False, False, MyStringList);
  { Add the table names to a list box }
  ListBox1.Items = MyStringList;
finally
  MyStringList.Free;
end;2.用IntToHex()函数,用法如下:procedure TForm1.Button1Click(Sender: TObject);var
  i: Integer;
begin
  Label1.Caption := '';
  for i := 1 to Length(Edit1.Text) do
  begin
    try
      Label1.Caption := Label1.Caption + IntToHex(Edit1.Text[i],4) + ' ';
    except
      Beep;
    end;
  end;
end;

Answer 2

1:D6的demo\db下有一个DbxExplorer的例子

Answer 3

1,
procedure GetTable
var
  MainConnection: TADOConnection;
  TmpTableName: string;
  TableList: TStringList;
  FieldList: TStringList;...
MainConnection.GetTableNames(TableList.Items);...
MainConnection.GetFieldNames(TableName,FieldList);
...

Answer 4

察看 sys表
好像是  systables 和 syscolumns
很久不用了,只记得过滤条件是 xtype='U'