MetaField.Lookup : MetaTable
Поле ссылка

Свойство Lookup содержит ссылку на таблицу, на которую ссылается это поле. Для обычных полей содержит Null.

Procedure OnCreate;
Var
  T : MetaModule;
  F : MetaField;
  I : Integer;
Begin
  T := Meta.Module(Meta.v.UsersTableName);
  For I := 0 To T.FieldsCount - 1 Do
  Begin
    F := T.Field(I);                                                            
    If F.Lookup <> Null Then
      Warning(ToStr(I) + '. ' + F.Description + ' ' + F.Name + ' ' + F.Lookup.Name);
  End;
End;

© RTIT