GetDependentFields(TableName : String) : Array Of TableField
Получить все поля БД ссылающиеся на таблицу БД

Функция GetDependentFields возвращает поля таблиц, которые ссылаются на таблицу TableName. То есть поля с типом *TableName.

Класс TableField содержит две переменных: Field - поле которое ссылается на запрашиваемую таблицу, Table - таблица в которой находится поле Field.

Пример:

Procedure OnCreate;
Var
  A : Array of TableField;
Begin
  A := GetDependentFields('Table1');
  Foreach E In A Do
    Warning(E.Table + '.' + E.Field);
End;

© RTIT