Arioch,
у него уже есть IBX (IBSQL). Зачем лезть в sqltype - не знаю. Мне понадобилось типы данных выводить в виде строк (структуры).
Вышло примерно так (забористо):
Сначала запрос.
1.
2.
3.
4.
5.
6.
7.
8.
9.
Q.SQL.Add('select R.RDB$RELATION_NAME, R.RDB$FIELD_POSITION, R.RDB$FIELD_NAME, ');
Q.SQL.Add('F.RDB$FIELD_LENGTH, F.RDB$FIELD_TYPE, F.RDB$FIELD_SCALE, F.RDB$FIELD_SUB_TYPE ');
if dbinfo.ODSMajor >= 10 then // !!!
Q.SQL.Add(', F.RDB$FIELD_PRECISION ');
Q.SQL.Add('from RDB$FIELDS F, RDB$RELATION_FIELDS R ');
Q.SQL.Add('where F.RDB$FIELD_NAME = R.RDB$FIELD_SOURCE and R.RDB$SYSTEM_FLAG = 0 ');
Q.SQL.Add('and r.RDB$RELATION_NAME NOT STARTING WITH ''RDB$''');
Q.SQL.Add('order by R.RDB$RELATION_NAME, R.RDB$FIELD_POSITION');
Q.ExecQuery;
потом разбор этого дела
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
rec.FieldName:=Trim(Q.Current.ByName['RDB$FIELD_NAME'].AsString);
rec.Length:=Q.Current.ByName['RDB$FIELD_LENGTH'].AsInteger;
rec.DataType:=Q.Current.ByName['RDB$FIELD_TYPE'].AsInteger;
rec.Scale:=Q.Current.ByName['RDB$FIELD_SCALE'].AsInteger;
rec.Precision:=0;
if dbinfo.ODSMajor >= 10 then
rec.Precision:=Q.Current.ByName['RDB$FIELD_PRECISION'].AsInteger
else
if rec.Scale <> 0 then
case rec.Length of
2 : rec.Precision:=5;
4 : rec.Precision:=9;
8 : rec.Precision:=15;
end;
rec.Scale:=Q.Current.ByName['RDB$FIELD_SCALE'].AsInteger;
rec.SubType:=Q.Current.ByName['RDB$FIELD_SUB_TYPE'].AsInteger;
if (rec.DataType = 16) and (rec.Scale <> 0) and (rec.Precision = 0) then
rec.Precision:=18;
А уже потом - вывод (ниже f. это то же что и rec., но это мой класс).
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
case f.DataType of
7 : begin
if f.Precision = 0 then
s:=s+'SMALLINT'#13#10
else
s:=s+'NUMERIC('+IntToStr(f.Precision)+','+IntToStr(-f.Scale)+')'#13#10;
end;
8 : begin
if f.Precision = 0 then
s:=s+'INTEGER'#13#10
else
s:=s+'NUMERIC('+IntToStr(f.Precision)+','+IntToStr(-f.Scale)+')'#13#10;
end;
9 : s:=s+'TIMESTAMP'#13#10;
10 : s:=s+'FLOAT'#13#10;
Почему так - точно уже не помню. Судя по всему, IBX и прочие компоненты "проглатывают" детали, которые мне нужны были при выводе.
