1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  DbDS.Close;
  DbDS.SelectSQL.Text := 'select RDB$RELATION_NAME from rdb$relations order by RDB$RELATION_NAME';
  DbDS.Open;
  DbDS.First;
  i := 0;
  while not DbDS.Eof do begin
    i := i + 1;
    DetailDS.Close;
    DetailDS.SelectSQL.Text := 'select count (*) AS ANZAHL from '+DbDS.FieldByName ('RDB$RELATION_NAME').AsString;
    DetailDS.Open;
    TableName := DbDS.FieldByName ('RDB$RELATION_NAME').AsString;
    Anzahl := DetailDS.FieldByName ('ANZAHL').AsString;
    if pos ('$',TableName) = 0 then begin
      if StrToInt (Anzahl) <> 0 then
        Memo1.Lines.Add(Tablename + blanks (20-length (TableName))  + '  '+ Anzahl)
      else
        Memo2.Lines.Add(Tablename + blanks (20-length (TableName))  + '  '+ Anzahl);
    end;
    DbDS.Next;
  end;
end;					

1:

select RDB$RELATION_NAME from rdb$relations order by RDB$RELATION_NAME					

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

SELECT RDB$RELATION_NAME
FROM RDB$RELATIONS
WHERE ((RDB$SYSTEM_FLAG = 0) OR
(RDB$SYSTEM_FLAG IS NULL)) AND
(RDB$VIEW_SOURCE IS NULL)
ORDER BY RDB$RELATION_NAME					

1:
2:
3:
4:

SELECT RDB$RELATION_NAME
FROM RDB$RELATIONS
WHERE (RDB$VIEW_SOURCE IS NULL)
ORDER BY RDB$RELATION_NAME					

1:
2:
3:
4:

IBE$AUTO_FIELDS
IBE$CATEGS                     
IBE$CHAMPS                     
...					

1:
2:

select * from rdb$relations where NOT (RDB$RELATION_NAME LIKE 'IBE$%') AND NOT (RDB$RELATION_NAME LIKE 'RDB$%')
ORDER BY RDB$RELATION_NAME					

1:

select * from rdb$relation_fields where rdb$relation_name = 'tabelle1';					

1:

select rdb$field_name from rdb$relation_fields					

1:
2:

select RDB$RELATION_NAME, rdb$field_name from rdb$relation_fields where NOT (RDB$RELATION_NAME LIKE 'IBE$%') AND NOT (RDB$RELATION_NAME LIKE 'RDB$%')
ORDER BY RDB$RELATION_NAME					

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

select
    f.RDB$RELATION_NAME, f.rdb$field_name,
    s.rdb$field_length
from
    rdb$relation_fields f, rdb$fields s
where
     NOT (RDB$RELATION_NAME LIKE 'IBE$%') AND NOT (RDB$RELATION_NAME LIKE 'RDB$%') and
     s.rdb$field_name = f.rdb$field_source
ORDER BY RDB$RELATION_NAME					

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

select
 f.rdb$field_name, s.RDB$Field_Length, s.RDB$field_type, s.RDB$description, 
 f.rdb$character_set_name
from
 rdb$relation_fields f, rdb$fields s
where
 NOT (RDB$RELATION_NAME LIKE 'IBE$%') AND NOT (RDB$RELATION_NAME LIKE 
 'RDB$%') and s.rdb$field_name = f.rdb$field_source					

1:

Unbekannte Spalte: F					

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

select
 f.rdb$field_name,
 s.RDB$Field_Length, s.RDB$field_type, s.RDB$description, 
 c.rdb$character_set_name
from
 rdb$relation_fields f, rdb$fields s , rdb$character_sets c
where
 NOT (RDB$RELATION_NAME LIKE 'IBE$%') AND NOT (RDB$RELATION_NAME LIKE 
 'RDB$%') and s.rdb$field_name = f.rdb$field_source and
 c.rdb$character_set_id = s.rdb$character_set_id;