1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

with IBDatabaseInfo1 do begin
     Database.GetFieldNames('Artikel',liste);
     if liste.IndexOf('art')=-1 then
     IBSQL.SQL.Text:='ALTER TABLE artikel ADD art integer DEFAULT 0 NOT NULL, ADD lager INTEGER DEFAULT 0, ADD bestellt integer DEFAULT 0;';
        if Mainform.debug then   //Debug-Modus????
           if MessageDlg(IBSQL.SQL.Text,mtConfirmation,[mbOK,mbCancel],0)=mrCancel then
              Exit;
        IBSQL.ExecQuery;
        Commit(Self);
     end;					

1:
2:
3:
4:
5:
6:
7:

var
  tableslist : TStringList;
begin
  tableslist := TStringList.Create;
  IBDataModule.IBSearchTables.DatabaseName := servername.Text + ':' +
     serverdirectory.Text + 'bisconfig.gdb';
  IBDataModule.IBSearchTables.GetTableNames(tableslist,false);